'得到當(dāng)前browser的頁面字體內(nèi)容
Public Function getWebContent()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上面這個函數(shù)可以得到browser中所有文字信息.


 上面這個函數(shù)可以得到browser頁面的HTML代碼.

該文章在 2013/11/14 16:55:53 編輯過