AutoIt Français

Code : Tout sélectionner

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

Opt("GUIOnEventMode", 1)  ; On passe le script en mode événement.

; Noms des fichiers image.
Dim $pic = ("install_autoit_1.jpg")
Dim $pic2 = ("install_autoit_2.jpg")
Dim $pic3 = ("install_autoit_3.jpg")
Dim $pic4 = ("install_2.jpg")
Dim $splash = ("splash.jpg")

; Création de la Gui
$Form1 = GUICreate("iSafari INSTALLER", 641, 516, -1, -1, $WS_EX_LAYERED, $WS_EX_TOOLWINDOW)
; Activation de la fonction sortie() en cas de sortie de la GUI
GUISetOnEvent($GUI_EVENT_CLOSE, "sortie")
GUISetBkColor(0xFFFFFF)

; Création de l'image de fond.
$Img = GUICtrlCreatePic($pic, 0, 0, 641, 310)

; Création du bouton.
$Button = GUICtrlCreateButton("Commencer l'installation", 435, 453, 180, 24)
; Activation de la fonction Install() en cas de clic sur le bouton.
GUICtrlSetOnEvent(-1, "Install")

; Création de l'InputBox.
$Input = GUICtrlCreateInput("", 35, 257, 180, 24)
; On rend l'inputBox invisible.
GUICtrlSetState (-1, $GUI_HIDE)

; On affiche la GUI.
GUISetState(@SW_SHOW)


; Boucle d'attente (Ne rien rajouter dedans)
While 1
    Sleep(50)
WEnd


Func Install()
    ; Si le bouton est le 1er bouton :
    If GUICtrlRead($Button) = "Commencer l'installation" Then ; Si le bouton est le 1er bouton.
        GUICtrlSetState($Input, $GUI_SHOW) ; On affiche l'InputBox
        GUICtrlSetData($Button, "") ; Mise à blanc du bouton.
        $Folder = FileSelectFolder("Choisir le dossier d'installation de iSafari :", @ProgramFilesDir) ; Choix destination
        GUICtrlSetData($Input, $Folder) ; On affiche la destination dans l'inputBox
        GUICtrlSetData($Button, "Installer iSafari") ; On change le texte du bouton.
        GUICtrlSetImage($Img, $pic2) ; On change l'image de fond.
    
    ; Sinon si le bouton est le deuxième bouton.
     ElseIf GUICtrlRead($Button) = "Installer iSafari" Then
        ; Début de l'installation de iSafari
        GUICtrlSetData($Button, "") ; Mise à blanc du bouton.
        SplashTextOn("", "Installation en cours", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
        Sleep(1000)
        SplashTextOn("", "Finalisation", 450, 70, -1, -1, 0 + 1 + 16 + 32, "Verdana", 10, 800)
        Sleep(3000)
        SplashOff()
        GUICtrlSetData($Button, "Quitter") ; On change le texte du bouton.
                        
; ################################################################################
; Je ne sais pas en quoi consiste cette partie puisqu'il me manque les images !!!!
; De plus il y à une incohérence avec $pic3 ...
;       $pic5 = GUICtrlCreatePic($pic4, 0, 0, 641, 76)  
;       GUICtrlDelete($pic5)
;       $pic3 = GUICtrlCreatePic($pic3, 0, 0, 641, 379)
; ################################################################################
        
    ; Sinon ...
    Else
        sortie()
    EndIf   
EndFunc


Func sortie()
    Exit
EndFunc