AutoIt Français

Code : Tout sélectionner

#include <File.au3>
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>

If $CmdLine[0] = 1 Then
GUI1($CmdLine[1])
EndIf   


Func GUI1($FILE)
Local $INPUT1, $INPUT2, $INPUT3, $INPUT4, $BUTTON1, $BUTTON2, $StringFILE, $BUTTON3, $BUTTON4
GUICreate("AutoIt Secour 1.0 Beta ", 300, 265, -1, -1)
GUICtrlCreateLabel("Fichier a Integrer dans le script : ", 10, 10, 280, 20)
$INPUT1 = GUICtrlCreateInput("", 10, 30, 240, 20)
$BUTTON1 = GUICtrlCreateButton("...", 260, 29, 30, 22)
GUICtrlCreateLabel("Mot de passe pour recuperer le fichier integrer : ", 10, 60, 280, 15)
GUICtrlCreateLabel("Exemple :('Script.exe Mot_de_passe') ", 10, 75, 280, 20)
$INPUT2 = GUICtrlCreateInput("", 10, 95, 280, 20, $ES_PASSWORD)
GUICtrlCreateLabel("Confirmer le mots de passe : ", 10, 120, 280, 20)
$INPUT3 = GUICtrlCreateInput("", 10, 140, 280, 20, $ES_PASSWORD)
GUICtrlCreateLabel("Icon de l'éxécutable : ", 10, 170, 280, 20)
$INPUT4 = GUICtrlCreateInput(@ProgramFilesDir&"\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico", 10, 190, 180, 20)
$BUTTON3 = GUICtrlCreateButton("...", 200, 189, 30, 22)
$BUTTON4 = GUICtrlCreateButton("Default", 240, 189, 50, 22)
$BUTTON2 = GUICtrlCreateButton("Compiler", 10, 225, 280, 30)

GUISetState()



    While 1
        Switch GUIGetMsg()
            case $GUI_EVENT_CLOSE
                Exit
            case $BUTTON1
                $StringFILE = StringSplit($FILE, "\", 1)
                $StringFILE  = StringSplit($FILE, $StringFILE[$StringFILE[0]], 1)
                GUICtrlSetData($INPUT1, FileOpenDialog("Selectionner un fichier", $StringFILE[1], "(*.*)"))
            Case $BUTTON2
                IF Control(GUICtrlRead($INPUT1), GUICtrlRead($INPUT2), GUICtrlRead($INPUT3), GUICtrlRead($INPUT4)) = 1 Then
                    If Compile($FILE, GUICtrlRead($INPUT2), GUICtrlRead($INPUT1), GUICtrlRead($INPUT4)) = 0 Then
                        MsgBox(0, "OK", "Compilation Terminner avec Sucse")
                        Exit
                    EndIf
                Else
                    MsgBox(0, "Ereur", Control(GUICtrlRead($INPUT1), GUICtrlRead($INPUT2), GUICtrlRead($INPUT3), GUICtrlRead($INPUT4)))
                EndIf
            case $BUTTON3
                $StringFILE = StringSplit($FILE, "\", 1)
                $StringFILE  = StringSplit($FILE, $StringFILE[$StringFILE[0]], 1)
                GUICtrlSetData($INPUT4, FileOpenDialog("Selectionner un fichier", $StringFILE[1], "(*.ico)"))
            case $BUTTON4
                GUICtrlSetData($INPUT4, @ProgramFilesDir&"\AutoIt3\Aut2Exe\Icons\AutoIt_Old4.ico")
        EndSwitch
    WEnd
EndFunc

Func Control($READ1 = "", $READ2 = "", $READ3 = "", $READ4 = "")
Local $carct[44] = ["²", "~", '"', "#", "'", "{", "(", "[", "-", "|", "è", "`", "_", "\", "^", _
 "@", ")", "°", "]", "=", "+", "}", "€", "^", "¨", "$", "£", "¤", "ù", "%", "*", "µ", ",", _
 "?", ";", ".", ":", "/", "!", "§", "<", ">", "/", "*"]
    If $READ1 = "" Then Return "Rempliser le chand de texte : Chemin"
    If Not FileExists($READ1) Then Return "Le fichier suivant est introuvable"&@CRLF&$READ1
    If $READ2 = "" Then Return "Choisiser un Mots de passe"
    If $READ2 <> $READ3 Then Return "Le mot de passe de confirmation est diferent du premier"
    For $VAR = 1 To 43
    $SPLIT = StringSplit($READ2, $carct[$VAR], 1)
        If $SPLIT[0] > 1 Then Return "Le mots de passe Doit contenir seulement des chifre et ou des letre sans espase"
    Next 
    If $READ4 = "" Then Return "Rempliser le chand de texte : Icon" 
    Return 1
EndFunc


Func Compile($Script, $Code, $Resource, $Icon)
Local $string
    If Stringleft(FileReadLine($Script, 1), 38) <> "If $CmdLine[0] <> 0 And $CmdLine[1] = " Then 
        $string = StringSplit($Resource, "\", 1)
        $string = $string[$string[0]]
        $TEXT = 'If $CmdLine[0] <> 0 And $CmdLine[1] = "'&$Code&'" Then' 
        $TEXT&=@CRLF
        $TEXT&= 'FileInstall("'&$Resource&'", @ScriptDir&"\'&$string&'", 1)'
        $TEXT&=@CRLF
        $TEXT&= 'Exit'
        $TEXT&=@CRLF
        $TEXT&= 'EndIf'
        $TEXT&=@CRLF
        _FileWriteToLine($Script, 1, $TEXT)
        Return RunWait(@ProgramFilesDir&'\AutoIt3\Aut2Exe\Aut2Exe.exe '&'/in "'&$Script&'" '&'/icon "'&$Icon&'"')
    Else
        For $VAR = 0 to 4
            _FileWriteToLine($Script, 1, "", 1)
        Next
        Return Compile($Script, $Code, $Resource)
    EndIf
EndFunc