ارسال پیامک بلک لیست

تحصیل در هلند

عصر کامپیوتر (ماسال و شاندرمن) - برنامه حذف فایلهای اتوران

برنامه حذف فایلهای اتوران

یکی از هنرجویان  از من خواست برنامه اتوران ریموور که با دلفی نوشته بودم را با ویژوال بیسیک نوشته و روش نوشتن این برنامه را برایشان توضیح دهم .
امروز این برنامه را سرکلاس برای هنرجوها توضیح داده و در منزل تکمیلش کردم .
سورس کامل برنامه بهمراه فایل اجرایی را میتوانید از لینک زیر دانلود کنید :


دانلود فایل اجرایی و سورس کد برنامه اتوران ریموور (ویژوال بیسیک)

عصر کامپیوتر (ماسال و شاندرمن)

ACS-AutorunRemover Source Code (Visual Basic 6)

اما چند نکته در مورد این برنامه :
برای آنکه به درایوهای سیستم دسترسی داشته باشیم من از یک DriveListBox روی فرم استفاده کرده ام .
برای آنکه بررسی کنیم فایل autorun.inf در درایو  مثلا هست یا نه از دستور زیر استفاده میکنیم :
If LCase(Dir(c:autorun.inf)) = "autorun.inf"
دلیل استفاده از Lcase آنست که ممکن است بخشی از نام فایل فوق با حروف بزرگ باشد که دراینصورت Lcase آن را به حروف کوچک تبدیل کرده و نتیجه را برمیگرداند .

برای آنکه برنامه هنگام بررسی وجود فایل در درایوهایی مانند درایوی سی دی یا رم ریدری که هنوز رم در آن نیست ارور ندهد از On error Resume next استفاده کرده ایم .

عملیات حذف فایل را در یک تابع به نام Hazf قرار داده ایم که فایل را حذف و سپس نام و مسیر فایل فوق را روی فرم چاپ میکند . از دستور Kill برای حذف فایل استفاده شده .

برای آنکه فایلهای مخفی و سیستمی هم حذف شوند ابتدا باید آنها را از حالت مخفی و سیستمی خارج میکردیم و سپس از Kill برای حذف استفاده میکردیم.

دستور خارج کردن فایل از حالت مخفی و سیستمی بصورت زیر است :
SetAttr path, vbNormal

که Path  مسیر کامل فایل مورد نظر است .




کاربرانی که به این خبر امتیاز داده اند.(قرمز رأی منفی و آبی رأی مثبت):

 
نام شما: [ کاربر جدید ]

نام شما (ضروری): 
ایمیل شما (ضروری): 
نظر:
کد امنیتی
کد امنیتی

  [ بازگشت ]

امتیاز دهی به مطلب

انتخاب ها


 فایل پی دی اف فایل پی دی اف

 گرفتن پرينت از اين مطلب گرفتن پرينت از اين مطلب

 ارسال به دوستان ارسال به دوستان

 گزارش این پست به مدیر سایت گزارش این پست به مدیر سایت

اشتراک گذاري مطلب

نوروفيدبک اروميه پرسش پاسخ پزشکی