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

Comment obtenir l'addresse IP d'un d'ordinateur qui obtient son addresse dynamiquement   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

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

Comment obtenir l'addresse IP d'un d'ordinateur qui obtient son addresse dynamiquement
# 0000000132
ajouté le 06/01/2005 19:37:32 et modifié le 18/09/2005
consulté 7014 fois
Niveau initié

Version(s) Foxpro :
VFP 7.0

Description
Dans le cas ou l'ordinateur obtient son addresse dynamiquement on peut utiliser cette fonction. A noter que je site peux changer d'allure et le reponse peut etre "UnKnown"
Code source :
?GetPublicIPAddress()

Function GetPublicIPAddress
  loExplorer = Createobject("InternetExplorer.Application")
  loExplorer.Navigate2("www.whatismyip.com")
  Do While loExplorer.readystate <> 4
  Enddo
  loDoc = loExplorer.Document
  MyPublicIp = loDoc.Body.Innertext
  m.lcReturnYourIP = "UNKNOWN"

  If Ratc("Bookmark Your IP",MyPublicIp,1) > 0
    m.lcReturnYourIP = Strtran(Strtran(Alltrim(Substr(MyPublicIp,;
      ratc("Bookmark Your IP",MyPublicIp,1)+19,14)),Chr(13)),Chr(10))
  Endif
  Return m.lcReturnYourIP
ENDFUNC

Commentaires
le 20/09/2005, MILCENT Bernhart a écrit :
Il semblerait que la valeur retournée par le serveur se modifie au fil des jours.

MyPublicIp = loDoc.Body.Innertext

le 20/09/2005, Mike Gagnon a écrit :
Peut-etre utliser la solution de Francis qui semble plus stable
http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000134


Publicité

Les pubs en cours :

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