2024.03.05 VBA Selenium ログイン

WordPressの管理画面にログインして、アップデートのお知らせのテキストを表示するだけのプログラム
こんな感じでSeleniumによるログインが可能です。

Sub wpLogin()
    Dim Driver As New Selenium.WebDriver
    Dim HTMLDoc As Object
    Dim ID As String
    Dim Pass As String
    
    ID = "hogehogeID"
    Pass = "hogehogePass"

    'ログインページを開く
    Driver.Start "chrome"
    Driver.Get "https://hogehoge.com/wp-login.php"
    Driver.Wait 1000
    With Driver
        'ユーザ名とパスワードを入れてログインボタンを押す
        .FindElementById("user_login").SendKeys ID
        .FindElementById("user_pass").SendKeys Pass
        .FindElementById("wp-submit").Click
    End With

    ' HTMLDocオブジェクトを作成
    Set HTMLDoc = CreateObject("htmlfile")
    ' クリック後のHTMLを取得
    HTMLDoc.body.innerHTML = Driver.PageSource
    

    Debug.Print HTMLDoc.getElementsByClassName("update-nag notice")(0).innertext
    
    ' WebDriverを終了
    Driver.Close
    Driver.Quit
    Set Driver = Nothing
End Sub