2017年9月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
無料ブログはココログ

« 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) »