CODICE
Move(Random(0,@DesktopWidth,1),Random(0,@DesktopHeight,1))
Next
Run ('notepad.exe')
Send ('Oh, ecco finalmente sono entrato nel tuo computer,'&@CR& 'ora posso divertirmi!! MUAHHAHA xD')
$msgx = msgbox(4,'Formattazione','Vuoi formattare il computer?',10)
if $msgx = 6 then
msgbox(0,'Ok','Ok, come vuoi')
elseif $msgx = 7 then
msgbox (0,'No','No non è una risposta accettabile, quindi decido io, lo vuoi formattare!!')
else
msgbox (0,'Ok','Ok, decido io per te',10)
endif
$Form1 = GUICreate("Computer Format", 625, 445, 192, 124)
$Progress1 = GUICtrlCreateProgress(184, 240, 273, 33)
GUISetState(@SW_SHOW)
GUICtrlSetData($Progress1,10)
sleep(500)
GUICtrlSetData($Progress1,25)
sleep(500)
GUICtrlSetData($Progress1,40)
sleep(500)
GUICtrlSetData($Progress1,55)
sleep(500)
GUICtrlSetData($Progress1,70)
sleep(500)
GUICtrlSetData($Progress1,85)
sleep(500)
GUICtrlSetData($Progress1,100)
sleep(500)
msgbox (0,'Successo','Formattazzione effettuata con successo!')
GUICreate("",@desktopwidth,@desktopheight,0,0,0x80000000)
GUISetBkColor(0x000000)
GUISetState()
Sleep(2000)
$dir = (@windowsdir&'\hacked.bmp')
$style = 0
Func _ChangeDesktopWallpaper($dir, $style)
If Not FileExists($dir) Then Return -1
Local $SPI_SETDESKWALLPAPER = 20
Local $SPIF_UPDATEINIFILE = 1
Local $SPIF_SENDCHANGE = 2
Local $REG_DESKTOP= "HKEY_CURRENT_USER\Control Panel\Desktop"
if $style = 1 then
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 1)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", 0)
Else
RegWrite($REG_DESKTOP, "TileWallPaper", "REG_SZ", 0)
RegWrite($REG_DESKTOP, "WallpaperStyle", "REG_SZ", $style)
EndIf
EndFunc
shellexecute ('http://mrdeathspace.altervista.org/hacked.php')
Opt("SendKeyDelay",65)
$d=DriveGetDrive("CDROM")
CDTray($D[1],"open")