22 January, 2012

Make Your Keyboard Lights Do DISCO

Instructions:

*Paste any of the below codes in notepad
*Save it with any name u like with an extension ".vbs"
*Double click to run the file
*To stop, launch task manager and then under "Processes" end "wscript.exe"


TRICK 1: LED's TO dance in a regular manner

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

TRICK 2: LED's to dance randomly

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

TRICK 3:

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

Its fun...
I hope u would like it...

No comments:

Post a Comment