That's it...... I give up! Really, I have been away for a long time, had let my subscription lapse,
so I couldn't search.

But I'm going to subscribe right now!!!

This is a wonderful resource. Thanks for all that make it so.


Best regards,

dg




>Check Message ID: 1452490
>
>>I am attempting to determine the IP Address programatically. I have applied the following code:
>>
>>

>>
>>Declare Integer InternetCheckConnection In Wininet.Dll String Url, Long dwFlags, Long Reserved
>>lcURL = "http://www.yahoo.com"
>>If InternetCheckConnection(lcURL, 1, 0) = 0
>>	gcConnectionStatus = 'Not connected'
>>	gcIPAddress = 'Not Connected'
>>Else
>>	gcConnectionStatus = 'Yes, connected'
>>	ox = Createobject('internetexplorer.application')
>>	ox.navigate2("whatismyip.org")
>>	N = 0
>>	Do While ox.busy
>>		N = N + 1
>>	Enddo
>>	If Type("ox") = "O"
>>		odoc = ox.Document
>>		gcIPAddress = odoc.Body.InnerText
>>	Endif
>>
>>	If  Substr(gcIPAddress,1,15) = 'The page cannot'
>>		ox = Createobject('internetexplorer.application')
>>		ox.navigate2("http://www.whatismyipaddress.com")
>>		N = 0
>>		Do While ox.busy
>>			N = N + 1
>>			
>>		Enddo
>>
>>
>>
>>		If Type("ox") = "O"
>>			odoc = ox.Document
>>			WAIT WINDOW odoc.Body.InnerText
>>			gcIPAddress = odoc.Body.InnerText
>>		Endif
>>	Endif
>>Endif
>>
>>

>>
>>At times I get a system error "Member BODY does not evaluate to an object"
>>
>>What error handling routine can I use to ignore the error and return .null.?
>>
>>Thanks to all,
>>
>>dg