UC知道WEBBROWSER查看源码问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 02:07:16
Private Sub Command8_Click()
Dim objhtml
Dim doc
If WebBrowser1.Busy = False Then
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text2.Text = objhtml.htmltext
End If
End If
Set doc = Nothing
Set objhtml = Nothing
End Sub
以上代码看别的网页没问题，可为什么在查看www.5566.net的时候
createtextrange()这个函数总会出错呢？
这个网页可以正常获取啊
Dim objhtml
Dim doc
If WebBrowser1.Busy = False Then
Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text2.Text = objhtml.htmltext
End If
End If
Set doc = Nothing
Set objhtml = Nothing
End Sub
以上代码看别的网页没问题，可为什么在查看www.5566.net的时候
createtextrange()这个函数总会出错呢？
这个网页可以正常获取啊
这个是框架网页。。所以没有 body
Private Sub Command1_Click()
WebBrowser1.Navigate "www.5566.net"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Text1 = WebBrowser1.Document.frames(0).Document.body.innerHTML
End Sub
查看 http://bjgangguan.com/ 这个页面正常吗？