Turn your Keyboard Lights into Disco Lights:
*General Instruction:Copy the code and save it with .vbs extension and double click it.To terminate the process end Wscript.exe in processes from Task Manager.
Set wshShell =CreateObject("WScript.Shell")
do
wscript.sleep 200
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 50
wshshell.sendkeys "{SCROLLLOCK}"
loop
Make your XP Speak :
*General Instruction:Copy the code and save it with .vbs extension and double click it.To terminate the process end Wscript.exe in processes from Task Manager.
Dim msg, sapi
msgbox("Turn on de speakers:-)")
msg1 = InputBox("enter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg1
