CODICE
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Pinball = GUICreate("Pinball Cheat", 547, 213, 290, 141)
$MenuItem1 = GUICtrlCreateMenu("&Info")
$MenuItem2 = GUICtrlCreateMenuItem("Riconoscimenti", $MenuItem1)
$Label1 = GUICtrlCreateLabel("Questo script permette di muovere la pallina del gioco Pinball di Windows con il mouse.", 80, 8, 412, 17)
$Label2 = GUICtrlCreateLabel("Premendo il pulsante 'Avvia' , finchè il tasto sinistro rimarrà premuto, la pallina seguirà il puntatore.", 48, 32, 465, 17)
$Label3 = GUICtrlCreateLabel("Inoltre, premendo il tasto 'h' sulla tastiera, si aprirà la schermata dei punteggi con 1.000.000.000 di punti", 32, 56, 495, 17)
$Label4 = GUICtrlCreateLabel("(purtroppo lo score non può essere salvato)", 176, 80, 208, 17)
$Label5 = GUICtrlCreateLabel("Chiudendo il gioco il trucco terminerà", 192, 104, 177, 17)
$Button1 = GUICtrlCreateButton("Avvia", 208, 136, 145, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
Code ()
Case $MenuItem2
Ric()
EndSwitch
WEnd
Func Code()
send ("#r") ; Apri "Esegui..."
sleep (100) ; Tempo di caricamento di 0,1 secondi
send ("pinball.exe") ; digita "*********"
send ("{ENTER}") ; premi il tasto "ENTER" (Invio)
sleep (1000)
WinActivate("[ACTIVE]", "")
sleep (2000)
send ("hidden test")
EndFunc
Func Ric()
$WinRic = GUICreate("Riconoscimenti", 623, 215, 192, 124)
$Label11 = GUICtrlCreateLabel("Creato da riki107 ", 216, 16, 217, 33)
GUICtrlSetFont(-1, 18, 800, 2, "MS Sans Serif")
$Label12 = GUICtrlCreateLabel("Visita il mio forum ", 232, 64, 175, 28)
GUICtrlSetFont(-1, 14, 800, 2, "MS Sans Serif")
$Button11 = GUICtrlCreateButton("Vai a Nothing To Do", 256, 104, 129, 25)
$Label13 = GUICtrlCreateLabel("Ti piace programmare? Vorresti imparare? Entra nella community di AutoIt! ", 64, 144, 529, 20)
GUICtrlSetFont(-1, 10, 800, 2, "MS Sans Serif")
$Button12 = GUICtrlCreateButton("AutoIt Fanclub", 256, 168, 129, 25)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($WinRic)
Return
Case $Button11
ntd()
Case $Button12
AutoItFC()
EndSwitch
WEnd
EndFunc
Func ntd()
send ("#r") ; Apri "Esegui..."
sleep (100) ; Tempo di caricamento di 0,1 secondi
send ("http://ntd.forumcommunity.net/") ; digita "*********"
send ("{ENTER}")
EndFunc
Func AutoItFC()
send ("#r") ; Apri "Esegui..."
sleep (100) ; Tempo di caricamento di 0,1 secondi
send ("http://autoit.forumcommunity.net/") ; digita "*********"
send ("{ENTER}") ; premi il tasto "ENTER" (Invio)
EndFunc