[Autoit] Téléchargement d'un fichier animé par une barre de progression

Salut   
J'ai voulu intégrer un système de progress bar (Barre de téléchargement) pour télécharger un fichier de type .mp3 qui pèse presque 114 Mo pour voir la progression de son téléchargement   
Soyez indulgent, car je débute en Autoit donc, j'ai juste adapter ce code qui se trouve ici ==> [Vous devez être inscrit et connecté pour voir ce lien]
Si vous avez des remarques pour corriger ou bien pour améliorer ce dernier code , alors je suis preneur   
Bon Téléchargement !      

Code:

#include <File.au3>
#include <Date.au3>
Local $url = "http://hackoo.alwaysdata.net/IbizaMix.mp3"
Local $szDrive, $szDir, $szFName, $szExt , $sFile
_PathSplit($url, $szDrive, $szDir, $szFName, $szExt)
$sFile = @desktopdir & "\" & $szFName & $szExt
_DownloadWithProgress($url,$sFile)
if FileExists (@desktopdir & "\" & $szFName & $szExt) Then
 Msgbox(64,"Téléchargement terminé !","le fichier "&  $szFName & $szExt & " a bien été téléchargé et se trouve ici : " & @desktopdir & "\" & $szFName & $szExt & @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
 shellexecute($sFile)
Else
 MsgBox(16,"Erreur du l'URL = vérifiez si le lien est bien orthographié","Pas de fichier téléchargé : vérifiez si le lien est bien orthographié"& @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
EndIf
 Exit

 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éléchargement en Cours ....", "0% Terminé - 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)) & "% Terminé - " & Int($nBPS / 1024) & " Ko/s")

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

 ProgressSet(100, "", "Le téléchargement est terminé !")
 ProgressOff()
 EndFunc   ;==>_DownloadWithProgress


Salut à tous !   
Voici le menu de cette nouvelle année : Inaugurez avec le cocktail de joie, dégustez le velouté d’amitié et son gratiné de santé, régalez-vous avec le filet d’amour et sa sauce folie, puis finissez en douceur avec la bûche d’harmonie… Enfin, savourez chaque seconde de cette nouvelle année !
Voici une nouvelle version avec InputBox pour laisser l'utilisateur taper son choix et son URL personnalisé   

Code:

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=favicon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Inet.au3>
#include <String.au3>
#include <Array.au3>
#include <Sound.au3>
#include <File.au3>
#include <Date.au3>
Local $Copyright = " Hackoo 2014"
Local $url = InputBox("Téléchargement " & $Copyright ,"Veuillez taper l'adresse URL du fichier à télécharger !" ,"http://hackoo.alwaysdata.net/IbizaMix.mp3","")
If $url = "" Then Exit
Local $szDrive, $szDir, $szFName, $szExt , $sFile
_PathSplit($url, $szDrive, $szDir, $szFName, $szExt)
$sFile = @desktopdir & "\" & $szFName & $szExt
Local $connected=0
HotKeySet("!q","Fin")

while 1
   $ret = DllCall("WinInet.dll","int","InternetGetConnectedState","int_ptr",0,"int",0)
   If $ret[0] then
      if $connected=0 Then
         _parle("INTERNET",1)
         $connected=1
 Local $sPublicIP = _GetIP()
 TrayTip("Ip Publique "& $Copyright,"Votre ip publique est : " & $sPublicIP,100,1)
          Sleep(5000)
  _DownloadWithProgress($url,$sFile)
 if FileExists (@desktopdir & "\" & $szFName & $szExt) Then
 Msgbox(64,"Téléchargement terminé !","le fichier "&  $szFName & $szExt & " a bien été téléchargé et se trouve ici : " & @desktopdir & "\" & $szFName & $szExt & @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
 shellexecute($sFile)
 Else
 MsgBox(16,"Erreur du l'URL = vérifiez si le lien est bien orthographié","Pas de fichier téléchargé : vérifiez si le lien est bien orthographié"& @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
 EndIf
 Exit
  EndIf
  Exit
   Else
      if $connected=0 Then
         _parle("INTERNET",0)
         $connected=0
         EndIf
     Endif
   sleep(10000)
wend

Func _parle ($String,$Flag)
   If $Flag = 1 Then
      InetGet("http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" & $String & " et connectez",@TempDir & "\temp.mp3",1)
  TrayTip("Test de Connexion Internet "& $Copyright,$STRING & " est connecté",10,1)
      sleep(2000)
   Else
      ;InetGet("http://translate.google.com/translate_tts?ie=UTF-8&tl=fr&q=" & $String & " et deconnectez",@TempDir & "\temp.mp3",1)
  TrayTip("Test de Connexion Internet "& $Copyright," Pas de connexion " & $STRING,10,1)
      sleep(20000)
  EndIf
  $sound = _SoundOpen(@TempDir & "\temp.mp3")
   if FileExists(@TempDir & "\temp.mp3") Then
  _SoundPlay($sound,1)
  _SoundClose($sound)
  FileDelete(@TempDir & "\temp.mp3")
   EndIf
EndFunc

Func fin()
   Exit
EndFunc

_DownloadWithProgress($url,$sFile)
if FileExists (@desktopdir & "\" & $szFName & $szExt) Then
 Msgbox(64,"Téléchargement terminé !","le fichier "&  $szFName & $szExt & " a bien été téléchargé et se trouve ici : " & @desktopdir & "\" & $szFName & $szExt & @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
 shellexecute($sFile)
Else
 MsgBox(16,"Erreur du l'URL = vérifiez si le lien est bien orthographié","Pas de fichier téléchargé : vérifiez si le lien est bien orthographié"& @crlf & @crlf & "Appuyez sur OK pour fermer le programme")
EndIf
 Exit

 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éléchargement en cours . . . .  " & $Copyright, "0% Terminé - 0 Ko/s", "Temps 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)) & "% Terminé ! " & Int($nBPS / 1024) & " Ko/s")

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

 ProgressSet(100, "", "Le téléchargement est terminé !")
 ProgressOff()
 EndFunc   ;==>_DownloadWithProgress