新建一个文件,在文件里面写如下内容并保存:
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下可以直接点击运行。
输入框里面输入时长,点击“确定”按钮即可。