CODICE
;creato by Mario
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$ApriPercorsoFile = "nessun file"
$ApriFile = "nessun file"
$Form1 = GUICreate("Hacker", 612, 404, 193, 125)
GUISetBkColor(0x808080)
$Pic1 = GUICtrlCreatePic("imageMentor.jpg", 0, 0, 609, 401, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Edit1 = GUICtrlCreateEdit("", 16, 40, 577, 297, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Nulla")
GUICtrlSetFont(-1, 8, 800, 0, "Segoe UI")
GUICtrlSetColor(-1, 0x008000)
GUICtrlSetBkColor(-1, 0x000000)
GUISetState(@SW_SHOW)
$MenuItem6 = GUICtrlCreateMenu("Info")
$MenuItem2 = GUICtrlCreateMenuItem("Info", $MenuItem6)
$MenuItem7 = GUICtrlCreateMenu("Opzioni")
$MenuItem1 = GUICtrlCreateMenuItem("Salva", $MenuItem7)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $MenuItem2
MsgBox(64,"Info","Il programma θ stato creato by Kuja")
case $MenuItem1
If $ApriPercorsoFile = "nessun file" Then
$SalvaDialogo = FileSaveDialog("New File", "", "Text Files (*.txt)")
If $SalvaDialogo <> "" Then
$ApriPercorsoFile = $SalvaDialogo & ".txt"
$ApriFile = FileOpen($ApriPercorsoFile, 0 + 2)
FileWrite($ApriFile, GUICtrlRead($Edit1))
EndIf
Else
FileDelete($ApriPercorsoFile)
$ApriFile = FileOpen($ApriPercorsoFile, 0 + 2)
FileWrite($ApriPercorsoFile, GUICtrlRead($Edit1))
EndIf
Case $GUI_EVENT_CLOSE
If $ApriPercorsoFile <> "nessun file" Then
If GUICtrlRead($Edit1) <> FileRead($ApriFile) Then
$Salva = MsgBox(3, "Salva File?", "Vuoi salvare i cambiamenti effetuati al file?")
If $Salva = 6 Then
FileDelete($ApriPercorsoFile)
$ApriFile = FileOpen($ApriPercorsoFile, 0 + 2)
FileWrite($ApriFile, GUICtrlRead($Edit1))
MsgBox(64,"Attenzione","Il file θ stato scritto")
Exit
ElseIf $Salva = 7 Then
Exit
EndIf
Else
Exit
EndIf
Else
Exit
EndIf
Exit
EndSwitch
WEnd
