segunda-feira, 9 de abril de 2012

Como fazer uma discoteca com LED do Teclado


 Abrir Bloco de Notas e em seguida colar alguns dos comandos que seguem abaixo Para fazer com que eles funcionem, salve os arquivos com qualquer nome, seguido da extensão .VBS (por exemplo disco.VBS

Dança regular

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

Dança randômica

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

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

Como desativar?

Pressione as teclas Control, Shift e Esc para abrir o Gerenciador de Tarefas do Windows. Selecione a aba de processos e localize “wscript.exe”. Clique sobre ele e logo em seguida pressione o botão “Finalizar processo”. Confirme a ação e seu computador estará configurado como anteriormente.

PS: Funciona testei em meu pc e é brutal.