Private WD As SeleniumBasic.IWebDriver
Const XpathLastmsg As String = "/html/body/div[1]/div/div[2]/div/div[2]/div/div[1]/div/div/div/div/div/section/div/div[3]/div/div[2]/div[3]/div/div"
Private Sub Command1_Click()
Run
End Sub
Sub Run()
On Error GoTo Err1
Set WD = New SeleniumBasic.IWebDriver
Dim Service As SeleniumBasic.ChromeDriverService
Dim Options As SeleniumBasic.ChromeOptions
Set Service = New SeleniumBasic.ChromeDriverService
With Service
.CreateDefaultService driverPath:="C:\Users\Maatooh\Documents\Selenium"
.HideCommandPromptWindow = True
End With
WD.New_ChromeDriver Service:=Service
WD.url = "https://www.twitch.tv/onenava"
Exit Sub
Err1:
MsgBox Err.Description, vbCritical
Text1 = Err.Description
End Sub
Private Sub Command2_Click()
Text1 = WD.FindElementByXPath(XpathLastmsg).GetAttribute("innerText")
'Text1 = WD.FindElementByXPath(XpathLastmsg).GetAttribute("lastElementChild.innerText")
End Sub