'得到当前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的页面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