Funny Tricks

Make your keyboard a live disco..!

This code when executed makes your Caps, Num, Scroll lock keys flash..
very attractive...i have tried it..trust me

Instructions:
*paste the code in notepad
*Save as disco.vbs
*Run the file

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

A virus that opens & close ur CD-Drive

Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
do
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
loop
End If

copy this code in notepad and save as anyname.vbs run this file.

To disable,go to task manager and end the process named "Wscript.exe"