Saturday, June 6, 2009

Keyboard Disco

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

3 comments:

sayrem said...

i pasted the code in notebook.

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

saved it as rose.vbs
ran it
i saw: windows cannot locate the file( i had saved it on desktop)
wats wrong?

sayrem said...

Oh I GoT it. iT is W*/ORkiNG. sEE??

Vibhu said...

Problem resolved?

Creative Commons License
Vrtex by Vibhu is licensed under a Creative Commons Attribution-Non-Commercial-Share Alike 2.5 India License.