Wild Keyboard Trick

Save this in notepad as anyname.vbs :

and run see the magic:

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