Internet Explorer question - Refresh

[Tim Coddington]

Sometimes after I fire up my IE session, I get a 'web page is not available'
error. If I then click 'Refresh' (or go ieAmeritrade.refresh), the login
page loads correctly.

1) Is there a way to test before the Do loop to see if I have gotten the
real page or an error page?
2) What is the variable type of ipf?

Public Sub InitAmeritrade()
Dim ieAmeritrade As InternetExplorer

Set ieAmeritrade = New InternetExplorer
ieAmeritrade.Visible = True
ieAmeritrade.Navigate
"https://wwws.ameritrade.com/cgi-bin/spec_login.cgi?SP=LTC"
Do Until ieAmeritrade.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

'Log on
Set ipf = ieAmeritrade.Document.all.Item("USERID")

 

[Sharad]

First of all this will not be before the do loop but after it and the do
loop has to be used again after refresh.

Then, If IEObject.ReadyState = READYSTATE_COMPLETE may not work some
times, especially when refreshed. If the page is completely loaded, IE
sometimes keep giving readystate as still loading. Therefore another
condition (if the statustext conatins word "Done") need to be added to
exit the do loop otherwise the do loop may go in infinite loop.

Third, the page error can be error generated because IE can not resolve
the URL address to IP address, (either DNS error, or internet link down)
OR the web site itself may generate error page (requested page not found
or temporarily down etc.) Therefore, I thought the better way would be
check if on the loaded page, Item("USERID") exists or not, if not, then
refresh.

Simple loop of keeping refreshing if above error found, may again land
in an infinite loop if internet link is down or DNS error. Therefore
better to do refresh a certain no. of times, still if the page is not
loaded, giver error message and exit. Below code will try refreshing 3
times:

Public Sub InitAmeritrade()
Dim ieAmeritrade As InternetExplorer, n As Integer
Set ieAmeritrade = New InternetExplorer
ieAmeritrade.Visible = True
ieAmeritrade.Navigate _
"https://wwws.ameritrade.com/cgi-bin/spec_login.cgi?SP=LTC"

n = 1
WaitLoop:
Do Until ieAmeritrade.ReadyState = READYSTATE_COMPLETE
DoEvents
If InStr(1, ieAmeritrade.StatusText, "Done") _

0 Then Exit Do

Loop
Set ifp = ieAmeritrade.Document.All.Item("USERID")
Err.Clear
On Error Resume Next
If IsError(ifp.Name) Then
If n > 3 Then
MsgBox "Refreshing 3 times did not help"
'Instead of msgbox you can put a code to
'write log in to a cell 'could not open site'
ieAmeritrade.Quit
Exit Sub
End If
n = n + 1
ieAmeritrade.Refresh
GoTo WaitLoop:
End If
On Error GoTo 0
'Your remaining code from ifp = "Username" onwards.
End Sub

 

[Tim Coddington]

Mr Sharad:
You have been a great help to me, and I thank you very much. This has shown
me several new ideas which I need to incorporate as well as having answered
several as yet un-asked questions.

-Tim