AutoIt Français

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Global $file
; variables specifique aux boite de dialogue
Global $MonFlag, $MonTitre, $MonTxt, $MonTimer

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("MsgBox Générator", 373, 420, 243, 140)
$Tab1 = GUICtrlCreateTab(8, 16, 353, 321)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Executable")
$Group1 = GUICtrlCreateGroup("Message Box", 24, 64, 313, 193)
$Label1 = GUICtrlCreateLabel("Titre :", 48, 104, 31, 17)
$Input1 = GUICtrlCreateInput("Entrez un titre !", 174, 104, 121, 21)
$Label2 = GUICtrlCreateLabel("Texte :", 48, 154, 37, 17)
$Label3 = GUICtrlCreateLabel("Icone :", 48, 204, 37, 17)
$Combo1 = GUICtrlCreateCombo("Combo1", 174, 204, 121, 25)
GUICtrlSetData(-1, "Fatal Error [16]|Question [32]|Exclamation [48]|Information [64]")
$Input2 = GUICtrlCreateInput("Entrer votre Texte !", 174, 154, 121, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button4 = GUICtrlCreateButton("Voir Ma Boite", 104, 260, 161, 33, $WS_GROUP) ; Pour previsualiser la boite de dialogue
$Button1 = GUICtrlCreateButton("Créer l'executable", 104, 295, 161, 33, $WS_GROUP)
$TabSheet2 = GUICtrlCreateTabItem("Configurations")
$Label4 = GUICtrlCreateLabel("Chemin de destination de l'exe :", 32, 64, 185, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("", 32, 96, 201, 21)
$Button2 = GUICtrlCreateButton("...", 240, 96, 25, 21, $WS_GROUP)
$Label5 = GUICtrlCreateLabel("Chemin de l'icone de l'exe :", 32, 176, 160, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Input4 = GUICtrlCreateInput("", 32, 208, 201, 21)
$Button3 = GUICtrlCreateButton("...", 240, 208, 25, 21, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Nom de l'exe :", 32, 288, 71, 17)
$Input5 = GUICtrlCreateInput("", 120, 280, 145, 21)
GUICtrlCreateTabItem("")
; **** la bar de progresseion est inutile a mon sens car la compilation sera tres rapide *********
;$Progress1 = GUICtrlCreateProgress(40, 360, 257, 41)
;$Label6 = GUICtrlCreateLabel("0%", 312, 368, 31, 28)
;GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit ; pour sortir du prog en cliquand sur la croix
Case $Button4
Init_Variables_Boite()
MaBoite_previsualisation()

Case $Button1
Init_Variables_Boite()
MaBoite_creation()

Exit

EndSwitch
WEnd


; ********* Pour initialiser les diferentes varaibles des boite de dialogue ***********************
Func Init_Variables_Boite()
$MonFlag = 0 ; il existe differant type de boite de dialogue pour simplifier je fixe cette variable a 0
$MonTitre = GUICtrlRead($Input1)
$MonTxt = GUICtrlRead($Input2)
$MonTimer = 0 ; idem il exciste trop de type et de parametre......

EndFunc

; ********************** pour la prévisualisation d ela boite de dialogue ***************************
Func MaBoite_previsualisation()
MsgBox($MonFlag, $MonTitre, $MonTxt, $MonTimer)

EndFunc

;***************** création du scripte et compilation automatique (transparent pour l'utilisateur ) ****************
Func MaBoite_creation()

; création du fichier
$file = FileOpen("C:\MesBoites\MaBoite.au3", 10) ; ici la valeur 10 permet de crée l'arborescence et le fichier

If $file = -1 Then ; test de securité si le fichier ne peut pas etre ouvert
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf

; ecriture d'une ligne dans le fichier texte (il y a peut eter une methode plus simple ou differente mais la de suite je vois pas )
FileWrite($file, "MsgBox(" & $MonFlag & ',"' & $MonTitre & '","' & $MonTxt & '",' & $MonTimer & ')' )

FileClose($file) ; Fermeture du fichier

; cette ligne permet de recuperer le chemin de Aut2exe utile dans ce cas specifique....
$Chemin = StringLeft(@AutoItExe,StringLen(@AutoItExe) - 11) & "Aut2Exe"

; fonction run va permetre de crée l'executable
Run($Chemin & '\Aut2exe.exe /in C:\MesBoites\MaBoite.au3 /out C:\MesBoites\MaBoite.exe', "", @SW_HIDE )
; @SW_HIDE : permet de cache l'invite de commande MS-DOS

EndFunc