[R] Script d'automatisation FTP

[greenkev]

Bonjour à tous ,

Je suis débutant avec le langage AutoIt d'où pourquoi j'ai besoin de votre aide.

Je recherche un script qui permettrait de faire une connexion sur un site ftp pour récuperer un dossier en .zip.

Ce script sera basé sur un fichier de conf qui contiendra 4 valeurs (le site ftp, le login, le mot de passe et la source du dossier que je dois récupérer).

Le script devra, une fois téléchargé, décompresser le dossier zip dans un chemin précis qui sera considéré dans une cinquième valeur (destination).

Ça serait génial d'avoir une barre de progression pour connaître l'avancement de la récupération du dossier .zip.

Je vous remercie par avance de votre aide.

greenkev

[greenkev]

Up !

[greenkev]

J'avoue que j'ai beaucoup de mal à coder mais j'ai essayé de faire quelque chose avec un autre code que je vais vous mettre ainsi que le fichier ini, le souci est que le script ne veut pas se lancer.

J'ai une erreur à la ligne 70 disant --> Subscript used with non-Array variable.:

_SetProgress($progressbar, $info[1], $info[0])

_Set Progress($progressbar, $info^ ERROR

Pouvez-vous me dire également si la structure de IniRead que j'ai noté est correcte ou pas pour aller récupérer un dossier compressé sur un site FTP ?

Fichier script_ftp_au3 :

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <array.au3>
Opt("GUIOnEventMode", 1)
 
;Déclaration des variables
 
global $inifile
 
$inifile = @ScriptDir & "\fichier.ini"
 
Dim $a_telecharge[4][1]
 
    Global $Gestion = GUICreate("Récupération du fichier CD-AFI-WEB.zip", 600, 600, 600, 600)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Quitter")
    Global $Options = GUICtrlCreateMenu("&Options")
    Global $Telecharger = GUICtrlCreateMenuItem("Télécharger", $Options)
    GUICtrlSetOnEvent( -1,"telechargeProgress")
    Global $Quitter = GUICtrlCreateMenuItem("Quitter", $Options)
    GUICtrlSetOnEvent( -1,"Quitter")
    Global $telecharger_1 = GUICtrlCreateButton("Télécharger", 160, 52, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent( -1,"telechargeProgress")
    Global $quitter_1 = GUICtrlCreateButton("Quitter", 160, 90, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent( -1,"quitter")
    Global $Group1 = GUICtrlCreateGroup("Cocher la case puis cliquez sur Télécharger", 8, 10, 129, 135)
  
    Global $fichier1 = GUICtrlCreateCheckbox("CD-AFI-WEB.zip", 24, 114, 97, 17)
    GUICtrlSetOnEvent( -1,"checkbox")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $progressbar = GUICtrlCreateProgress(10, 144, 232, 20)
    Global $Gestion_AccelTable[1][2] = [["^!+{5 (PAVE NUM.)}", $Quitter]]
    GUISetAccelerators($Gestion_AccelTable)
    GUISetState(@SW_SHOW)
 
;Fin des déclarations
 
Func checkbox()
    Switch @GUI_CtrlId
     
        Case $fichier1
            If _Ischecked($fichier1) then
                $a_telecharge[3][0] = "1"
            Else
                $a_telecharge[3][0] = "0"
            EndIf
    EndSwitch
EndFunc
 
Func telechargeProgress()
$proto_ftp=IniRead($inifile, "[section]", "protocole", "ftp")  
$url_ftp=IniRead($inifile, "[section]", "source", "site_ftp.fr")
$user_ftp=IniRead($inifile, "[section]", "user" , "utilisateur")
$mdp_ftp=IniRead($inifile, "[section]", "mdp", "mot_de_passe")
$source_ftp=IniRead($inifile, "[section]", "chemin_source", "dossier.zip")
$desti_ftp=IniRead($inifile, "[section]", "chemin_destination", "_SOURCES_machin")
 
$Statut_Checkbox3 = GUICtrlRead($fichier1)
 
If $Statut_Checkbox3 = "1" Then
   $SizeFile=InetGetSize($proto_ftp & ":" & "/" & "/" & $user_ftp & ":" & $mdp_ftp & "@" & $url_ftp & "/" & $source_ftp)
   $hDownload=InetGet($proto_ftp & ":" & "/" & "/" & $user_ftp & ":" & $mdp_ftp & "@" & $url_ftp & "/" & $source_ftp & "," & @HomeDrive & $desti_ftp, 1,1)
EndIf
 
    Do
        Sleep(250)
        $info=InetGetInfo($hDownload)
        _SetProgress($progressbar, $info[1], $info[0])
    Until $info[2]
 
    MsgBox(64, "téléchargement fichier", "Fin du téléchargement")
    ProcessClose("dossier.zip")
 
EndFunc
 
Func _SetProgress($ctrlId,$SizeFile,$SizeDownload)
    GUICtrlSetData($ctrlId,Int(($sizeDownload/$SizeFile)*100))
EndFunc
 
 
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd
 
Func quitter()
    Exit
EndFunc
 
Func _Ischecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
 EndFunc
  
 ;A ce niveau, j'aimerais décompresser le dossier compressé mais je n'arrive pas à le faire (sachant que j'ai cherché toutes les solutions possibles sur Internet), pouvez-vous m'aider s'il vous plait ?

ShellExecute ( "Install.exe", "", @HomeDrive & "\_SOURCES_machin\CD-machin-WEB2\CD-machin-WEB2", "open" )
 

Et maintenant je vous mets le fichier.ini :

[section]
protocole=ftp
source=site_ftp.fr
user=utilisateur
mdp=mot_de_passe
chemin_source=dossier.zip
chemin_destination=_SOURCES_machin

[mikell]

_Set Progress($progressbar, $info^ ERROR - Subscript used with non-Array variable

ça veut dire que $info n'est pas une array, donc que InetGetInfo a échoué, donc que probablement tu devrais remplacer

Code : Tout sélectionner

$Statut_Checkbox3 = GUICtrlRead($fichier1)
If $Statut_Checkbox3 = "1" Then
par
If _Ischecked($fichier1) Then

Dans des longs scripts comme ça, faut faire du debug : tu insères des Msgbox ou des Consolewrite un peu partout, pour vérifier pas à pas que le code fonctionne
Tu peux (tu dois...) aussi faire de la gestion d'erreur, quelque chose comme ça

Code : Tout sélectionner

$hDownload = InetGet(....)
If $hDownload = 0 Then
   Msgbox(0,"", "erreur")
Else
    Do
        Sleep(250)
        $info = InetGetInfo($hDownload)
        _SetProgress($progressbar, $info[1], $info[0])
    Until InetGetInfo($hDownload, 2)
EndIf

Pour le reste (iniread, syntaxe) je te conseille de te faire un bout de script avec juste le InetGet dedans (+ éventuellement quelques bricoles), histoire de vérifier que ça télécharge bien, et si là ça fonctionne le reste c'est de la rigolade ^^