[EXE] DOWNLOAD AVEC BARRE DE PROGRESSION EN LIGNE DE COMMANDE

#include < Date.au3 >

_downloadWithProgress($cmdline[1], $cmdline[2])
Func _DownloadWithProgress($sURL, $sFileName = "")

    Local $hDownload, $iSizeBytes = InetGetSize($sURL)
    Local $iH, $iM, $iS, $iTicks, $iCompletedBytes, $nPercent, $nElapsedTime, $nBPS, $nT = TimerInit()

    If $sFileName = "" Then
        $hDownload = InetGet($sURL, StringTrimLeft($sURL, StringInStr($sURL, "/", 0, -1)), 1, 1)
    Else
        $hDownload = InetGet($sURL, $sFileName, 0, 1)
    EndIf

    ProgressOn("Télechargement", "0% Effectué - 0 kB/s", "Restant - 00:00:00", Default, Default, 18)

    Do
        $iCompletedBytes = InetGetInfo($hDownload, 0)
        $nPercent = $iCompletedBytes * 100 / $iSizeBytes
        $nElapsedTime = TimerDiff($nT) / 1000

        $nBPS = $iCompletedBytes / $nElapsedTime
        $iTicks = $iSizeBytes / $nBPS - $nElapsedTime
        $iH = Int($iTicks / 3600)
        $iTicks = Mod($iTicks, 3600)
        $iM = Int($iTicks / 60)
        $iS = Mod($iTicks, 60)

        ProgressSet($nPercent, "Restant - " & StringFormat("%02d:%02d:%02d", $iH, $iM, $iS), StringFormat("%.1f", Round($nPercent, 1)) & "% Effectué - " & Int($nBPS / 1024) & " kB/s")

        Sleep(50)
    Until InetGetInfo($hDownload, 2)

    ProgressSet(100, "", "Télechargement complet.")
    ProgressOff()
EndFunc