vb防锁屏脚本

新建一个文件，在文件里面写如下内容并保存：

Dim durationHour
durationHour = InputBox("输入防锁屏时长（小时）","Author",8)
Dim durationLoops
durationLoops = (CInt(CDbl(durationHour)) * 60 * 60)/10
Set wshShell = CreateObject("Wscript.shell")
for i= 0 to durationLoops
Wscript.sleep 10000
wshShell.SendKeys "{NUMLOCK}"
Wscript.sleep 10
wshShell.SendKeys "{NUMLOCK}"
next

MsgBox "运行 结束"

先要确保电脑上文件扩展名是否打开，勾选“文件扩展名”选项。

将文件名改为“防锁屏.vbs”，更名后文件图标会变成一个脚本样式。

Windows下可以直接点击运行。

输入框里面输入时长，点击“确定”按钮即可。