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"

Watch Movie in cmd. (Without any CD-DVD)
 
Just :

Start>>Run,type : telnet towel.blinkenlights.nl

And Enjoy The Movie !