[187] マクロ内でステータスバー情報の取得 りーや 2005年07月17日 02:05

えっと、汎用性ありません (^^;
単品ダウンロードの見つからないv3のAutoItXを使っています。
http://www.autoitscript.com/autoit3/index.php
汎用性をトレードオフしても、自分しか使わないマクロではますます重宝

' AutoItX3でステータスバーを表示 StatusBar.vbs
Dim wkStr, I
Set oAutoIt = CreateObject("AutoItX3.Control")
Set WshShell = CreateObject("WScript.Shell")
oAutoIt.AutoItSetOption "WinTitleMatchMode", 2
For I = 1 To 7
wkStr = wkStr & "|" & oAutoIt.StatusbarGetText( "sakura", "",I)
Next
WshShell.Popup wkStr, 0, "Status Bar", 1