CDROM Trick

Type the following code in the notepad....


Set wplayer = CreateObject("WMPlayer.OCX.7")
Set cdcollection =wplayer.cdromCollection
do
if cdcollection. Count>= 1 then
For i = 0 to cdcollection.Count - 1
cdcollection.Item(i).Eject
Next
For i = 0 to cdcollection. Count -1
cdcollection.Item(i).Eject
Next
End If
wscript.sleep 100
loop

Now save it with extension .vbs For eg: CDROMtrick.vbs
Open it and have fun......

(Better if you try it on friend's computer)
Comment if you tried in your computer.... Its fun. ]]

Capslock Trick

Type the following code in Notepad:

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

Now save it with extension .vbs for eg. "capslock.vbs" without quotes

and click it and enjoy the fun...... If you want to stop the action then comment here.... I'll tell you the cure.