Question

vb WebBrowser1网页源码 不完整

Private Sub Command1_Click()
Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String

If Not WebBrowser1.Busy Then
Set doc = WebBrowser1.Document
i = 0
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
Timer1.Enabled = False
End If
End Sub
高手请帮我看看为什么网页的源代码没有获取完整

Answer 1

没必要用 createtextrange。

直接
WebBrowser1.document.documentElement.outerHTML
或者
WebBrowser1.document.all(0).outerHTML
就能获取源码了。

不过这些都是不包含嵌套在内的frame里的网页源码。

Answer 2

如果网页有多个form你只能获取到第一个form，应该用：

WebBrowser1.Document.documentelement.outerhtml

这个就是网页的源代码，一句话搞定。