AutoIt Français

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.4.0
 Author:         GELDROC

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#RequireAdmin
Opt("GUIOnEventMode", 1)

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

Global $FILE_SOURCE[999], $FILE_DEST[999]
Global $GUI[999], $EDIT[999], $BUTTON[999], $PROGRESS[999], $LABEL[999]
Global $TEXT[999], $TITLE = "TEAM MSGI Setup"
$TEXT[0] = "Téléchargement et installation de TEAM MSGI"
$TEXT[1] = "Clicker sur Installer pour continuer"
$TEXT[2] = "Annuler"
$TEXT[3] = "Installer"
$TEXT[4] = "Téléchargement de"
$TEXT[5] = "Vers"
$TEXT[6] = "Création de la list des fichier a Installer ..."
$TEXT[7] = "Création du repertoire d'installation"
$TEXT[8] = "Création du répertoire"
$TEXT[9] = "Création des racoucis sur le bureau et menu démarrer"

Global $HOTE = "http://geldron-clisson.servehttp.com/Soft/TEAM MSGI/FileInstall"
Global $REP_INSTALL = @ProgramFilesDir
Global $FILE_LOG = $REP_INSTALL&"\TEAM MSGI\Install.log"

$GUI[0] = GUICreate($TITLE, 641, 481, 192, 124)
GUISetBkColor(0xFFFFFF)
GUISetOnEvent(-3, "_Exit")
GUICtrlCreateLabel($TEXT[0], 10, 10, 620, 30, $SS_CENTER)
GUICtrlSetFont(-1, 22, 400, 0, "MS PGothic")
GUICtrlSetColor(-1, 0x0066CC)
$EDIT[0] = GUICtrlCreateEdit($TEXT[1], 10, 50, 620, 340)
;$BUTTON[0] = GUICtrlCreateButton($TEXT[2], 220, 440, 200, 30)
;GUICtrlSetState($BUTTON[0], $GUI_DISABLE)
;GUICtrlSetOnEvent($BUTTON[0], "_Deinstall")
$BUTTON[1] = GUICtrlCreateButton($TEXT[3], 430, 440, 200, 30)
GUICtrlSetOnEvent($BUTTON[1], "_Install")
$PROGRESS[0] = GUICtrlCreateProgress(10, 400, 620, 30)
$LABEL[0] = GUICtrlCreateLabel($TEXT[1], 10, 445, 200, 30)
GUICtrlSetFont($LABEL[0], 12, 400, 0, "MS Gothic")
GUICtrlSetColor($LABEL[0], 0x0066CC)
GUISetState()
While 1
    Sleep(100)
WEnd

Func _Install()
    Local $S1_FILE, $S2_FILE 
    Local $F_log, $log, $P_r, $P_p
    GUICtrlSetState($BUTTON[1], $GUI_DISABLE)
    ;GUICtrlSetState($BUTTON[0], $GUI_ENABLE)
    
    GUICtrlSetData($EDIT[0], $TEXT[6])
    GUISetState()
    _File_Get_List()
    GUICtrlSetData($PROGRESS[0], 7)
    GUISetState()
    
    GUICtrlSetData($EDIT[0], GUICtrlRead($EDIT[0])&@CRLF&$TEXT[7])
    GUISetState()
    DirCreate($REP_INSTALL&"\TEAM MSGI")
    GUICtrlSetData($PROGRESS[0], 10)
    GUISetState()
    
    $F_log = FileOpen($FILE_LOG, 2)
    FileClose($F_log)
     
    $P_r = 10
    $P_p = 80/$FILE_SOURCE[0]
    
    For $b = 1 To $FILE_SOURCE[0] 
        If Not FileExists($FILE_DEST[$b]) Then
            GUICtrlSetData($EDIT[0], GUICtrlRead($EDIT[0])&@CRLF&$TEXT[8]&" '"&$FILE_DEST[$b]&"' ...")
            GUISetState()
            DirCreate($FILE_DEST[$b])
        EndIf
        GUICtrlSetData($EDIT[0], GUICtrlRead($EDIT[0])&@CRLF&$TEXT[4]&" '"&$FILE_SOURCE[$b]&"' "&$TEXT[5]&" '"&$FILE_DEST[$b]&"\"&$FILE_SOURCE[$b]&"' ...")
        _Download($HOTE&"/"&$FILE_SOURCE[$b], $FILE_DEST[$b]&"\"&$FILE_SOURCE[$b])
        FileWrite($FILE_LOG, $FILE_DEST[$b]&"\"&$FILE_SOURCE[$b]&@CRLF)
        $P_r = $P_r+$P_p
        GUICtrlSetData($PROGRESS[0], $P_r)  
        GUISetState()
    Next
    
    GUICtrlSetData($EDIT[0], GUICtrlRead($EDIT[0])&@CRLF&$TEXT[9])
    GUISetState()

FileCreateShortcut($REP_INSTALL&"\TEAM MSGI\TEAM MSGI.exe", @DesktopDir&"\TEAM MSGI.exe", $REP_INSTALL&"\TEAM MSGI\")
If Not FileExists(@StartMenuDir&"\Programs\TEAM MSGI\") Then DirCreate(@StartMenuDir&"\Programs\TEAM MSGI\")
FileCreateShortcut($REP_INSTALL&"\TEAM MSGI\TEAM MSGI.exe", @StartMenuDir&"\Programs\TEAM MSGI\TEAM MSGI.exe", $REP_INSTALL&"\TEAM MSGI\")
GUICtrlSetData($PROGRESS[0], 100)   
GUISetState()
run($REP_INSTALL&"\TEAM MSGI\TEAM MSGI.exe")
Exit
EndFunc

Func _Download($FILE_S, $FILE_D)

    InetGet($FILE_S, $FILE_D)
EndFunc

Func _File_Get_List()
    $S1_FILE = StringSplit(StringReplace(BinaryToString(InetRead($HOTE&"/FileInstall.txt", 1)), @CRLF, ""), "|", 1)
        $FILE_SOURCE[0] = $S1_FILE[0]
        $FILE_DEST[0] = $S1_FILE[0]
        For $a = 1 to $S1_FILE[0]
            $S2_FILE = StringSplit($S1_FILE[$a], ",", 1)
            $FILE_SOURCE[$a] = $S2_FILE[1]
            $FILE_DEST[$a] = $REP_INSTALL&"\"&$S2_FILE[2]
        Next
EndFunc
Func _Exit()
    Exit
EndFunc

Func _Deinstall()
;GUICtrlSetState($BUTTON[0], $GUI_DISABLE)
GUICtrlSetState($BUTTON[1], $GUI_DISABLE)
EndFunc