windows 防止屏保锁屏脚本工具

公司安全制度要求屏保时间不得大于 3 分钟，且屏保切回桌面时需要重新输入登录密码。
在不修改屏保策略的情况下，通过脚本小工具模拟按下键盘 Num 键来阻止休眠。

Dim durationHour
durationHour = InputBox("输入防止锁屏时长（小时）","Author", 1)

Dim timeMinutes
timeMinutes = InputBox("输入屏保时长（分钟）","Author", 3)

Dim durationLoops
durationLoops = CInt(CDbl(durationHour) * (60 / CInt(timeMinutes))) + 1

Dim interval
interval = timeMinutes * 60 * 1000 - 1000

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

for i = 0 to durationLoops
wshShell.SendKeys "{NUMLOCK}"
Wscript.sleep 500
wshShell.SendKeys "{NUMLOCK}"
Wscript.sleep interval
next

MsgBox "运行结束"

使用方法：

1. 新建文本文档
2. 复制脚本代码进文档中
3. 修改任意文件名，后缀使用 .vbs
4. 双击运行，填入防止休眠小时数、自动休眠分钟数即可。
5. 若想退出，在任务管理器中杀掉进程即可。