Board logo

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

作者: 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://www.bathome.net/) Powered by Discuz! 7.2