سلام
بچه ها من یک برنامه نوشتم که قدیمی هم هست ولی خوبه
این است که مشکلات فولدر آپشن و ران و کنترل پنل و ... را در صورت حذف شدن دوباره برمی گردونه ولی یک دستور کم داره اونم از بین بردن فایل های اتوران که اگر لزبین نرن این مشکلات دوباره تکرار میشن
اگر کسی داره کوتاهی نکند تو رو خدا بدید
برنامه را ضمیمه کردم که خودم نوشتم
فايل ضمينه پاک شد
شما ميتونيد در بخش تبليغات يا معرفی نرم افزار فايل برنامه خودتون رو قرار بديد
این فایل که exe هستش !!
خوب پاک کن فابلهای اتوران رو !!
babyy جان ممنون از توجه ی شما
اما نتونستم این کار رو کنم و به همین خاطر مطرح کردم
اگر لازمه سورس رو هم بزارم ولی در صورت ممکن دستور پاک کردن این فایل های اتوران را به من بدید
با دستور kill میتونی فایل رو پاک کنی !!!
(۰۵-اسفند-۱۳۸۸, ۰۱:۳۱:۴۹)babyy نوشته است: [ -> ]با دستور kill میتونی فایل رو پاک کنی !!!
یعنی من باید این دستور رو وارد کنم:
kill"c:\Autorun.ini"
kill"d:\Autorun.ini"
kill"f:\Autorun.ini"
و ...
ولی به نظر تو کافی است یعنی اگر اسمش Autorun نبود چی
یعنی :abcd.ini
به نظر من باید دستوری باشد که محتویات درون فایل ini را شناسایی کند و اگر اتوران بود حذف کند
خودتون دارین میگین اتوران !
خوب اتوران نبود که اجرا نمیشه !!
یعنی باید باید اسمش Autorun.ini باشد تا عمل کند و به دستور درون آن بستگی ندارد
که چی باشه که برای اتوران بودن این است:
[autorun]
دستور لاگ آف (Log Off) رو نداری سرچ کردم نبود
بچه ها آخر توانستم با تلاش فراوان در مورد شناسایی ویروس های جدید
(نه خیلی جدید) نرم افزار ضد ویروس اتوران و 30 ویروس جدید و با رفع مشکلات پاک شدن فولدر آپشن - ران-کنترل پنل و قفل شدن کلیک راست و...
تولید کنم این نرم افزار را در خدمت شما می گذارم تا استفاده کنید ووووووووووو
مشکلات و نظرات خود را به من اعلام کنید
به امید روز بهتر
ایــــــــن نرم افزار کمی قدیمی است ولی با اطلاعات کم من با اینکه من رشتم رایانه نیست تولیدش کردم
ضد اتوران
بچه ها شرمنده که اگر نرم افزار کار نمی کرد این دیگه کار می کنه
کد ساده ی از بین بردن فایل های اتوران
کد:
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
راحترین راه جلوگیری از اجرای اتوران هست
وقتی وسیله جدیدی به usb وصل میشه یک پیغام به برنامه ها فرستاده میشه اون موقع برنامه شما هم میفهمه که چیزی به usb وصل شده با چک کردن سایز درایو removable وقتی مقدارش بیشتر از 0 باشه یعنی درایو شناسایی شده و اماده به کار هست دیگه گشتن پی فایلی با نام AUTORUN.inf و پاک کردنش دیگه چند خط کد بیشتر نیست