The code below I have run since years ago when I got it from Dave
Crozier here on ProFox. I think it's a firewall issue. The
oIE.Navigate command returns .NULL. Your thoughts as to what it might
be? He's got IE11 on his machine. I went into IE11 and it works fine.
(BIG THANKS to Ed for the vRunFox that is helping me remote sleuth this
issue!)
* Taken from http://leafe.com/archives/msg/493379, courtesy Dave
Crozier for the ProFox post!!
WAIT WINDOW TIMEOUT 1 "Retrieving IP address for security
verification...please wait."
LOCAL oIE as InternetExplorer.Application, nStart as Number
TRY
oIE = createobject("internetexplorer.application")
CATCH TO loException
llFail = .T.
lcIP = 'error'
this.Alert(loException.Message,16,"Could not invoke
Internet Explorer",.T.)
ENDTRY
IF NOT llFail THEN
*** mjb 06/16/2020 - added TRY
TRY
oIE.Navigate("http://www.atoutfox.org/ip.asp";)
nStart = SECONDS()
DO WHILE oIE.ReadyState<>4 AND (seconds()-nStart)
<= IP_TIMEOUT
DOEVENTS
ENDDO
IF oIE.ReadyState<>4
lcIP = "" && "0.0.0.0"
ELSE
lcIP = oIE.document.nameprop()
ENDIF
CATCH TO loException
MESSAGEBOX(loException.Message,16,"Problem with
first IP site")
ENDTRY
TRY
IF EMPTY(lcIP) THEN && try the alternative site per
Stephen Russell
oIE.Navigate("http://ipecho.net/plain";)
nStart = SECONDS()
DO WHILE oIE.ReadyState<>4 AND
(seconds()-nStart) <= IP_TIMEOUT
DOEVENTS
ENDDO
IF oIE.ReadyState<>4
lcIP = "" && "0.0.0.0"
ELSE
lcIP = oIE.document.body.innerHTML
ENDIF
ENDIF && EMPTY(lcIP)
RELEASE oIE
CATCH TO loException
MESSAGEBOX(loException.Message,16,"Problem with
second IP site")
ENDTRY
ENDIF && NOT llFail
--
This email has been checked for viruses by Avast antivirus software.
https://www.avast.com/antivirus
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: https://mail.leafe.com/mailman/listinfo/profox
OT-free version of this list: https://mail.leafe.com/mailman/listinfo/profoxtech
Searchable Archive: https://leafe.com/archives
This message:
https://leafe.com/archives/byMID/[email protected]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
