VB中WebBrowser 如何判断下载结束

来源：百度知道 编辑：UC知道 时间：2024/05/11 20:38:00
想要在WebBrowser连续载入三个网页
例如：
(1)打开www.126.com
(2)判断网页完全打开后，打开www.163.com
(3)当前面网页完全打开后，打开www.21cn.com
需要给去源码，谢谢（主要是那个连续判断的过程）
使用WebBrowser1_DocumentComplete能连续判断吗？！

Dim wi&

Private Sub Command1_Click()
wi = 1
WebBrowser1.Navigate ("www.126.com")
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Select Case wi
Case 1
WebBrowser1.Navigate ("www.163.com")
wi = 2
Case 2
WebBrowser1.Navigate ("www.21cn.com")
wi = 0
End Select
End Sub