【Selenium-VBA】Seleniumにおけるアラート操作をわかりやすく説明します。

こんにちは、blueです。

スクレイピングの最中に以下のような表示が出たことはないでしょうか？

これはJavaScriptによって表示されるダイアログなのですが、HTMLで表示されているわけはない為、これまでのような要素の取得による方法では操作ができません。またダイアログにも種類がある為それぞれの方法を使う必要があります。

そこで今回はSelenium-VBAにおけるアラート操作について説明をします。

この記事を読むと

・アラートを含めた各種ダイアログを操作できる

・Basic認証を処理できる

ようになります。コードは簡単に書けるのでぜひ勉強していってください。

VBAを使ったものではありませんが、Seleniumを勉強する為の基本的な書籍です。今回のアラートダイアログやBasic認証に関する処理についても記載がなされており、困ったときに参考になります。

リンク

VBAの書籍の中でSeleniumBasicを取り上げている数少ない書籍です。ページ数としては20ページほどですがとてもわかりやすく書かれています。またVBA全般を網羅した内容が書かれており、長く使用することができます。

リンク

ダイアログについて
おまけ：Basic認証を処理する
今回のまとめ

ダイアログについて

Webページを表示した際にポップアップするボックスはJavaScriptによって作成されています。

JavaScriptのダイアログには以下のようなものがあります。

アラートダイアログ
確認ダイアログ
入力ダイアログ

それぞれに対するスクレイピングの方法について以降で説明します。

なお今回のサンプルとしては以下のサイトを使用しました。

TAG index

JavaScriptだけではなくHTMLやCSSのサンプルコードが記載されているサイトですが、今回ダイアログ操作用に使わせていただきます。

アラートダイアログ1(クリック時）

以下のようなダイアログをアラートダイアログ、警告ダイアログといいます。

ボタンクリック時に出るアラートダイアログを操作するコードは以下になります。

アラートダイアログのサイトは以下を使っています。

TAG Index

ちなみにそのまま実行すると処理が早すぎてアラートダイアログなどが見れません。

F8キーなどで一つずつ処理してみてください。

Sub 警告ダイアログのOKを押す1()
    
    Dim Driver As New Selenium.WebDriver
    Driver.Start "Chrome"
    
    Driver.Get "https://www.tagindex.com/javascript/window/alert1.html"

    Driver.FindElementByCss("#content > section.overview > figure > p > input[type=button]").Click

    Driver.SwitchToAlert.Accept
    
End Sub

ここで使用しているのはSwitchToAlertメソッドとAcceptメソッドになります。

Driver.SwitchToAlert.Accept

このメソッドを使うことで、ページ中のアラートダイアログにフォーカスを移すことができます。

またAcceptメソッドを使うことにより、警告ダイアログを受け入れることができます。

アラートダイアログ2（ページ移動時）

ページ移動時に出るアラートダイアログを操作するコードは以下になります。

アラートダイアログのサイトは以下を使っています。

TAG Index

Sub 警告ダイアログのOKを押す2_ページ移動時に表示するタイプ()
    
    Dim Driver As New Selenium.WebDriver
    Dim a As String
    Dim instance As Actions
    Driver.Start "Chrome"
    
    Driver.Get "https://www.tagindex.com/javascript/window/alert2.html"
    Driver.FindElementByCss("#content > section.overview > figure > p > a:nth-child(1)").Click
　 ’広告が表示されるためもう一度戻って処理を行う
    Driver.Get "https://www.tagindex.com/javascript/window/alert2.html"

    Driver.FindElementByCss("#content > section.overview > figure > p > a:nth-child(1)").Click
    Driver.SwitchToAlert.Accept
  
End Sub

F8キーで確認してもらうとわかると思いますが、同じサイトを２回表示させているのは途中に広告が表示されるためです。

広告の処理は少し難しい為ここでは割愛しますが、一度Cookieに記憶させてしまえば２回目からは広告が出ない性質を利用して、再度処理を行っています。

なお、アラートダイアログに対するコードは前回と同じでSwitchToAlertメソッドを使っています。

確認ダイアログ

以下のようなダイアログを確認ダイアログといいます。

「OK」ボタンと「キャンセル」ボタンがついているのが特徴です。

確認ダイアログを操作するコードは以下になります。

確認ダイアログのサイトは以下を使っています。

TAG Index

こちらもF8キーなどで一つずつ処理してみてください。

Sub 確認ダイアログのOKを押す()
    
    Dim Driver As New Selenium.WebDriver
    
    Driver.Start "Chrome"
    
    Driver.Get "https://www.tagindex.com/javascript/window/confirm.html"
    Driver.FindElementByCss("#content > section.overview > figure > p > input[type=button]").Click
    'OKの場合
    Driver.SwitchToAlert.Accept
    'キャンセルの場合
    'Driver.SwitchToAlert.Dismiss
    'Driver.SwitchToAlert.Accept

 End Sub

ここで使用しているのもSwitchToAlertメソッドとAcceptメソッド、Dismissメソッドになります。

Driver.SwitchToAlert.Accept
Driver.SwitchToAlert.Dismiss

ページ中のダイアログにフォーカスを移すのは同じですが、ウィンドウにボタンが２つ存在するので「OK」の場合はAcceptメソッド、「キャンセル」の場合はDismissメソッドを使います。このサイトの場合キャンセルの後は再度アラートダイアログが表示されるのでAcceptメソッドを使っています。

入力ダイアログ

以下のようなダイアログを入力ダイアログといいます。

ユーザーに入力を促すテキストボックスを表示させているのが特徴です。

入力ダイアログを操作するコードは以下になります。

アラートダイアログのサイトは以下を使っています。

TAG Index

こちらもF8キーなどで一つずつ処理してみてください。

ちなみにここではテキストボックスに「tama」を入力していますが、表示はされません。

ただ入力はうまくいっているので問題はありません。

Sub 入力ダイアログに入力する()
    
    Dim Driver As New Selenium.WebDriver
    Dim Alert As Alert
    Driver.Start "Chrome"
    
    Driver.Get "https://www.tagindex.com/javascript/window/prompt.html"
    Driver.FindElementByCss("#content > section.overview > figure > p > input[type=button]").Click
    
    Driver.SwitchToAlert.SendKeys "tama"
    Driver.SwitchToAlert.Accept
End Sub

ここで使用しているのはSwitchToAlertメソッドとSendKeysメソッドになります。

Driver.SwitchToAlert.SendKeys

ページ中のダイアログにフォーカスを移すのは同じで、テキストボックスへの入力にSendKeysメソッドを使っています。入力後は「ＯＫ」ボタンをクリックする為、Acceptメソッドを使用しています。

おまけ：Basic認証を処理する

以下のようなダイアログをBasic認証といいます。

Basic認証とはインターネットにもともと用意されている認証機能です(引用：「分かりそう」で「分からない」でも「分かった」気になれるIT用語辞典）

Basic認証を処理するコードは以下になります。

Basic認証のサイトは以下を使っています。

BASIC認証テスト

こちらもF8キーなどで一つずつ処理してみてください。

ちなみにここではユーザー名に「kaiin」、パスワードに「naisyo」を使用しています。

Sub Basic認証を入力する()
    
    Dim Driver As New Selenium.WebDriver
    Dim Alert As Alert
    Driver.Start "Chrome"
    
    Driver.Get "http://kaiin:naisho@leggiero.sakura.ne.jp/xxxxbasic_auth_testxxxx/"
    Driver.FindElementByCss("body > a").Click

End Sub

Basic認証に関してですが、WebDriverはこのダイアログを直接操作できません。その為以下のようにアクセスする際のURLに細工を行って処理します。