RE: This code doesn't work on this guy's new HP machine (but works on his own machine) -- both Win10 -- maybe a firewall issue?

[John Weller]

I second the comment about vRunFox!!

John Weller
01380 723235
07976 393631

-----Original Message-----
From: ProfoxTech <profoxtech-boun...@leafe.com> On Behalf Of MB Software 
Solutions, LLC
Sent: 16 June 2020 23:01
To: profoxt...@leafe.com
Subject: This code doesn't work on this guy's new HP machine (but works on his 
own machine) -- both Win10 -- maybe a firewall issue?

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


[excessive quoting removed by server]

_______________________________________________
Post Messages to: ProFox@leafe.com
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/002f01d6448c$93343230$b99c9690$@johnweller.co.uk
** 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.