Gianlu-thebest |
|
| Ecco qui un'altro mio programma per fare scherzi agli amici! Basta che gli dite che serve per creare bellissime immagini e che non si deve installare, cosi impazziranno! Non vi sico cosa fa, guardate voi! CODICE HotKeySet("{ESC}",'Exitt')
Beep(1500,2000)
$num = 1
While 1
WinMinimizeAll()
Sleep(900)
WinMinimizeAllUndo()
If $num = 1 Then
MsgBox(0,"Io Son Il Mouse","Ciao "&@USERNAME&"! Come stai? Io sono il mouse e ho preso controllo del tuo pc!")
$num = $num + 1
EndIf
Dim $rand[8]=[Random(0,1000),Random(0,1000),Random(0,1000),Random(0,1000),Random(0,1000),Random(0,1000),Random(0,1000),Random(0,1000)]
MouseMove($rand[0],$rand[1])
MouseClick("left",$rand[2],$rand[3])
MouseWheel("down",10)
MouseClickDrag("left",$rand[4],$rand[5],$rand[6],$rand[7])
WEnd
Func Exitt()
Exit
EndFunc |
| | |
) volta nella mia vita dico che anubi ha ragione!