こんにちは。ＷＳＨ（Windows Script Host）のＶＢスク

質問

こんにちは。ＷＳＨ（Windows Script Host）のＶＢスクリプトを使用して
あるソフトの複数画面切替のような操作をしたいのですが、
うまく動作しません。

（インターネット　エクスプローラでいえば
　タブブラウザの切替のようなものだと思います。）

ＶＢＡで検索したところ、
UserForm1.MultiPage1.Value = 1
のような方法がありますが、そのままでは適用できません。

大変恐縮ですが、教えて頂きたいです。
宜しくお願いします。

回答No.2

SHIMAPEE · ベストアンサー

最終的にchikin_manさんがやりたいことが実現できるかわかりませんが「ToDo×Rocky(トドロキ)」をダウンロードして試してみました。結果として、通知領域をクリックするフリーソフトを導入してタブを選択することに成功しましたので報告します。

最初に思いついたのはタブを選択するメニューをWSHで指定してやればよいのではないかということです。ところがこのソフトはメイン画面にメニューがありません。

しかし、少し触ったところ通知領域にアイコンがあり、右クリックで出てくるメニューの中にタブ選択があることがわかりました。

そこで、WSHで通知領域を右クリックできるフリーソフトTrayClickをダウンロードし、C:\Program Files\TrayClick\TrayClick.exeに置きました。

http://www.vector.co.jp/soft/winnt/util/se481383.html

なお、TrayClickの動作には、.NET Framework 3.5が必要です。また、Windows オートメーション API ライブラリが必要です。WindowsXP、Vistaの場合、重要度推奨の更新プログラムKB971513を適用して下さい。なお、Vistaの場合、KB971513はKB971644に含まれています。これらの更新プログラムは2009/10月末から11月初めに公開されています。

TrayClickを組み込めば下のようなVBScriptコードで「ToDo×Rocky(トドロキ)」のタブを選択できます。

Windows XP Pro SP3 ＋ ToDo×Rocky 3.00 ＋ TrayClick 2.0で試しました。

-----
'TodoTabSubete.vbs　タブすべて
Set WSHShell = WScript.CreateObject("WScript.Shell")
ret = WSHShell.Run("""C:\Program Files\TrayClick\TrayClick.exe """ & _
"ToDo R", 7, true) '通知領域のToDoで始まるアイコンを右クリックする
if ret then 'クリックに成功した
WScript.Sleep 100
WSHShell.SendKeys "T" 'メニューTを選ぶ
WSHShell.SendKeys "{ENTER}" 'Enter
else
WScript.Echo "失敗しました。"
end if

-----
'TodoTabSyuryo.vbs　タブ終了済み
Set WSHShell = WScript.CreateObject("WScript.Shell")
ret = WSHShell.Run("""C:\Program Files\TrayClick\TrayClick.exe """ & _
"ToDo R", 7, true)
if ret then
WScript.Sleep 100
WSHShell.SendKeys "T"
WSHShell.SendKeys "{DOWN}"
WSHShell.SendKeys "{ENTER}"
else
WScript.Echo "失敗しました。"
end if

-----
'TodoTabManual.vbs　タブ簡易マニュアル
Set WSHShell = WScript.CreateObject("WScript.Shell")
ret = WSHShell.Run("""C:\Program Files\TrayClick\TrayClick.exe """ & _
"ToDo R", 7, true)
if ret then
WScript.Sleep 100
WSHShell.SendKeys "T"
WSHShell.SendKeys "{DOWN}"
WSHShell.SendKeys "{DOWN}"
WSHShell.SendKeys "{ENTER}"
else
WScript.Echo "失敗しました。"
end if

-----

お礼

SHIMAPEEさん返信ありがとうございます。

通知領域のアイコンを右クリックし、そのメニューの
中からタブを選択するとは意外でした。
TrayClickソフトと組み込むことで（ＸＰにて）
無事動作致しました。

ＷＳＨのプログラムの作成ありがとうございます。
感謝致します。