コマンドラインで、サスペンド(スリープ)、ハイバネーション(休止)する。(その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) »