公司安全制度要求屏保时间不得大于 3 分钟,且屏保切回桌面时需要重新输入登录密码。
在不修改屏保策略的情况下,通过脚本小工具模拟按下键盘 Num 键来阻止休眠。
Dim durationHourdurationHour = InputBox("输入防止锁屏时长(小时)","Author", 1)Dim timeMinutestimeMinutes = InputBox("输入屏保时长(分钟)","Author", 3)Dim durationLoopsdurationLoops = CInt(CDbl(durationHour) * (60 / CInt(timeMinutes))) + 1Dim intervalinterval = timeMinutes * 60 * 1000 - 1000Set wshShell = WScript.CreateObject("WScript.Shell")for i = 0 to durationLoopswshShell.SendKeys "{NUMLOCK}"Wscript.sleep 500wshShell.SendKeys "{NUMLOCK}"Wscript.sleep intervalnextMsgBox "运行结束"
使用方法:
新建文本文档复制脚本代码进文档中修改任意文件名,后缀使用.vbs
双击运行,填入防止休眠小时数、自动休眠分钟数即可。若想退出,在任务管理器中杀掉进程即可。
如果觉得《windows 防止屏保锁屏脚本工具》对你有帮助,请点赞、收藏,并留下你的观点哦!