Loop help needed

[devGOD]

can anyone help me with this coding? i'm trying to get Loop to check if the browser is still busy and if its been busy for
more than 3 secs to stop

Dim gStart As Long
gStart = Timer
 
  Do
  DoEvents
  Loop Until If Not WebBrowser1.Busy = True Then
  End If
  ElseIf InStr(1, WebBrowser1.LocationURL, "user?/nemx") <> 0 And Timer - gStart > 3 And 
  Not WebBrowser1.Busy = False Then
  WebBrowser1.Stop
  End If

[wordracr]

Well, to check for the browser is still loading something, this will work for most cases:

    Do

        DoEvents
        
    Loop Until wb.ReadyState = READYSTATE_COMPLETE

any other questions?

[Ed Lampman]

I don't think you can use an 'IF' statement in your Do-Loop condition.

Your Do-Loop should be either:

Do

Loop Until WebBrowser1.Busy = True

OR

Loop Until WebBrowser1.Busy = False

The IF Then statement should be inside the Do-Loop somewhere, if I follow your logic correctly.

[wordracr]

I didn't realize what you wanted to do. This code should suit you better =0

timer1.interval = 3000

timer1.enable = true
    Do

        DoEvents

        If bolTimesUp Then Exit Do

    Loop Until wb.ReadyState = READYSTATE_COMPLETE



timer1_timer()
        timer1.enabled = false
        bolTimesUp = True
End Sub