AutoIt Français

Bonjour,
alors voila j'ai créé un script qui présente sous forme de tableau les informations des fichiers situés sur mon ftp (nom, taille...) et avec la possibilité de télécharger chacun de ces fichiers grâce à Inetget. Mon seul véritable problème est que mon ftp contient plusieurs fichier se qui signifie qu'il me faudra intégrer plusieurs fois le code ci-dessous à mon script afin de télécharger chacun de ses fichiers.

► Afficher le texte

Code : Tout sélectionner

...
case $dl2 
    Global $Url = $lien1
InetGet( $Url , @DesktopDir&'/'&$nom1, 1, 1)   
$FileSize = InetGetSize ( $lien1 )
$Label13 = GUICtrlCreateLabel(Int ( ( @InetGetBytesRead * 100 ) / $FileSize ),  183, 48, 30, 27)
GUICtrlSetFont(-1, 15, 400, 0, "arialblack")
GUICtrlSetColor(-1, 0x0000FF)
$Label1 = GUICtrlCreateLabel("Nom du fichier ", 128, 90, 75, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label2 = GUICtrlCreateLabel("Taille", 342, 90, 29, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label15 = GUICtrlCreateLabel("%", 213, 48, 23, 28)
GUICtrlSetFont(-1, 16, 400, 0, "arialblack")
GUICtrlSetColor(-1, 0x0000FF)
$annuler = GUICtrlCreateLabel("Appuyez sur F12 pour annuler", 568, 13, 145, 17)  ; annuler
GUICtrlSetColor(-1, 0xFF0000)
$Label12 = GUICtrlCreateLabel("Progression du téléchargement : ", 24, 53, 159, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label3 = GUICtrlCreateLabel("Lien externe (allociné, infos...)", 424, 90, 144, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label4 = GUICtrlCreateLabel("Télécharger ", 620, 90, 64, 17)
GUICtrlSetColor(-1, 0x0000FF)
$dl1 = GUICtrlCreatePic("C:\Documents and Settings\host\Bureau\telecharger.jpg", 600, 120, 100, 26)
GUICtrlSetCursor (-1, 0)
$Pic9 = GUICtrlCreatePic("C:\Documents and Settings\host\Bureau\frame_top.jpg", 4, 151, 708, 3)
$nom_gui1 = GUICtrlCreateLabel($nom1, 16, 126, 291, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlSetColor(-1, 0x0000FF)
$taille_gui1 = GUICtrlCreateLabel($taille1, 333, 126, 51, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlSetColor(-1, 0x0000FF)
$lien_gui1 = GUICtrlCreateLabel($info1, 408, 126, 175, 18)
GUICtrlSetFont(-1, 8, 400, 4, "arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label8 = GUICtrlCreateLabel("Bienvenue sur le client du ftp à JuMbY", 208, 8, 358, 23)
GUICtrlSetFont(-1, 12, 800, 0, "arialblack")
GUICtrlSetColor(-1, 0x0000FF)
$Pic10 = GUICtrlCreatePic("C:\Documents and Settings\host\Bureau\frame_top.jpg", 4, 190, 708, 3)
$nom_gui2 = GUICtrlCreateLabel($nom2, 16, 165, 291, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlSetColor(-1, 0x0000FF)
$taille_gui2 = GUICtrlCreateLabel($taille2, 333, 165, 51, 18)
GUICtrlSetFont(-1, 8, 400, 0, "arial")
GUICtrlSetColor(-1, 0x0000FF)
$lien_gui2 = GUICtrlCreateLabel($info2, 408, 165, 175, 18)
GUICtrlSetFont(-1, 8, 400, 4, "arial")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetState(-1, $GUI_DISABLE)
$dl2 = GUICtrlCreatePic("C:\Documents and Settings\host\Bureau\telecharger.jpg", 600, 159, 100, 26)
GUICtrlSetCursor (-1, 0)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
$Progress1 = GUICtrlCreateProgress(240, 48, 468, 25)
$vitesse_de_telechargement = GUICtrlCreateLabel("Vitesse de téléchargement :", 24, 28, 135, 17) ; vitesse
GUICtrlSetColor(-1, 0x0000FF)
$kos = GUICtrlCreateLabel("ko/s", 192, 28, 26, 17)
GUICtrlSetColor(-1, 0x0000FF)


While @InetGetActive
GUICtrlSetData ( $progress1 , Int ( ( @InetGetBytesRead * 100 ) / $FileSize ) )
Sleep(800)
$4 = @InetGetBytesRead
sleep(1000)
$5 = @InetGetBytesRead
$vitesse_real = GUICtrlCreateLabel(Int( ( $5 / $4 ) * 100), 160, 28, 28, 17)
GUICtrlSetColor(-1, 0x0000FF)
$Label13 = GUICtrlCreateLabel(Int ( ( @InetGetBytesRead * 100 ) / $FileSize ),  183, 48, 30, 27) ; progression
GUICtrlSetFont(-1, 15, 400, 0, "arialblack")
GUICtrlSetColor(-1, 0x0000FF)


WEnd
If (Int ((@InetGetBytesRead * 100 ) / $FileSize) = 100) Then
    GUICtrlDelete($Progress1)
    GUICtrlDelete($Label12)
    Guictrldelete($Label15)
    guictrldelete($Label13)
    $Label13 = GUICtrlCreateLabel("", 183, 48, 30, 27)
    MsgBox(4000,"Téléchargement réussi", $download_complete1)
EndIf
ShellExecute(@ScriptFullPath)
ExitLoop

Ce petit bout de script a donc pour instruction d'afficher certains gui, de télécharger le fichier...
Mon problème apparait au niveau du WEnd a mon sens indispensable dans la mesure ou il y a While @InetGetActive plus haut. Ce Wend, m'empêche de faire fonctionner le téléchargement des autres fichier.

J'espère n'avoir pas été trop confus. Merci d'avance

Bonjour,
Je vois que le pb viens de la parallélisation des download.
Comme il n'y a pas de notion de thread dans autoit, il va faut effectivement isoler la fonction principale de téléchargement dans un autre script et le compiler.
Ceci aura pour avantage quont poura lancer cet exe via Run qui rends de suite la main au script pour executer le reste.

Si j'illustre ceci par algo, ça donerai

Code : Tout sélectionner

Pour fichier dans tableau_fichier
     Run("ma_fonctiondownload.exe fichier")
Finpour

ça va lancer la fonction de download n fois dans la foulée. Par contre il va faloir jongler avec les remontés d'information pour alimenter les différentes progressbar, car dans ce cas chaque instance de l'exe va travailler dans son coin.
Soit chaque instance de l'exe affichera sa propre fenêtre de progresbar (cas simple mais un peu confus), sois on log les progression de chacun dans plusieur fichiers et on centralise les info via le script principal (plus propre mais plus difficile).
Dans le cas du 2eme sénario, pour aller au plus simple, il faut générer un fichier log propre à chaque lancement où la progression serait redirigée (on peut construire le nom du log en fonction du nom du fichier downloadé).
Ensuite le script principale pourrait lire les différents fichiers log pour construire les représentations graphiques des différentes progression.

Bon, désolé de ne pouvoir proposer autre chose qu'une solution théorique ... Bonne chance

Il faut peut etre que tu aille voir du coté de adlibenable, qui permet de traiter des mini-thread

Voir ici

Merci de vos réponses, je suis passé a chaque fois par une nouvelle interface pour chaque téléchargement.

AutoIt Français

[R] Problème avec wend

[R] Problème avec wend

Re: [..] Problème avec wend

Re: [..] Problème avec wend

[R] Problème avec wend