check readystate twice

[hmcheung]

I've got the following code. there are two Do Until... Loop in it. Is it illegal to have two of them? coz it's ok when I have only one of them my program hangs when I have two.


Private Sub Command1_Click()
Webbrowser1.Navigate "http://www.abc.com./hello.asp"
Do Until Webbrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

SendKeys "{tab 8}"
SendKeys "andy" 'input the search string to the text box
SendKeys "{enter}" 'this "enter" submit the form and brings up another asp

Do Until Webbrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Web1.SetFocus
End Sub

Why would it be illegal? If it works, than use it.

You could have a DoEvents there which will also wait until the site has loaded completely before moving on to the next code.

Private Sub Command1_Click()
Webbrowser1.Navigate "http://www.abc.com./hello.asp"
DoEvents
SendKeys "{tab 8}"
SendKeys "andy" 'input the search string to the text box
SendKeys "{enter}" 'this "enter" submit the form and brings up another asp

Do Until Webbrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Web1.SetFocus
End Sub