用WEB控件，打开这个网址，为什么它的Web1_DocumentComplete得不到相关状态？

Question

Private Sub Form_Load()
web1URL1 = "http://www.itpub.net/forumdisplay.php?s=&forumid=2&daysprune=30&sortorder=&sortfield=lastpost&perpage=25&pagenumber=1"
Web1.Navigate2 web1URL1End SubPrivate Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not (pDisp Is Web1.Object) Then Exit Sub
Rtxt1.Text = URL
MsgBox URL
If URL = web1URL1 Then
   MsgBox "11111"
End If
End Sub
就是这段代码，我用了几个语句监控是不是进入了这个Web1_DocumentComplete状态（Rtxt1.Text = URL，MsgBox URL和MsgBox "11111"），谁知没有一个语句起作用，不知为什么？

Answer 1

发生Web1_DocumentComplete事件了，不信你把If Not (pDisp Is Web1.Object) Then Exit Sub这句设置断点试试看

Answer 2

另外，你把那几条语句放在Web1_NavigateComplete2事件中就行了

Answer 3

谢谢老大，是啊，那个Web1_NavigateComplete2可以触发，但是为什么Web1_DocumentComplete我监测不到？百思不得其解啊！

Answer 4

另外，用了这个Web1_NavigateComplete2，好有问题，比如
web1TempHtml = Web1.Document.body.innerhtml这类语句就出错了，错误号是91号怎么办？继续请教！

Answer 5

http://msdn.microsoft.com/workshop/browser/webbrowser/reference/events/documentcomplete.asp

Answer 6

我测试一下，那个MsgBox Web1.ReadyState总是3，而MsgBox READYSTATE_COMPLETE是4
不知为什么Web1.ReadyState没有办法等于4？
请教！

Answer 7

ReadyState is interactive after Nagivate and before DocumentComplete.
In some cases, the ReadyState will remain interactive, such as a frame navigation is canceled, some error occured during loading, or the webbrowser control is hidden.

Answer 8

老大真是牛人啊！那么那个网站该怎么办呢？是不是IE要怎么设置才行？
我总是没有办法捕捉到网页的READYSTATE_COMPLETE状态。没有办法采集这个网页的信息继续请教！谢谢先！