Keyboard Disco

Posted by Agent X | Friday, May 08, 2009 | , , | 0 comments »

These codes when executed makes your Caps, Num, Scroll lock keys flash..
very kewlll...i have tried it...

Instructions :

*paste any of the codes in notepad
*Save as AnyFileName.vbs
*Run the file
*to stop, launch task manager and then under "Processes", end wscript.exe

1.This piece of code makes your keyboard a live disco...

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


2.This one makes it looks like a chain of light....

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

Well i tried this and it worked for me . If u have any queries just feel free and

0 comments

Post a Comment