实现系统待机的脚本

Siriudie

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