请问个webbrowser的有关问题。 单步执行成功，连续执行失败

请教个webbrowser的问题。 单步执行成功，连续执行失败。
Private Sub Command3_Click()
Dim i As Integer
Dim vDoc, vTag1

WebBrowser1.Navigate "http://www.baidu.com"

While WebBrowser1.Busy
Wend
     
Set vDoc = WebBrowser1.Document

For i = 0 To vDoc.All.Length - 1

    If UCase(vDoc.All(i).id) = "KW" Then
            vDoc.All(i).Value = "hello"
    End If

    If UCase(vDoc.All(i).id) = "SU" Then
            vDoc.All(i).Click
            Exit For
    End If    

Next i        
End Sub


单步调试的时候，有时候可以正常打开搜索hello页面，有些时候仍然在baidu首页。 连续执行就完全在百度首页。请问这是什么问题，多谢各路大侠指教！
[解决办法]
有个DocumentComplete事件吧，在那里试试
[解决办法]

引用:

Private Sub Command3_Click()
Dim i As Integer
Dim vDoc, vTag1

WebBrowser1.Navigate "http://www.baidu.com"

While WebBrowser1.Busy
Wend
     
Set vDoc = WebBrowser1.Document

F……

While WebBrowser1.Busy
Wend
最好修改为：
Do
        DoEvents
Loop Until WebBrowser1.ReadyState = READYSTATE_COMPLETE

查看更多 下一篇