Ecco un hack per Pinball creato da riki107


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"
EndFunc




Func AutoItFC()
       send ("#r") ; Apri "Esegui"
EndFunc