SeleniumBasic AlertClass　ダイアログボックスの操作

2023年3月11日2024年10月26日

リファレンス

概要

JavaScriptのアラート（ダイアログボックス）操作用クラス。
ダイアログボックスが出現したら、SwitchToAlert()で操作対象を移動させ、オブジェクトセットする。

オブジェクト設定

・変数宣言

Dim dlg As Alert

文法

Set dlg = driver.SwitchToAlert()

メソッド・プロパティ

メソッド

スクロールできます

Name	解説	Short Example
Accept	ダイアログボックス許可	dlg.Accept
Dismiss	ダイアログボックス拒否	dlg.Dismiss
SendKeys	ダイアログボックスにキーボード入力	dlg.SendKeys("tama")
SetCredentials	id,passwordのセット

※Short Exampleは、動作確認ができたコードを記載しています。

プロパティ

スクロールできます

Name	解説	Short Example
Text	ダイアログボックスのテキスト取得	Debug.Print dlg.Text

Example

Handle_DialogBox

Private Sub Handle_DialogBox()
    Dim driver As New ChromeDriver
    driver.Get "https://www.tagindex.com/javascript/window/confirm.html"
    ' ダイアログを表示
    driver.FindElementByXPath("//*[@id='content']/section[1]/figure/p/input").Click
    
    'dlgオブジェクトにダイアログボックスを代入
    Dim dlg As Alert: Set dlg = driver.SwitchToAlert
    driver.Wait 2000
    dlg.Dismiss  '「キャンセル」ボタンをクリック
    Debug.Print dlg.Text
    driver.Wait 2000
    
    Set dlg = driver.SwitchToAlert
    dlg.Accept  '「OK」ボタンをクリック
    Debug.Print dlg.Text
    driver.Wait 2000
    driver.Quit
End Sub

InputText_DialogBox

Private Sub InputText_DialogBox()
    Dim driver As New ChromeDriver
    driver.Get "https://www.tagindex.com/javascript/window/prompt.html"
    driver.FindElementByXPath("//*[@id='content']/section[1]/figure/p/input").Click
    
    'dlgオブジェクトにダイアログボックスを代入
    Dim dlg As Alert: Set dlg = driver.SwitchToAlert
    driver.Wait 2000
    dlg.SendKeys "tama"
    dlg.Accept
    driver.Wait 2000
    
    driver.Quit
End Sub