在WebBrowser的DocumentComplete事件中：
1: Dim HTML As HTMLDocument
2: Dim strData As String
3: Set HTML = WebBrowser1.Document
4: strData = HTML.documentElement.innerHTML
其中 strData就是返回的HTML代码。WebBrowser1就是 WebBrowser对象
本文转自 http://www.lishengping.com/archives/44