Tips

 Caps Lock button run simultaneously



open note pad and write this

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

save this file as "fun.vbs"