win7測試通過，該腳本的優點就是簡單無需任何依賴，windows平臺通用。

電腦配置受到計算機管理員的限制無法關閉屏保鎖屏設置，因此每5分鐘進行一次NUM鍵，防止計算機認為誤操作自動進入屏保鎖屏。

' author tangtao ' created on 20200321 ' ' [HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\Control Panel\Desktop] ' "ScreenSaveTimeOut"="300" 屏保時間300秒，5分鐘 ' "ScreenSaverIsSecure"="1" 屏保是否鎖屏 ' "ScreenSaveActive"="1" 是否開啟屏保 ' "SCRNSAVE.EXE"="%windir%\\20190702.scr" 屏保文件' 每5分鐘，激活兩次NUM鍵，防止屏保鎖屏 Dim durationHour durationHour = InputBox("輸入鎖屏小時數（整數或者小數）","防止鎖屏腳本 by tangtao", 4) Dim durationLoops ' durationHour * 60 / 5 => durationHour * 12 durationLoops = CInt(CDbl(durationHour) * 12) + 1 ' 先定義一個Shell對象 Set wshShell = WScript.CreateObject("WScript.Shell")' 一次循環花費5分鐘，與屏保時間相同 for i = 0 to durationLoops '設置成比屏保時間短點就可以(單位毫秒) wshShell.SendKeys "{NUMLOCK}" WScript.Sleep 500 wshShell.SendKeys "{NUMLOCK}" WScript.Sleep 299400 nextMsgBox "腳本運行結束"

?

總結

以上是生活随笔為你收集整理的防止锁屏脚本的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。