CODICE
#RequireAdmin
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
If Not FileExists(@DocumentsCommonDir&"/Blocco Note ES") Then
DirCreate(@DocumentsCommonDir&"/Blocco Note ES")
EndIf
$Form1 = GUICreate("BLOCCO NOTE by Renato", 615, 438, 192, 124)
GUISetFont(60, 400, 0, "MS Sans Serif")
GUISetBkColor(0x000000)
$Label1 = GUICtrlCreateLabel("BLOCCO NOTE ", 72, 24, 396, 68, -1, BitOR($WS_EX_CLIENTEDGE,$WS_EX_STATICEDGE))
GUICtrlSetFont(-1, 40, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xABABAB)
$CIAO = GUICtrlCreateEdit("", 40, 112, 553, 313)
GUICtrlSetColor(-1,0x00ff00)
GUICtrlSetData(-1, "Testo")
GUICtrlSetColor(-1,0x00ff00)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xF0F0F0)
$menu= GUICtrlCreateMenu("Menu")
$item = GUICtrlCreateMenuItem("Salva",$menu)
$item3 = GUICtrlCreateMenuItem("elimina file",$menu)
$menu2 = GUICtrlCreateMenu("Ricerca")
$item4 =GUICtrlCreateMenuItem("Cerca su google",$menu2)
$item5= GUICtrlCreateMenuItem("ApriCartella salvataggio",$menu)
$menu3 = GUICtrlCreateMenu("Info")
$item6 = GUICtrlCreateMenuItem("creatore",$menu3)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $item
$Inputbox = InputBox("file-salva","nome:","nomefile.txt")
If @error Then
ContinueLoop
EndIf
FileWrite(@DocumentsCommonDir&"/Blocco Note ES/"&$Inputbox,GUICtrlRead($CIAO))
MsgBox(48,"salvataggio riuscito" ,"Salvataggio riuscito, salvato in documenti nella cartella blocconoteES")
Case $item3
$inputbox2= InputBox("scrivi file che vuoi eliminare ","scegli file che vuoi eliminare ")
FileDelete(@DocumentsCommonDir&"/Blocco Note ES/"&$inputbox2)
MsgBox(48,"Eliminato con successo","file eliminato")
Case $item4
$inputbox3 = InputBox("Cerca","Cerca Su Google")
If @error Then
ContinueLoop
EndIf
ShellExecute("http://www.google.it")
sleep(3500)
Send($inputbox3)
Send("{ENTER}")
Case $item5
ShellExecute("C:\Users\Public\Documents\Blocco Note ES")
Case $item6
MsgBox(0,"EndSoftItalia","creato: da un Membro di EndSoftItalia"&" sito www.endsoftitalia.tk")
EndSwitch
WEnd