【求助】VB WebBrowser 如何等待加载并跳转结束再执行

VB代码
---------------------------------------------------------
Private Sub Form_Load()
    WebBrowser1.navigate "http://222.184.97.27/vod/dingshi.htm"

    MsgBox "OK"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)

    If (pDisp Is WebBrowser1.Object) Then
        MsgBox WebBrowser1.LocationURL
    End If
End Sub
---------------------------------------------------------
http://222.184.97.27/vod/dingshi.htm 页面代码为
打开页面 0秒后跳转到 www.baidu.com
我要的效果是
运行程序后
对话框依次弹出
http://222.184.97.27/vod/dingshi.htm
www.baidu.com
ok
-------------------------
页面中有跳转代码的
如果用 WebBrowser1_DocumentComplete 只能判断到页面打开完毕
就开始执行 msgbox "ok" 的代码了
如何能等待页面跳转的页面完全加载结束再执行下面代码？

目前的顺序依次是
对话框依次弹出
http://222.184.97.27/vod/dingshi.htm
ok
www.baidu.com

不感兴趣

开通SVIP免广告

不对
目前的顺序依次是
对话框依次弹出
ok
http://222.184.97.27/vod/dingshi.htm
www.baidu.com

楼上兄弟
问题就在这里,你看看就知道了
Private Sub Form_Load()
    WebBrowser1.navigate "http://222.184.97.27/vod/dingshi.htm"
     While WebBrowser1.Busy
      DoEvents
     Wend
    Text1.Text = Text1.Text & vbCrLf & "OK"
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)

    If (pDisp Is WebBrowser1.Object) Then
        Text1.Text = Text1.Text & vbCrLf & WebBrowser1.LocationURL
    End If
End Sub

我要的是OK最后一个出现

WebBrowser1.Busy 有两次的
因为我打开的页面要WebBrowser1.Busy忙一次闲一次
然后这个页面自己的代码还要跳转一次地址 WebBrowser1.Busy 又是忙一次闲一次
所以OK肯定在第一次WebBrowser1.Busy闲之后就出现了。。

Private Sub Form_Load()
    WebBrowser1.navigate "http://222.184.97.27/vod/dingshi.htm"

    Do
        DoEvents

        If WebBrowser1.LocationURL = "http://www.baidu.com/" Then

            Text1.Text = Text1.Text & vbCrLf & "OK"
            Exit Do
        End If
    Loop
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    If (pDisp Is WebBrowser1.Object) Then
        Text1.Text = Text1.Text & vbCrLf & WebBrowser1.LocationURL
    End If
End Sub

还是会提前执行，必须要暂停程序，等网页2次跳转完毕再执行下面的代码
最终目的是这个

晕死，我没要做什么不道德的
只是想做个表单的提交
但是这个表单提交到的页面还会重定向
我需要判断最终的页面结束才执行代码

扫二维码下载贴吧客户端

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

7回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六