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

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

ACS-AutorunRemover Source Code (Visual Basic 6)

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

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

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

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

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