BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[Autoit] Téléchargement d'un fichier animé par une barre de progression EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
Le Deal du moment : -50%
-50% sur les sacs à dos pour ordinateur ...
Voir le deal
19.99 €

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

Aller en bas

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

Message par Hackoo 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
Hackoo
Hackoo
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

[Autoit] Téléchargement d'un fichier animé par une barre de progression Empty Nouvelle version et Bonne année 2014 !

Message par Hackoo 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
Hackoo
Hackoo
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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