یک فایل با پسوند VBS برای شوخی

Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wshshell.sendkeys “{CAPSLOCK}”
wscript.sleep 500
wshshell.sendkeys “{NUMLOCK}”
wscript.sleep 500
wshshell.sendkeys “{SCROLLLOCK}”
loop