'
得到當前browser的頁面字體內容
Public
Function getWebContent(browser As WebBrowser) As String
Dim doc As Object
Dim i As Object
Dim strHtml As String
Set doc = browser.Document
For Each i In doc.All
strHtml = strHtml & Chr(13) & i.innerText
Next
getWebContent = strHtml
End Function
上面這個函數可以得到browser中所有文字信息.
'
得到當前browser的頁面Html內容
Public
Function getWebHtml(browser As WebBrowser) As String
Dim doc As Object
Dim i As Object
Dim strHtml As String
Set doc = browser.Document
For Each i In doc.All
strHtml = strHtml & Chr(13) & i.innerHtml
Next
getWebHtml = strHtml
End Function
上面這個函數可以得到browser頁面的HTML代碼.
本站僅提供存儲服務，所有內容均由用戶發布，如發現有害或侵權內容，請
點擊舉報。
