VB WebBrowser 如何判断是否加载失败？

我本来是想用VB提交网页表单的
先是想用INET，POST方式提交
正常的网页是可以提交的
但是我要搞的那个页面，页面里面有2个JS是检测客户端的，所以我如果直接用INET提交是不能成功的，最后还是用WebBrowser加载网页，然后点击提交按钮来完成的。
现在遇到2个问题：
第一，网页中有图片等多媒体元素，加载太慢，目前解决方法是把网页保存本地来用WebBrowser再打开，再提交
第二，WebBrowser加载网页有时候会卡住不动了，不知道有没有什么办法让程序检测，如果一定时间加载失败就重新载入网页
晕死，斑竹怎么2个都删除了。。。留一个撒

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL <> "http://www.baidu.com/" Then Exit Sub
Do
If Not WebBrowser1.Busy Then Exit Do
DoEvents
Loop

不感兴趣

开通SVIP免广告

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is Form1.WebBrowser1.Object) Then
   '这里，加载完毕了
   end if
end sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

2回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六