Chromeの制御対象画面フォーカス(ウィンドウスイッチ)方法
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