日韩性视频-久久久蜜桃-www中文字幕-在线中文字幕av-亚洲欧美一区二区三区四区-撸久久-香蕉视频一区-久久无码精品丰满人妻-国产高潮av-激情福利社-日韩av网址大全-国产精品久久999-日本五十路在线-性欧美在线-久久99精品波多结衣一区-男女午夜免费视频-黑人极品ⅴideos精品欧美棵-人人妻人人澡人人爽精品欧美一区-日韩一区在线看-欧美a级在线免费观看

歡迎訪問 生活随笔!

生活随笔

當前位置: 首頁 > 编程资源 > 编程问答 >内容正文

编程问答

阻止电脑休眠的脚本

發布時間:2023/12/20 编程问答 37 豆豆
生活随笔 收集整理的這篇文章主要介紹了 阻止电脑休眠的脚本 小編覺得挺不錯的,現在分享給大家,幫大家做個參考.

電腦屏保時間不得大于 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.若想退出,在任務管理器中殺掉進程即可。

總結

以上是生活随笔為你收集整理的阻止电脑休眠的脚本的全部內容,希望文章能夠幫你解決所遇到的問題。

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