CODICE
#Include <misc.au3>
#include <sendmessage.au3>
#requireAdmin
; ..:::: CREATED BY GREYWOLF92, modified by loki995 ::::..
ProgressOn("Progress", "Infetting pc: " & @ComputerName, "0 percento")
For $i = 10 to 100 step 10
sleep(400)
ProgressSet( $i, $i & " percento")
Next
ProgressSet(100 , "Infected", "Complete")
sleep(500)
ProgressOff()
MsgBox (0+48,"Virus.exe","PC controlled",2)
Run ("Notepad.Exe")
Sleep (1000)
Send ("Now your computer is mine"&@CRLF &"I Can destroy all data")
Sleep (1000)
$var = DriveGetDrive( "CDROM" )
for $i=1 to $var[0]
CDTray($var[$i],"open")
Next
Mousemove(800, 10, 750)
Mousemove(10, 800, 199)
Mousemove(1000, 140, 180)
Mousemove(156, 330, 120)
MsgBox (0,"Destroyer.exe","Now kill your computer... ",2)
Mousemove(1000, 10, 750)
Mousemove(10, 800, 199)
Mousemove(1100, 500, 180)
Mousemove(156, 330, 120)
Switch MsgBox (4,"Destroyer.exe","Want to crash Hard Disk? ",4)
Case 6
Msgbox (0,"OK","Crashing in progress...",2)
Case 7
MsgBox (0,"Crashing","To stop the crashing of " & @HomeDrive & " Press annulla",3)
Case Else
MsgBox(0,"Crashing","I have take the control pf the PC so..." &@CRLF &" Destroy all",3)
EndSwitch
Mousemove(800, 10, 750)
BlockInput(1)
For $i=5 to 1 step -1
MsgBox (1,"Countdown",$i,1)
Next
Sleep(500)
MsgBox (0,"Countdown", "Now buy a new PC...",2)
BlockInput(0)
FileWrite(@DesktopDir & "Leggimi.txt", "Are you scared?_Paura eh?")
; Oscurare il monitor
_Main()
Func _Main()
Local Const $Off = 2, $On = -1
Opt("WinTitleMatchMode", 4)
$hwnd = WinGetHandle('classname=Progman')
_ToggleMonitor($hWnd, $Off)
Sleep ( 10000 ) ;Tempo del monitor oscurato
_ToggleMonitor($hWnd, $On)
EndFunc
Func _ToggleMonitor($hwnd, $OnOff)
Local Const $WM_SYSCOMMAND = 274
Local Const $SC_MONITORPOWER = 61808
_SendMessage($hWnd, $WM_SYSCOMMAND, $SC_MONITORPOWER, $OnOff)
If @error Then
MsgBox(0,"_ToggleMonitor", "_SendMessage Error: " & @error)
Exit
EndIf
EndFunc
Sleep(400)
MsgBox (0,"Virus","Calma...era solo uno scherzo")
rimane comunque innocuo...