29 lines
635 B
QBasic
29 lines
635 B
QBasic
Attribute VB_Name = "usage_dom"
|
|
|
|
Private Sub Get_DOM_1()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "https://en.wikipedia.org/wiki/Main_Page"
|
|
|
|
Dim html As Object
|
|
Set html = CreateObject("htmlfile")
|
|
html.Open
|
|
html.Write driver.PageSource()
|
|
html.Close
|
|
|
|
Debug.Print html.body.innerText
|
|
driver.Quit
|
|
End Sub
|
|
|
|
|
|
Private Sub Get_DOM_2()
|
|
Dim driver As New ChromeDriver
|
|
driver.Get "https://en.wikipedia.org/wiki/Main_Page"
|
|
|
|
Dim html As Object
|
|
Set html = CreateObject("htmlfile")
|
|
html.body.innerHTML = driver.ExecuteScript("return document.body.innerHTML;")
|
|
|
|
Debug.Print html.body.innerText
|
|
driver.Quit
|
|
End Sub
|