生活随笔
收集整理的這篇文章主要介紹了
阻止电脑休眠的脚本
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
電腦屏保時間不得大于 3 分鐘,且屏保切回桌面時需要重新輸入登錄密碼。
在不修改屏保策略的情況下,通過腳本小工具模擬按下鍵盤 Num 鍵來阻止休眠。
Dim durationHour
durationHour
= InputBox("輸入防止鎖屏時長(小時)","Author", 1)Dim timeMinutes
timeMinutes
= InputBox("輸入屏保時長(分鐘)","Author", 3)Dim durationLoops
durationLoops
= CInt(CDbl(durationHour
) * (60 / CInt(timeMinutes
))) + 1Dim interval
interval
= timeMinutes
* 60 * 1000 - 1000Set wshShell
= WScript
.CreateObject("WScript.Shell")for i
= 0 to durationLoops
wshShell
.SendKeys
"{NUMLOCK}"
Wscript
.sleep
500
wshShell
.SendKeys
"{NUMLOCK}"
Wscript
.sleep interval
nextMsgBox
"運行結束"
使用方法:
1.新建文本文檔
2.復制腳本代碼進文檔中
3.修改任意文件名,后綴使用 .vbs
4.雙擊運行,填入防止休眠小時數、自動休眠分鐘數即可。
5.若想退出,在任務管理器中殺掉進程即可。
總結
以上是生活随笔為你收集整理的阻止电脑休眠的脚本的全部內容,希望文章能夠幫你解決所遇到的問題。
如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。