AutoIt Editor creato con AutoIt

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

AutoIt Version: 3.3.6.1
Autore: Kururu95
Versione: 1.0

Funzione dello script:
Creazione guidata codice AutoIt.

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

; Script Start

Global $script = "; Autore: Kururu95"&@CRLF,$percorso=""

MsgBox(0,"AutoIt","Creazione guidata codice AutoIt, benvenuto!")

#include <buttonconstants.au3>
#include <comboconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <windowsconstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AutoIT Editor", 225, 338, 258, 137)
$Button1 = GUICtrlCreateButton("Crea", 8, 32, 209, 25)
$Combo1 = GUICtrlCreateCombo("Seleziona un controllo", 8, 8, 209, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "MsgBox|InputBox")
$Edit = GUICtrlCreateEdit("", 8, 64, 209, 233)
GUICtrlSetData(-1, "")
$Button2 = GUICtrlCreateButton("Salva", 16, 304, 193, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$scelta = GUICtrlRead($Combo1)
If $scelta=="MsgBox" Then
autoMsgBox()
ElseIf $scelta="InputBox" Then
autoInputBox()
Else
MsgBox(0,"Errore","Scegli un controllo da creare")
EndIf
GUICtrlSetData($edit, $script)
Case $Button2
$percorso = FileSaveDialog("Salva", @DesktopDir, "AutoIt 3 Scfipt (*.au3)", "", "mioscript.au3")
FileWrite($percorso, $script)
GUICtrlSetData($edit, $script)
EndSwitch
WEnd

Func autoMsgBox()
$flag=""
$titolo=""
$testo=""
$flag=InputBox("Creazione MsgBox","Inserisci il flag")
$titolo=InputBox("Creazione MsgBox","Inserisci il titolo")
$testo=InputBox("Creazione MsgBox","Inserisci il testo")
$script=$script&@CRLF&"MsgBox("&$flag&",'"&$titolo&"','"&$testo&"')"
EndFunc

Func autoInputBox()
$titolo=""
$testo=""
$titolo=InputBox("Creazione InputBox","Inserisci il titolo")
$testo=InputBox("Creazione InputBox","Inserisci la domanda")
$script=$script&@CRLF&"InputBox('"&$titolo&"','"&$testo&"')"
EndFunc