如何根据WebBrowser1控件的返回值来判断网页是否可以正常打开？

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
'检测URL，如果与你指定的URL一样，则表示正常打开

if lcase(url)=lcase("http://aaaa.bbbb.com") then msgbox "打开网页！"

End Sub


如果网页含有框架、框架中的地址打不开这可能检测不到。另外，如果网页有转向操作，这样也检测不到。