如何解决如何通过使用 VBS 脚本发送按键来保持系统唤醒?
我有一个待机超时(2 分钟)非常低的设备。 所以我想构建一个 VBS 脚本来启动记事本并发送按键,以便系统可以保持唤醒状态。
解决方法
在网上论坛上摸索之后,我想出了一个代码来反复写嗨。我希望它能造福社区。p>
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
Dim x
x = 1
set service = GetObject ("winmgmts:")
Function IsAppRunning(AppName)
for Each Process in Service.Instancesof("Win32_Process")
If UCase(Process.Name) = UCase(AppName) then
IsAppRunning = True
Exit function
End If
next
IsAppRunning = False
End Function
While x < 1000
AppName = "notepad.exe"
If IsAppRunning(AppName) then
WshShell.AppActivate "Notepad"
WshShell.SendKeys "H"
WScript.Sleep 5000
else
Wscript.quit
End If
If IsAppRunning(AppName) then
WshShell.AppActivate "Notepad"
WshShell.SendKeys "i"
WScript.Sleep 5000
else
Wscript.quit
End If
x=x+1
Wend
要停止执行脚本,只需退出记事本。可以通过更改 while 循环计数来修改代码以运行更长/更短的持续时间。目前脚本运行接近 3 小时或直到用户关闭记事本。抱歉,我不是在这里问任何问题,只是提供我所做的。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。