Assalamualaikum...jom mulakan...

Copy Code Dibawah Ni...

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

Paste Dalam notepad...
daan save dengan nama "disco.vbs"...