VBS pranks

A lot of VBS pranks to do on your friends computer or at your own ;)

Message box pop up

Make a message box that appear on the screen.

do*

MsgBox (" Type here the text that you want.")

loop*


*If you set 'do and loop', the message box appear again and again ...

Save it as Anything.vbs

 

Convey a little mesage box and shutdown the computer

@echo off 

MsgBox ("I don't like you !!!")

shutdown -c "Error! You are too ******!" -s

Save it as Anything.bat

 

Toggle the Caps Lock button cintinuously

Set wshShell =wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "{CAPSLOCK}" 

loop

Save it as Anything.vbs

 

Continoually Pop Out the CD 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

Save it as Anything.vbs

 

Hit Backspace continually

MsgBox ("Let's go back a few steps !!!")

Set wshShell =wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "{bs}" 

loop
Save it as Anything.vbs

 

Let the keyboard type "You are a fool." continuously

Set wshShell = wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "You are a fool." 

loop

Save it as Anything.vbs

 

Start Notepad cintinuously

@echo off 

:top 

START %SystemRoot%\system32\notepad.exe 

GOTO top

 

Make a Disco on your keyboard

This trick uses a simple Visual basic script which when activated makes your scroll lock, caps lock and num locks LED's flash in a cool rhythmic way which gives the perception of a live disco on your keyboard.

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

Save it as Anything.vbs

 

Hit Enter continuously

Set wshShell = wscript.CreateObject("WScript.Shell") 

do 

wscript.sleep 100 

wshshell.sendkeys "~(enter)" 

loop 

Save it as Anything.vbs