AutoIt Français

Code : Tout sélectionner

#include <Process.au3>
#include <FTPEx.au3>
;=====================================
Execut01()
Func  Execut01()
    Dim $appli1=  ImportFileInFtp()
    Dim $appli2=  SuppFileFtp()
        If Not IsAdmin() Then
    RunAsWait( $appli1,$appli2, "", 0, @ScriptFullPath, @ScriptDir)
EndIf
EndFunc
;========================================
Func ImportFileInFtp()
Local $UrlFtp = "http://Boulanza.com"
Local $sourceFtp = "/test/mesfichiers/"
$test= _RunDos('wget -r -l 1 -A.ini "'&$UrlFtp&""&$sourceFtp &'"') 
EndFunc
;========================================
Func SuppFileFtp()
$ftp_server = "xxx"
$ftp_username = "xxxx"
$ftp_password = "xxxx"

$ftpfolder = "test/mesfichiers"
Local $ftp_session
Local $h_Handle

$ftp_session = _FTP_Open("$ftp_session ")
;MsgBox(0, "Fichier:", $ftp_session)


$ftp_CS = _FTP_Connect($ftp_session, $ftp_server, $ftp_username, $ftp_password)

$nonhtm = _FTP_FindFileFirst ( $ftp_CS, $ftpfolder & "/*.*", $h_Handle )

While 1
    $nonhtm = _FTP_FindFileNext ( $h_Handle )
    If Not @error Then
If StringLen($nonhtm[10]) > 2 AND StringRight ( $nonhtm[10] , 4 ) <> ".*" Then 
            _FTP_FileDelete ( $ftp_CS, "/" & $ftpfolder & "/" & $nonhtm[10] )
        EndIf
    Else
        ExitLoop
    EndIf
WEnd
EndFunc
 ;==================================
 

Code : Tout sélectionner

;#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ProgressConstants.au3>

$ProgressForm = GUICreate("Téléchargement en cours ..", 182, 45, -1, -1, $DS_MODALFRAME)
$ProgressBar = GUICtrlCreateProgress(0, 0, 180, 20, $PBS_SMOOTH)
GUISetState(@SW_SHOW, $ProgressForm)

$URLtest = 'http://www.autoitscript.com/files/autoit3/autoit-v3-setup.exe'

[color=#0000BF]$URLtest = 'http://www.autoitscript.com/files/test/*.*'[/color]

DownloadFile($URLtest)                                                          ;On lance le téléchargement

Exit

Func DownloadFile($FileUrl, $ToFolder = @ScriptDir)
    Local $ArchiveName = StringTrimLeft($FileUrl, StringInStr($FileUrl, '/', 0, -1))    ;On définit le nom du fichier cible
    Local $hDownload = InetGet($FileUrl, $ToFolder & '\' & $ArchiveName, 1, 1)          ;On lance le téléchargement
    $aData = InetGetInfo($hDownload)                                                    ;On récupére la taille du fichier
    While $aData[1] = 0
        Sleep(100)                                                                      ;Nb : normalement la boucle n'est pas obligatoire
        $aData = InetGetInfo($hDownload)                                                ; ayant des soucis de connexion j'ai du passer par cette boucle
    WEnd
                                                                                        ;Taille du fichier =  $aData[1]

    GUICtrlSetData($ProgressBar, 0)                                                     ;init de la barre de progression

    While $aData[0] <  $aData[1]                                                                ;On boucle tant que le téléchargement n'est pas finalisé
        $aData = InetGetInfo($hDownload)
        GUICtrlSetData($ProgressBar, $aData[0] / $aData[1] * 100)                       ;On gére l'avancement de la barre de progression
        Sleep(100)                                                                      ;On temporise pour laisser du process au petits copains
    WEnd

    Local $aData = InetGetInfo($hDownload)  ;nb :   [1]=> Size      [2]=> Complete  [3] => Successful
    InetClose($hDownload)                   ;       [4]=> @Error    [5]=> @Extended     ;On ferme le Handle de l'InetGet

    If $aData[4] Or $aData[1] <> $aData[0] Or Not $aData[3]  Then
        ConsoleWrite("[Error] Download Failed ... " & @CRLF)
        Return SetError(69)
    Else
        ConsoleWrite( "Success : ")
        ConsoleWrite( " => Name..: " & $ArchiveName & @CRLF)
        ConsoleWrite(" => Folder: " & $ToFolder & @CRLF)
        ConsoleWrite(" => Size..: " & $aData[1] & @CRLF)
    EndIf
    Return $aData[3]                                                                    ;On retourne True si téléchargement OK
EndFunc