در خواست سورس برنامه ی ضد اتوران

[download69]

سلام
بچه ها من یک برنامه نوشتم که قدیمی هم هست ولی خوبه
این است که مشکلات فولدر آپشن و ران و کنترل پنل و ... را در صورت حذف شدن دوباره برمی گردونه ولی یک دستور کم داره اونم از بین بردن فایل های اتوران که اگر لزبین نرن این مشکلات دوباره تکرار میشن
اگر کسی داره کوتاهی نکند تو رو خدا بدید

برنامه را ضمیمه کردم که خودم نوشتم


فايل ضمينه پاک شد
شما ميتونيد در بخش تبليغات يا معرفی نرم افزار فايل برنامه خودتون رو قرار بديد

[babyy]

این فایل که exe هستش !!
خوب پاک کن فابلهای اتوران رو !!

[download69]

babyy جان ممنون از توجه ی شما
اما نتونستم این کار رو کنم و به همین خاطر مطرح کردم
اگر لازمه سورس رو هم بزارم ولی در صورت ممکن دستور پاک کردن این فایل های اتوران را به من بدید

[babyy]

با دستور kill میتونی فایل رو پاک کنی !!!

کد php:

kill "c:\1.txt" 


[download69]

با دستور kill میتونی فایل رو پاک کنی !!!

کد php:

kill "c:\1.txt" 


یعنی من باید این دستور رو وارد کنم:
kill"c:\Autorun.ini"
kill"d:\Autorun.ini"
kill"f:\Autorun.ini"
و ...
ولی به نظر تو کافی است یعنی اگر اسمش Autorun نبود چی
یعنی :abcd.ini
به نظر من باید دستوری باشد که محتویات درون فایل ini را شناسایی کند و اگر اتوران بود حذف کند

[babyy]

خودتون دارین میگین اتوران !
خوب اتوران نبود که اجرا نمیشه !!

[download69]

یعنی باید باید اسمش Autorun.ini باشد تا عمل کند و به دستور درون آن بستگی ندارد
که چی باشه که برای اتوران بودن این است:
[autorun]

---

دستور لاگ آف (Log Off) رو نداری سرچ کردم نبود

[download69]

بچه ها آخر توانستم با تلاش فراوان در مورد شناسایی ویروس های جدید
(نه خیلی جدید) نرم افزار ضد ویروس اتوران و 30 ویروس جدید و با رفع مشکلات پاک شدن فولدر آپشن - ران-کنترل پنل و قفل شدن کلیک راست و...
تولید کنم این نرم افزار را در خدمت شما می گذارم تا استفاده کنید ووووووووووو
مشکلات و نظرات خود را به من اعلام کنید
به امید روز بهتر
ایــــــــن نرم افزار کمی قدیمی است ولی با اطلاعات کم من با اینکه من رشتم رایانه نیست تولیدش کردم

[download69]

ضد اتوران
بچه ها شرمنده که اگر نرم افزار کار نمی کرد این دیگه کار می کنه

[download69]

کد ساده ی از بین بردن فایل های اتوران

کد:

Kill "C:/Autorun.inf"
Kill "D:/Autorun.inf"
Kill "E:/Autorun.inf"
Kill "F:/Autorun.inf"
......

[/quote]
اینم کد فوق قوی از بین بردن فایل های اتوران

کد:

Dim strDrive As String, strDrives As String
    On Error Resume Next
    
    strDrives = String(255, Chr$(0))
    Ret& = GetLogicalDriveStrings(255, strDrives)
    For I = 1 To 100
        If Left$(strDrives, InStr(1, strDrives, Chr$(0))) = Chr$(0) Then Exit For
        strDrive = Left$(strDrives, InStr(1, strDrives, Chr$(0)) - 1)
        DoEvents
        A = Dir(strDrive & "Autorun.inf", vbNormal + vbSystem + vbHidden)
        If A = "Autorun.inf" Then SetAttr strDrive & "Autorun.inf", vbNormal
        A = Dir(strDrive & "Autorun.exe", vbNormal + vbSystem + vbHidden)
        If A = "Autorun.exe" Then SetAttr strDrive & "Autorun.exe", vbNormal
        strDrives = Right$(strDrives, Len(strDrives) - InStr(1, strDrives, Chr$(0)))
    Next
    
    
    Start = Timer
    Do While Timer < Start + 2
        DoEvents
    Loop
    
    strDrives = String(255, Chr$(0))
    Ret& = GetLogicalDriveStrings(255, strDrives)
    For I = 1 To 100
        If Left$(strDrives, InStr(1, strDrives, Chr$(0))) = Chr$(0) Then Exit For
        strDrive = Left$(strDrives, InStr(1, strDrives, Chr$(0)) - 1)
        DoEvents
        Kill strDrive & "Autorun.inf"
        Kill strDrive & "Autorun.exe"
        DoEvents
        frmMain.lblReport.Caption = "Deleting : " & strDrive & "Autorun.inf"
        Start = Timer
        Do While Timer < Start + 0.5
            DoEvents
        Loop
        strDrives = Right$(strDrives, Len(strDrives) - InStr(1, strDrives, Chr$(0)))
    Next

[lord_viper]

راحترین راه جلوگیری از اجرای اتوران هست
وقتی وسیله جدیدی به usb وصل میشه یک پیغام به برنامه ها فرستاده میشه اون موقع برنامه شما هم میفهمه که چیزی به usb وصل شده با چک کردن سایز درایو removable وقتی مقدارش بیشتر از 0 باشه یعنی درایو شناسایی شده و اماده به کار هست دیگه گشتن پی فایلی با نام AUTORUN.inf و پاک کردنش دیگه چند خط کد بیشتر نیست