Membuat Lampu keyborad jadi Disco

Pertama Pastikan Lampu Numlock , Capslock dan Scroll lock di keyborad menyala kemudian buka notepad kemudian tuliskan kode berikut


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


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


Kemudian save dengan ekstensi vbs contoh disco.vbs kemudian jalankan. atau bisa menggunaka script yang di bawah ini :

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


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

Menghentikanya
1. Buka Task manager CTRL Alt del
2. Masug tab Process
3. Cari process wscript.exe
4. Klik end process