uwscマクロ

質問

uwscで、以下のマクロの構文を教えてください。

アクティブウィンドウのタイトルを1秒に1回取得し続け、アクティブウィンドウのタイトルにxxxという文字列が含まれていたらアクティブウィンドウにenterキーを送り、アクティブウィンドウのタイトルの取得をやめる。

回答No.1

neKo_quatre

例えば、

Dim idWnd // ウィンドウID
Dim strTitle // ウィンドウタイトル

While True　// ループ
　　// アクティブウィンドウのウィンドウIDを取得
　　idWnd = GETID(GET_ACTIVE_WIN)
　　// ウィンドウタイトルを取得
　　strTitle = Status(idWnd, ST_TITLE)

　　if Pos("xxx", strTitle)<>0 then // ウィンドウタイトルに"xxx"が含まれていたら
　　　　// Enter
　　　　Kbd(VK_ENTER)
　　　　// ループ終了
　　　　break
　　endif
　　// 1秒
　　Sleep (1)
Wend

とか。