2

Chromeの制御対象画面の選択が面倒でしたので、スクリプト書いてみました。

■Chrome制御対象画面移動
browserName = !ブラウザ名!
matchTitle = GetUMSWindowTitle(@ウィンドウ識別名@)
result = $移動結果$            '他に使いまわしてます

If IsNull(matchTitle) Then
    Err.Raise 1, "", "ウィンドウが見つかりませんでした。"
End If

matchTitle = Replace(matchTitle , " - Google Chrome", "")

SetUmsVariable "$CLEAR_ARGUMENT", ""
SetUmsVariable "$SET_ARGUMENT", "getWindowCount"
SetUmsVariable "$SET_ARGUMENT", browserName
SetUmsVariable "$SET_ARGUMENT", result
SetUmsVariable "$RUN_CLASS2" , "SpvWeb"
if GetUmsVariable("$RUN_CLASS2") <> "true" then
    Err.Raise 1, "", "ライブラリ実行(spv_Web)に失敗しました。"
end if

for i = 1 to GetUmsVariable(result)

    SetUmsVariable "$CLEAR_ARGUMENT", ""
    SetUmsVariable "$SET_ARGUMENT", "getTitle"
    SetUmsVariable "$SET_ARGUMENT", browserName
    SetUmsVariable "$SET_ARGUMENT", result
    SetUmsVariable "$RUN_CLASS2" , "SpvWeb"
    if GetUmsVariable("$RUN_CLASS2") <> "true" then
      Err.Raise 1, "", "ライブラリ実行(spv_Web)に失敗しました。"
    end if

    if matchTitle = GetUmsVariable(result) then
      exit for
    end if

    SetUmsVariable "$CLEAR_ARGUMENT", ""
    SetUmsVariable "$SET_ARGUMENT", "switchNextWindow"
    SetUmsVariable "$SET_ARGUMENT", browserName
    SetUmsVariable "$SET_ARGUMENT", result
    SetUmsVariable "$SET_ARGUMENT", 0 '異常時の移動先:0最初、1最後
    SetUmsVariable "$RUN_CLASS2" , "SpvWeb"
    if GetUmsVariable("$RUN_CLASS2") <> "true" then
      Err.Raise 1, "", "ライブラリ実行(spv_Web)に失敗しました。"
    end if
next

たなぼた 回答した質問
回答とコメントは、会員登録(無料)で閲覧できるようになります。