批处理之家 - Powered by Discuz! Board

标题: 实现系统待机的脚本 [打印本页]

作者: Siriudie 时间: 2008-9-7 15:07 标题: 实现系统待机的脚本

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为主的脚本。但是这个脚本的效率比较低。

欢迎光临批处理之家 (http://bbs.bathome.net/)