生活随笔
收集整理的這篇文章主要介紹了
                                
阻止电脑休眠的脚本
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.                        
 
                                
                            
                            
                            電腦屏保時間不得大于 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.若想退出,在任務管理器中殺掉進程即可。
                            總結
                            
                                以上是生活随笔為你收集整理的阻止电脑休眠的脚本的全部內容,希望文章能夠幫你解決所遇到的問題。
                            
                            
                                如果覺得生活随笔網站內容還不錯,歡迎將生活随笔推薦給好友。