« WScript.Echo()で文字色や背景色などを変更する。(その2) | トップページ | コマンドラインで、サスペンド(スリープ)、ハイバネーション(休止)する。(その7) »

2009年9月20日 (日)

コマンドラインで、サスペンド(スリープ)、ハイバネーション(休止)する。(その6)

suspend.vbs

CreateObject("Shell.Application").ShutdownWindows
Set wShell=CreateObject("WScript.Shell")
Do While Not wShell.AppActivate("Windows のシャットダウン")
  WScript.Sleep 100
Loop
wShell.SendKeys "%w{end}{up}{up}%k"

hibernate.vbs

CreateObject("Shell.Application").ShutdownWindows
Set wShell=CreateObject("WScript.Shell")
Do While Not wShell.AppActivate("Windows のシャットダウン")
  WScript.Sleep 100
Loop
wShell.SendKeys "%w{end}{up}%k"

日本語が送れるSendKeysならもっと確実に選択できるのですが、WScript.ShellのSendKeysは駄目なのです。英語圏は楽にできていいなぁ。
というか、ドロップダウンリストにはユニークなショートカットキーを付けてほしいものです。

« WScript.Echo()で文字色や背景色などを変更する。(その2) | トップページ | コマンドラインで、サスペンド(スリープ)、ハイバネーション(休止)する。(その7) »