Script AUTOIT.... Utile per scherzi

Ecco uno script in AutoIT scritto interamente da me...
E' molto simpatico per fare scherzi agli amici o far casino sul pc della scuola...
Vi posto solo il sorgente, e non il download, cosi dovrete preoccuparvi di compilarlo.

ATTENZIONE!

Contiene errori voluti da Me!

$stringupped = StringUpper ( "Ciao! Sono un script!" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Sono uno script, e sono programmato in AutoIT" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Tanta roba neh?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Cosi, per curiosità: perche mi hai aperto?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Adesso, dato che mi hai apero, ti romperò le balle..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Diciamo che il tuo pc è in mio possesso..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Almeno... per un po lasciami divertire..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Non ci credi...?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Bhe intanto non riesci a chiudermi..." )
MouseClick("left",1000,1000,1,20)
MouseClick("let",10,50,1,40)
MouseClick("left",1000,50,1,20)
MouseClick("right",10,100,1,20)
MouseClick("left",50,50,1,20)
MouseClick("left",1000,50,1,20)
MouseClick("right",50,100,1,50)
Msgbox (0, "AHHAHAHHAH", StringUpper ( "ci credi adesso?" ))
MsgBox (64,"Il tuo antivirus è disattivato..." , @ComputerName & " Infezione in corso!")
Sleep (2000)
Run ("Notepad.Exe")
Sleep (500)
Send("Mi piace questo pc...."&"{ENTER}")
Sleep (1000Send("Credo che mi divertirò..."&"{ENTER}")
Sleep (1000)
Send("Lettore cd.. APRITI SESAMO!"&"{ENTER}")
Sleep (2000)
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"open")
Next
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"close")
Sleep (1000)
Next
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Sono bravino vero?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Scommetto che adesso hai il terrore di me " )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped  StringUpper ( "Mi sto annoiando... quindi annoierò anche te..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Trallallà" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Come va?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Pero... forse il tuo pc potrei formattarlo..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Ci penserò su..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "C'era una volta un re..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Seduto sul sofà..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Che disse alla sua serva..." Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Raccontami una storia..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUppe ( "La storia incominciò" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Ecc... Ecc... Che noia..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"open")
Next
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"close")
Sleep (1000)
Next
MsgBox (0, "ops, si è riaperto!" , "OPS, SI E' RIAPERTO!")
$string_upped = StrinUpper ( "Se schiacci ok riesci chiudermi..!" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Ma ti pare?" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Rispondi bene alla prossima domanda e non formattero il tuo pc" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( ".........." )
MsgBox (0, "...." , ".....")
$BabboNataleExists = FALSE
Do
Switch Msgbox (32+3, "Domanda: ", "Babbo Natale esiste?", 10)
  Case 2
     Msgbox (0, "Mah", "Ah, non sai rispondere, eh?")
  Case 6
     Msgbox (0, "Mhm", "Teoria interessante...")
     $BabboNataleExists = TRUE
  Case 7
     Msgbox (0, "-_-", "Ok, pensala come vuoi")
  Case Else
     Msgbox (0, "-_____-", "MUOVITI!!!", 30)
EndSwitch
Until $BabboNataleExists = TRUE

Msgbox (, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Come non detto... hai risposto male..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "DI addio al tuo pc... avvio formattazione...." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "formattazione cominciata!" )
Msgbox (0, "Sei fregato...:", $string_uped)
$string_upped = StringUpper ( "1...." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "2...." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "3....." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Booom!" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Ahahahahah! Scommetto che sei morto di paura!" )
Msgbo (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Troppo divertente!!!" )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Bhe... Mi diverto con poco..." )
Msgbox (0, "Sei fregato...:", $string_upped)
$string_upped = StringUpper ( "Sono stufo di romperti le palle... me ne vado... xD" )
Msgbox (0, "Sei fregato...:", $string_upped)