2017年11月
      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) »