ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Adresse IP publique (externe)   



L'auteur

Francis Faure
France France
Membre Actif (personne physique)
# 0000000001
enregistré le 11/10/2004

http://www.wanagain.net
52 ans
Faure Francis
de la société Design Or Decline
Fiche personnelle


Note des membres
pas de note

Contributions > 05 - API et appels systèmes > IP

Adresse IP publique (externe)
# 0000000134
ajouté le 08/01/2005 02:02:39 et modifié le 19/01/2006
consulté 10000 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0
VFP 3.0

Description

Pour faire suite à la contribution de Mike,
(voir http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000132)
voici une autre version avec atoutfox

votre adresse ip dans votre réseau local est par exemple 192.168.0.1
vous sortez sur l'internet par un routeur ou un firewall qui fait de la NAT
vous cherchez votre adresse IP publique externe....

Code source :
#define TIMEOUT 30  && timeout 30 secondes

o = createobject("internetexplorer.application")
o.Navigate("http://www.atoutfox.org/ip.asp")
v_t = SECONDS()
* Edit Correction suite suggestion de Thierry
* 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

"Votre adresse IP publique : ", v_ip


Commentaires
le 08/01/2005, Mike Gagnon a écrit :
Francis, est-ce le meme principe que mon poste "Comment obtenir l'addresse IP d'un d'ordinateur qui obtient son addresse dynamiquement" ?
Si oui, alors je suprimme le mien. Mais le tien pointe sur atoutfox.org et le mien non. A toi de decider.

le 08/01/2005, Francis Faure a écrit :
Mike,
ton article :
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000132
est très bien !
ne le supprime pas !
oui c'est le même sujet,
mais je pense que laisser différentes solutions au VFPnaute est une bonne chose?

le 27/09/2005, Thierry a écrit :
Remplacer o.busy() par o.ReadyState<>4
Sinon, ce n'est pas fiable, ça retourne parfois 0.0.0.0


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2020.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3