怎么获取webbrowser打开页面的内容？

Question

VB6的webbrowser打开比如http://www.baidu.com如何把网页的内容显示在text上？谢谢

Answer 1

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Text1.Text = WebBrowser1.Document.documentElement.innerhtml
End Sub

Answer 2

Text1.Text = WebBrowser1.Document.documentElement.innerhtml 
Text1.Text = WebBrowser1.Document.body.innerHtml以上两个好像结果都一样，请教二楼有什么区别吗？先谢了~~

Answer 3

Text1.Text   =   WebBrowser1.Document.body.outerHtml '取代码
Text1.Text   =   WebBrowser1.Document.body.innerText '取文字