VB virus for LED bllinking

Every keyboard usually has several LED lights to indicate the status of different kinds of locks on it ( Caps Lock , Scroll Lock And Num Lock ).

It Shows Whether the Locks are activated or not. Here is a cool trick by which you can use those LED lights in more creative and funny way (works with windows operating system only and is tested with Windows XP , Windows Vista And Windows 7/8).

Here are the steps to make your keyboard lights go Disco :

Trick 1 :

1. Open notepad.
2. Copy and paste the exact code given below :

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

3. Now save this notepad file as Disco.vbs ( or you can use any other name but make sure that extension is  .vbs )

Just double click on the notepad file and see your keyboard lights going crazy.

Trick 2 :

1. Open notepad.
2. Copy and paste the exact code given below :

set wshshell=wscript.createobject("wscript.shell")
Dim b
b = 0
Do while b<8
b = b + 1
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 700
LoopDim b b = 0 Do while b<8 b = b + 1 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 700 LoopDim n
n = 0
DO While n<10
n = n + 1
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 100
wshshell.sendkeys "{Scrolllock}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"n = 0 DO While n<10 n = n + 1 wshshell.sendkeys "{NUMLOCK}" wscript.sleep 100 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 100 wshshell.sendkeys "{Scrolllock}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}"wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 100
wshshell.sendkeys "{Scrolllock}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
LOOPwscript.sleep 100 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 100 wshshell.sendkeys "{Scrolllock}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" LOOP

3. save this notepad file as Disco.vbs ( or you can use any other name but make sure that extension is  .vbs )

Just double click on the notepad file and see your keyboard lights going crazy.

Trick 3 :

1. Open notepad.
2. Copy and paste the exact code given below :

set wshshell=wscript.createobject("wscript.shell")
Dim b
b = 0
Do while b<8
b = b + 1
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 700
LoopDim b b = 0 Do while b<8 b = b + 1 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 700 LoopDim n
n = 0
DO While n<10
n = n + 1
wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 100
wshshell.sendkeys "{Scrolllock}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"n = 0 DO While n<10 n = n + 1 wshshell.sendkeys "{NUMLOCK}" wscript.sleep 100 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 100 wshshell.sendkeys "{Scrolllock}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}"wshshell.sendkeys "{NUMLOCK}"
wscript.sleep 100
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{Scrolllock}"
wscript.sleep 100
wshshell.sendkeys "{Scrolllock}"
wshshell.sendkeys "{CAPSLOCK}"
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
LOOPwscript.sleep 100 wshshell.sendkeys "{NUMLOCK}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" wshshell.sendkeys "{Scrolllock}" wscript.sleep 100 wshshell.sendkeys "{Scrolllock}" wshshell.sendkeys "{CAPSLOCK}" wscript.sleep 100 wshshell.sendkeys "{CAPSLOCK}" LOOP

3. save this notepad file as Disco.vbs ( or you can use any other name but make sure that extension is  .vbs )

Just double click on the notepad file and see your keyboard lights going crazy.

How Does this happens ?

It is nothing but a simple visual basic script that generates and sends several command signals to keyboard when it is activated and the LEDs works according to it. To user , it seems like the LED lights are changed to Disco lights .

How to make it normal again ?

It is simple to bring your keyboard to normal again. Just follow four easy steps given below :

1. Open Task Manager ( Ctrl + Alt + Del ).
2. Go to process tab under it . or in Win 8 goto Details Tab
3. Now select wscript.exe
4. Click on End process.

Here you are done and your keyboard is normal again !!