sample code of Selenium-VBA

sample.cls

Option Explicit

Private driver As SeleniumWrapper.WebDriver

Private Sub InitializeWebDriver()
  Set driver = New SeleniumWrapper.WebDriver
  Call driver.Start("firefox", "http://192.168.1.1/")
End sub

Private Sub Login()
    'ログイン画面
    driver.get ("/Default.aspx")
    driver.findElementById("LoginId_TBox").Clear
    driver.findElementById("LoginId_TBox").SendKeys "username"
    driver.findElementById("Pass_TBox").Clear
    driver.findElementById("Pass_TBox").SendKeys "pass"
    driver.findElementById("Login_Btn").Click
End Sub    
    
Private Sub Search(ourRef As String)    
    '簡易検索画面
    Call driver.get("/Search.aspx")
    Call driver.findElementById("MainContent_Ref_TBox").Clear
    Call driver.findElementById("MainContent_Ref_TBox").SendKeys(ourRef)
    Call driver.findElementById("MainContent_Search_Btn").Click
End Sub

Public Function GetText(ourRef As String)
    Call InitializeWebDriver
    Call Login
    Call Search(ourRef)
    Dim id: id = driver.findElementById("MainContent_OurRef_Link").getAttribute("href")
    
    ' 基本情報画面
    Call driver.get("/OurRefInfo.aspx?id=" & id)
    GetText = driver.findElementByCssSelector("#InfoContent_MainInfo > table:nth-child(1) > tbody:nth-child(1) > tr:nth-child(1) > td:nth-child(2)").text
End Sub