英溯IT论坛

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 4581|回复: 1

防止系统进入睡眠模式

[复制链接]

126

主题

162

帖子

765

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
765
发表于 2024-2-3 08:47:06 | 显示全部楼层 |阅读模式
保存文件名:wscript.vbs

Set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Sleep 5000
WshShell.SendKeys("{NUMLOCK}")
WScript.Sleep 5000
WshShell.SendKeys("{NUMLOCK}")

for i = 1 to 1800
WScript.Sleep 17000
WshShell.SendKeys("{NUMLOCK}")
WScript.Sleep 500
WshShell.SendKeys("{NUMLOCK}")
next

回复

使用道具 举报

126

主题

162

帖子

765

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
765
 楼主| 发表于 3 天前 来自手机 | 显示全部楼层
Set WshShell = CreateObject("WScript.Shell")

For i = 1 To 96
    WshShell.SendKeys "{NUMLOCK}"
    WScript.Sleep 500
    WshShell.SendKeys "{NUMLOCK}"

    WScript.Sleep 300000
Next
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|英溯IT论坛 ( 沪ICP备13022730号-6 )

GMT+8, 2025-12-19 14:44 , Processed in 0.100699 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表