VBS Coding
VBS coding is short for Visual Basic Script. This type of code was created by Microsoft.
VBS Pranks
VBS pranks are just for the fun. If you have an irritating person or friend you want to prank, this is just what you need. Just open notepad (or any other word processor) and type in the codes. Then, save it as [What you want to call it].vbs . Save it on your victim's computer and watch their reaction!
Continually Open the DVD Drive
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
Let the keyboard type "You are a fool" Continually
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "You are a fool."
loop
A prank virus (Version 1)
dim x,yes,no
x=Msgbox("Virus has infected hard drive (C:). Deletion of the virus will require complete formatting of hard drive (C:). Would you like to format hard drive (C:) ?",52,"Warning !")
if x=6 then
dim box
box=Msgbox("Hard drive (C:) formatting complete. In order to function correctly your computer must restart, would you like to restart now ?",36,"Formatting has been completed")
if box=6 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"LOL"
end if
if box=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"LOL"
end if
end if
if x=7 then
Msgbox "Fatal error, code 08x48631643.B-7",16,"ERROR"
Msgbox "Just kidding, this was all a joke, but i did scare you didn't I ? Héhé...",64,"LOL"
end if