No the createobject seemed to work. It's the NAVIGATE call that just
kept returning NULL.
I even opened the firewall for my app plus vRunFox.exe. Plus ran as
Administrator. No difference.
On 6/16/2020 6:08 PM, Richard Kaye wrote:
If the createobject is failing, my first guess is there's something wrong with
the way the OLE object is registered (or not). Or perhaps a user security issue.
--
rk
-----Original Message-----
From: ProfoxTech <[email protected]> On Behalf Of MB Software
Solutions, LLC
Sent: Tuesday, June 16, 2020 6:01 PM
To: [email protected]
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
_______________________________________________
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.
