批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

实现系统待机的脚本

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
With WshShell
  .Run "C:\Windows\System32\Taskmgr.exe"
  While Not .AppActivate("Windows 任务管理器")
  Wend
  .SendKeys "%u"
  .SendKeys "b"
  .SendKeys "% n"
End With

众所周之,“%windir%\system32\rundll32.exe powrprof.dll,SetSuspendState”可以实现系统休眠(未开启休眠时则实现系统待机),但是我一直没有找到可以实现系统待机的命令,所以写了一个Sendkeys为主的脚本。但是这个脚本的效率比较低。

返回列表