SOS! 我如何才能通过webBrowser控件获得当前web页的整个html源代码？

Question

SOS! 我如何才能通过webBrowser控件获得当前web页的整个html源代码字符串？

Answer 1

为什么不用Internet Transfer控件

Answer 2

你要原代码有什么用处？分析web内容？还是。。应该有其他的办法

Answer 3

在WebBrowse控件的所有方法里都没有这方面的？

Answer 4

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub Command2_Click()
    Dim x
    For Each x In WebBrowser1.Document.All
        Text1.Text = Text1.Text + x.innerhtml
    Next x
End Sub不过速度可能比较慢

Answer 5

或者：
Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.applevb.com"
End SubPrivate Sub Command2_Click()
    Text1.Text = WebBrowser1.Document.body.innerhtml
End Sub不过只能获得body的html