Saturday, December 11, 2010

Make Your Keyboard LED Lights Disco Dance!

o you want to see your keyboard lights play disco? Yes, you heard that right! You can make your keyboard LEDs dance, with a simple Visual Basic script. Now, without much ado, let me give you the script.

Copy the following script into a notepad. Then save that file with an extension “.vbs”. Now click on the new file with a script like icon. You see the magic! I am sure you will enjoy seeing them. Here are the codes you need to paste:

This code makes the LEDs to dance randomly.

Set wshShell =wscript.CreateObject("WScript.Shell")

do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

This code makes the LEDs 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

To end this disco, you need to end a process called “wscript.exe”. For best results, keep all the LEDs “Off” before starting the script.

No comments:

Post a Comment