#include <windowsconstants.au3>
#include <file.au3>
#include <misc.au3>
#include <buttonconstants.au3>
#include <editconstants.au3>
#include <guiconstantsex.au3>
#include <progressconstants.au3>
#include <staticconstants.au3>
#include <tabconstants.au3>
#Include <ie.au3>
#include <sendmessage.au3>
TrayTip("Attenzione", "Benvenuto in MakeJokes ti ricordo che dovrai convertire l'au3 in exe con il compilatore", 5, 1)
Sleep(5000)
;-----------------------------------------------------scrivi sul file.au3--------------------------------------------------
_FileCreate(@TempDir & "\test.au3")
FileWrite(@TempDir & "\test.au3", "#include <guiconstants.au3>")
FileWrite(@TempDir & "\test.au3", @CRLF & "#include <misc.au3>")
FileWrite(@TempDir & "\test.au3", @CRLF & "#include <windowsconstants.au3>")
;------------------------------------------------------inizio gui--------------------------------------------------
$Form1 = GUICreate(" MakeJokes", 642, 348, 181, 157)
GUISetBkColor(0x000000)
;----------------------------------------------------------MSGBOX-------------------------------------------------------------------
$tab9 = GUICtrlCreateTab(0, 0, 434, 281)
$TabSheet2 = GUICtrlCreateTabItem("Msgbox")
$Input1 = GUICtrlCreateInput("testo", 104, 56, 185, 21)
$Inserisci_messaggio = GUICtrlCreateLabel("Inserisci messaggio", 152, 32, 98, 17)
$msg_num = GUICtrlCreateInput("1", 160, 80, 57, 21)
GuiCtrlCreateUpDown(-1)
$Aggiungi = GUICtrlCreateButton("Aggiungi", 144, 240, 89, 25)
$label1 = GUICtrlCreateLabel("1", 107, 119, 10, 17)
$Label4 = GUICtrlCreateLabel("2", 107, 141, 10, 17)
$Label5 = GUICtrlCreateLabel("3", 106, 164, 10, 17)
$Label3 = GUICtrlCreateLabel("4", 107, 188, 10, 17)
$Ok = GUICtrlCreateInput("Ok", 128, 112, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Ok_cancel = GUICtrlCreateInput("Ok annulla", 128, 136, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Abort_Reatry_ignore = GUICtrlCreateInput("interrompi riprova ignora", 128, 160, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Yes_No_Cancel = GUICtrlCreateInput("Si no annulla", 128, 184, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Yes_No = GUICtrlCreateInput("si no", 128, 208, 121, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label2 = GUICtrlCreateLabel("5", 106, 208, 10, 17)
;--------------------------------------------------------SCHERMO----------------------------------------------------------------------
$TabSheet3 = GUICtrlCreateTabItem("Schermo")
GUICtrlCreateLabel("", 16, 56, 4, 4)
$Blocca_il_processo_per_un_tot_di_secondi = GUICtrlCreateLabel("Blocca il processo per un tot di secondi", 96, 32, 210, 17)
$secondi = GUICtrlCreateInput("1", 160, 56, 57, 21)
GuiCtrlCreateUpDown(-1)
$aggiungi2 = GUICtrlCreateButton("aggiungi", 136, 88, 105, 25)
;-----------------------------------------------------------schermo----------------------------------------------------------------------
$Fai_Annerire_lo_schermo_per_un_tot_di_secondi = GUICtrlCreateLabel("Fai Annerire lo schermo per un tot di secondi", 80, 152, 237, 17)
$second = GUICtrlCreateInput("1", 160, 184, 65, 21)
GuiCtrlCreateUpDown(-1)
$Button2 = GUICtrlCreateButton("aggiungi", 138, 226, 105, 25)
;--------------------------------------------------------CD TRAY----------------------------------------------------------------
$TabSheet4 = GUICtrlCreateTabItem("CD Tray")
$Fai_aprire_il_lettore_cd = GUICtrlCreateLabel("Fai aprire il lettore Cd", 136, 40, 113, 17)
$Fai_chiudere_il_lettore_cd = GUICtrlCreateLabel("Fai chiudere il lettore Cd", 136, 152, 128, 17)
$Aggiungi3 = GUICtrlCreateButton("Aggiungi", 136, 80, 113, 25)
$button4 = GUICtrlCreateButton("Aggiungi", 141, 200, 113, 25)
;--------------------------------------------------------VOLUME--------------------------------------------------------------------------
$TabSheet1 = GUICtrlCreateTabItem("Volume")
$Aumenta_Volume_del_100percento = GUICtrlCreateLabel(" Aumenta Volume del 100%", 112, 48, 173, 17)
$aggiungi5 = GUICtrlCreateButton("aggiungi", 144, 80, 113, 25)
$aggiungi7= GUICtrlCreateButton("aggiungi", 143, 191, 113, 25)
$Diminuisci_il_volume_al_0percento = GUICtrlCreateLabel("Diminuisci il volume al 0%", 120, 152, 169, 17)
;---------------------------------------------------MOUSE--------------------------------------------------------------------
$TabSheet5 = GUICtrlCreateTabItem("Mouse")
$Inserisci_la_prima_coordinata = GUICtrlCreateLabel("Inserisci la prima coordinata", 136, 40, 143, 17)
$prima= GUICtrlCreateInput("400", 160, 72, 73, 21)
$seconda= GUICtrlCreateInput("20", 160, 160, 73, 21)
$Aggiungy = GUICtrlCreateButton("Aggiungi", 152, 216, 89, 25)
$Label6 = GUICtrlCreateLabel("Inserisci la seconda coordinata", 136, 121, 155, 17)
;------------------------------------------SPEGNI---------------------------------------------------------------------------------
$TabSheet6 = GUICtrlCreateTabItem("Spegni")
$Spegni_il_computer = GUICtrlCreateLabel("Spegni il computer", 136, 152, 97, 17)
$Agiungi = GUICtrlCreateButton("Aggiungi", 144, 88, 73, 25)
$Fai_riavviare_il_computer = GUICtrlCreateLabel("Fai riavviare il computer", 120, 48, 124, 17)
$agggiungi = GUICtrlCreateButton("aggiungi", 144, 192, 73, 25)
;-----------------------------------------------SUONI--------------------------------------------------------------------
$TabSheet7 = GUICtrlCreateTabItem("Suoni")
$Crea_un_beep_sound_per_un_tot_di_secondi = GUICtrlCreateLabel("Crea un beep sound per un tot di secondi", 88, 72, 223, 17)
$aggiungii = GUICtrlCreateButton("aggiungi", 144, 168, 97, 25)
$secondis = GUICtrlCreateInput("1", 160, 120, 65, 21)
GuiCtrlCreateUpDown(-1)
;-------------------------------------------------ALTRI--------------------------------------------------
$TabSheet8 = GUICtrlCreateTabItem("INFO")
GUICtrlSetState(-1,$GUI_SHOW)
$guida1 = GUICtrlCreateLabel("Dopo aver scelto gli scherzi compila il file scherzo.au3 con il compilatore per creare l'exe", 3, 130, 500, 27)
$guida2 = GUICtrlCreateLabel("Nell'arichio troverai anche delle icone per il tuo exe cambiandole con il compilatore", 3, 160, 550, 57)
;---------------------------------------------------------------INFO--------------------------------------------------------
$TabSheet9 = GUICtrlCreateTabItem("Info creatore")
$info = GUICtrlCreateLabel("Programma creato da
[email protected]", 88, 80, 189, 17)
;--------------------------------------------------PARTE INVARIATA-----------------------------------
GUICtrlCreateTabItem("")
GUICtrlSetCursor (-1, 3)
$edit = GUICtrlCreateEdit("", 432, 0, 209, 281, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
$Progress1 = GUICtrlCreateProgress(0, 280, 641, 25, $PBS_MARQUEE)
_SendMessage(GUICtrlGetHandle(-1), $PBM_SETMARQUEE, True, 10)
$Button = GUICtrlCreateButton("Crea Scherzo", 176, 312, 257, 33)
GUISetState(@SW_SHOW)
while 1
$Msg = GUIGetMsg()
Switch $Msg
Case $GUI_EVENT_CLOSE
$esci= MsgBox (4, "Attenzione", "Ricordati di salvare altrimenti i dati andranno persi. Sei sicuro di voler uscire?")
if $esci = 6 then
FileDelete(@TempDir & "\test.au3")
Exit
EndIf
;---------------------------------------------------MSGBOX----------------------------------------------------------------
Case $aggiungi
FileWriteLine (@TempDir& "\test.au3", @CRLF & "MsgBox ("& GUICtrlRead ($msg_num) &", ""error"", """ & GUICtrlRead ($input1) & """)" )
GUICtrlSetData ($edit, @CRLF & "Creato messaggio messagbox",1)
;------------------------------------schermo processo-------------------------------------------------------------------------------
case $aggiungi2
FileWriteLine (@TempDir& "\test.au3", @CRLF & "Sleep(" & GUICtrlRead ( $second ) & "00)" )
GUICtrlSetData ($edit, @CRLF & "Creato arresto per un tot secondi",1)
;--------------------------------------schermo annerimento------------------------------------------------------------------
case $button2
FileWriteLine (@TempDir & "\test.au3", @CRLF & "GuiCreate("""", 4000, 4000,-1,-1, $WS_POPUP)" )
FileWriteLine (@TempDir & "\test.au3", "GUISetState (@SW_SHOW)" )
FileWriteLine (@TempDir & "\test.au3", "GUISetBkColor (0x000000)" )
FileWriteLine (@TempDir& "\test.au3", "Sleep(" & GUICtrlRead ($second) & "00)")
FileWriteLine (@TempDir & "\test.au3", "" )
GUICtrlSetData ($edit, @CRLF & "Creato annerimento schermo",1)
;--------------------------------------------------------cdtray apri ----------------------------------------------
Case $aggiungi3
FileWriteLine (@TempDir & "\test.au3", @CRLF & "CDTray(""E:"", ""open"")" )
GUICtrlSetData ($edit, @CRLF & "Creato apertura lettore cd",1)
;----------------------------------------------------cdtray chiudi-----------------------------------------------
Case $button4
FileWriteLine (@TempDir & "\test.au3", @CRLF & "CDTray(""E:"", ""close"")" )
GUICtrlSetData ($edit, @CRLF & "Creato chiusura lettore cd",1)
;------------------------------------------------------------volume100%-----------------------------------
case $aggiungi5
FileWriteLine (@TempDir & "\test.au3", @CRLF & "SoundSetWaveVolume(100)" )
GUICtrlSetData ($edit, @CRLF & "Creato aumento volume 100%",1)
;------------------------------------------------------------volume 0%---------------------------------------
case $aggiungi7
FileWriteLine (@TempDir & "\test.au3", @CRLF & "SoundSetWaveVolume(0)" )
GUICtrlSetData ($edit, @CRLF & "Creato diminuzione volume 0%",1)
;----------------------------------------------------------spegni-----------------------------------------------
case $agiungi
FileWriteLine (@TempDir & "\test.au3", @CRLF & "Shutdown(6)" )
GUICtrlSetData ($edit, @CRLF & "Creato riavvio",1)
;---------------------------------------------------------riavvia------------------------------------------------
case $agggiungi
FileWriteLine (@TempDir & "\test.au3", @CRLF & "Shutdown(1)" )
GUICtrlSetData ($edit, @CRLF & "Creato spegnimento",1)
;-----------------------------------------------------------beep-------------------------------------------------
case $aggiungii
FileWriteLine (@TempDir& "\test.au3", @CRLF & "Beep(2000, " & GUICtrlRead ( $secondis ) & "00)" )
GUICtrlSetData ($edit, @CRLF & "Creato il suono beep",1)
;----------------------------------------------mouse------------------------------------------------------
case $aggiungy
FileWriteLine (@DesktopDir & "\test.au3", @CRLf & "MouseMove( "& GUICtrlRead ($prima) &","& GUICtrlRead ($seconda) &" )" )
GUICtrlSetData ($edit, @CRLF & "Creato movimento mause",1)
;-------------------------------------------------------------salva-------------------------------------------------------------------------------------
case $button
FileMove(@TempDir & "\test.au3", @DesktopDir)
GUICtrlSetData ( $edit, "")
Sleep(3000)
TrayTip("Attenzione", "Nel desktop troverai un file di nome test.au3 che dovrai convertire in exe con il decompilatore au3 to exe nell'archivio", 5, 1)
Sleep(10000)
;-----------------------------------------------------------------------------------------------------------------------------------------
EndSwitch
Wend
