PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 2024 → adresse ip
adresse ip
Iniciado por mg, jun., 21 2005 4:06 PM - 2 respostas
Publicado em junho, 21 2005 - 4:06 PM
la fonction Netadresseip() me renvoie l'adresse ip mais lorsque je suis sur un reseau je n'obtiens donc pas mon IP "internet" mais celle du reseau comment puis-je l'obtenir
Publicado em junho, 21 2005 - 4:30 PM
Adresse_ip, Position_Chaine sont des Chaines

HTTPRequête("http://checkip.dyndns.org//")
adresse_IP=HTTPDonneRésultat()
Position_Chaine=Position(adresse_IP,":")
adresse_IP=Milieu(adresse_IP,Position_Chaine+1,15)
Publicado em junho, 22 2005 - 11:30 AM
Merci pour ta réponse

Je me suis permis de l'améliorer un peu et j'en fait profiter tout le monde :

SourcePage est une chaîne
AdrIP est une chaîne="?"

SI HTTPRequête("http://checkip.dyndns.org") ALORS
SourcePage=HTTPDonneRésultat()
AdrIP=SourcePage[[Position(SourcePage,": ")+2 A Position(SourcePage,"</body>")-1]]
FIN


Bon dév
Matthieu