网页完全加载的再次讨论
在判断网页完本加载成功时我用下面的语句
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Print "downing................." & URL
If pDisp Is WebBrowser1.Object Then
Print "Ok"
End If
End Sub
这个语句在大多数网站上测试是行得通的，但是也有些比较变态一点的网站, 比如www.jiayuan.com这个网站这样写就不行。
它首先跳转到一个空白页里去了,然后再打开网址，最后因为没有顶级框架而无法作判断。不知现在比较流行的一些浏览器像世界之窗是怎么判断的.
[解决办法]
Do While not WebBrowser1.Busy
DoEvents
Loop
Print "ok"
[解决办法]
这个网站偶尔会有顶级框架，不过太不可靠了。
我以前都是通过网址判断的，这些变态网站没有触发顶级框架可能是因为他们的网站做的有问题。
完全的判断加载成功也可以靠中间的东西。比如HTML加载的代码到多少了。
网页中的最后需要加载的标记是否加载完成了等方法。
[解决办法]
同意LPZ的方法
[解决办法]
Do While WebBrowser1.Busy
DoEvents
Loop
Print "ok"
是不是没有那个not啊？
