Set timeout when automating Internet Explorer

[Oliver Dewar]

Hi All.

I'm using the following code to navigate Internet Explorer around:

With IE        

            .Visible = False
        
            .Navigate "http://www.domain.com/" 'this is could be any domain
            
            Do Until .readyState = 4: DoEvents: Loop

End With

Sometimes I hit a site which takes a long time to load, or has an on page coding error which causes it to never load.

I'd therefore like to set a timeout duration, so allow the browser say, 30 seconds, to load before aborting the load.

I guess the command would be put in the 'Do Until .readyState = 4' line as an OR statement... but how would I implement this? Any ideas or known solutions?

Cheers,

Oliver

 

[ZVI]

Try this:

  With IE
    .Visible = False
    .Navigate "http://www.domain.com/"         ' this is could be any domain
    Dim dt As Date
    dt = Now + TimeSerial(0, 0, 30)            ' 30 is timeout in seconds
    Do Until .readyState = 4
      DoEvents
      If Now > dt Then
        MsgBox "Timeout has happened", vbExclamation, "Canceled"
        Exit Sub
      End If
    Loop
  End With

 

[Oliver Dewar]

Hi Vladimir.

As usual... you've nailed it.

This solution is such a help to me.

Along with this function to test internet connection by Chip Pearson:

check internet availability using VBA - Microsoft Community

Web automation is a lot less fraught with freezes!

Cheers.