Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

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

Voir le sujet précédent Voir le sujet suivant Aller en bas

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

Message par Hackoo le Mar 31 Déc 2013, 20:06

Salut  cheers 
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  affraid 
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  Very Happy 
Bon Téléchargement !   Wink   
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


Dernière édition par Hackoo le Mer 01 Jan 2014, 11:06, édité 3 fois

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Nouvelle version et Bonne année 2014 !

Message par Hackoo le Mer 01 Jan 2014, 06:18

Salut à tous !  Very Happy 
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é  Cool 
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

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]
avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum