Just looked at my notes and wse had a problem with that routine getting past the firewall and ended up with this:

#define TIMEOUT 30 && timeout 30 seconds

o = createobject("internetexplorer.application")

o.Navigate("http://www.atoutfox.org/ip.asp")

v_t = SECONDS()

* DO WHILE o.busy() AND (seconds() -v_t) <= TIMEOUT

DO WHILE o.ReadyState<>4 AND (seconds() -v_t) <= TIMEOUT

DOEVENTS

ENDDO

IF o.ReadyState<>4

v_ip = "0.0.0.0"

else

v_ip = o.document.nameprop()

ENDIF

RELEASE o

? "Your IP address is : ", v_ip

Hope it helps

Dave

-----Original Message-----

From: ProFox [mailto:profox-bounces@leafe.com] On Behalf Of mbsoftwaresolutions@mbsoftwaresolutions.com

Sent: 27 May 2014 16:13

To: profox@leafe.com

Subject: How to identify a person's IP address from your VFP app?

I'm wondering how to identify the user's IP address so we can apply tighter security. (MySQL allows you to restrict access by IP address.)

How do you get the person's true IP (and not just the internal network IP)? Do you do a TraceRt and someone glean it from that?

Thanks!

[excessive quoting removed by server]

_______________________________________________

Post Messages to: ProFox@leafe.com

Subscription Maintenance: http://mail.leafe.com/mailman/listinfo/profox

OT-free version of this list: http://mail.leafe.com/mailman/listinfo/profoxtech

Searchable Archive: http://leafe.com/archives/search/profox

This message: http://leafe.com/archives/byMID/profox/18725B8CD2D5D247873A2BAF401D4AB22A510DFB@EX2010-A-FPL.FPL.LOCAL

** 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.