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