(VBS) Windows防锁屏代码

'如果中文出现乱码，请另存为其他编码，例如ANSI编码，Unicode编码等

msgbox "不锁屏代码启动成功！正在后台运行..."
Set WshShell = WScript.CreateObject("WScript.Shell")
do
      WScript.Sleep 60000
      WshShell.SendKeys "{NUMLOCK}"
      WScript.Sleep 500
      WshShell.SendKeys "{NUMLOCK}"
loop