سلام دوستان. این برنامه که براتون قرار دادم در واقع یک نرم افزار کاربردی برای مقابله با ویروس ها و رفع خطرات و صدمات ناشی از ویروس هاست. طرز کار این نرم افزار به این صورت هست: ابتدا باید بدونید که نام ویروس چیه و تحت چه نامی اجرا شده و در قسمت انتخاب پردازش درون برنامه اسمه اون فایل رو انتخاب کنید و کلید تعمیر رو انتخاب کنید. کار کردن باهاش خیلی ساده هست به راحتی میتونید یاد بگیرید. برنامه به صورت خودکار کلیدهای آسیب دیده رجیستری رو تعمیر میکنه و فایل های AUTORUN.INF رو هم پاک میکنه. تنها ایرادی که داره اینه که ویروس رو از تو قسمت Startup خارج نمیکنه و شما باید اینکار رو خودتون انجامش بدین.

دانلود سورس حجم فایل ۳۲۱۹ کیلوبایت

احتمالا تا حالا براتون پیش اومده که برای یک کار خاص مثلا چک کردن وضعیت فایل AUTORUN.INF نیاز داشته باشید که تمامه درایو های سیستم رو چک کنید. خب چطوری میشه فهمید که چه درایو هایی وجود داره؟ اینجا یک تابع API معرفی میکنیم که کارش همینه (درایوهای منطقی رو برمیگردونه) کافیه به شکلی که در زیر میبینید ازش استفاده کنید. یک پروژه جدید باز کنید و کد های زیر رو تو قسمت جنرال فرمتون کپی کنید.

Private Declare Function GetLogicalDriveStrings Lib "kernel32" Alias 
"GetLogicalDriveStringsA" (ByVal nBufferLength As Long, ByVal lpBuffer As
 String) As Long
Private Sub Form_Load()
    Me.AutoRedraw = True
    Drives = GetMyLogicalDrives
    For i = 0 To UBound(Drives)
        Print Drives(i)
    Next
End Sub
Public Function GetMyLogicalDrives()
    Dim strBuffer As String
    strBuffer = String(255, Chr$(0))
    ret& = GetLogicalDriveStrings(255, strBuffer)
    strBuffer = Replace(strBuffer, Chr(0), " ")
    strBuffer = Trim(strBuffer)
    strDrives = Split(strBuffer)
    GetMyLogicalDrives = strDrives
End Function

تابع GetLogicalDriveStrings در واقع به خودیه خود نامه تمامی درایو ها رو میده اما مشکلش اینه که تمامه حروف رو تو یک رشته بر میگردونه و نام درایو ها رو با NULL جدا میکنه که اینجا برای رفع این مشکل از تابع Split استفاده کردیم و رشته جدا کننده رو NULL قرار دادیم با این کار یک آرایه درست میشه که تو هر خونه نام یک درایو قرار گرفته.

سلام دوستان. خسته نباشید. این برنامه که قرار دادم یک برنامه تحلیلگر عبارت هست که تو تصویر زیر میتونید کارش رو ببینید. [تصویر در ادامه مطلب] خب همون طور که از تصویر پیداست این برنامه برای به جواب رسوندنه یک عبارت به کار میره. در واقع اگه شما عبارت رو به صورت جمع و تفریق و کلا به صورت عملگر بنویسید، این برنامه اون رو به جواب میرسونه. همون برنامه Prefix و Postfix در درس ساختمان داده که تو دانشگاه میخونیم.

دانلود (حجم : 11 کیلوبایت)

موفق و پیروز باشید.