LOCAL
sSourceDeLaPage est une chaîne
sAdresseIPPublique est une chaîne
nDebut, nFin sont des entiers

SI HTTPRequête(« http://checkip.dyndns.org »)=Vrai ALORS

sSourceDeLaPage = HTTPDonneRésultat()
nDebut = Position(sSourceDeLaPage, « : »,0) + 2
nFin = Position(sSourceDeLaPage, »</BODY> »,0,SansCasse) – 1

sAdresseIPPublique = sSourceDeLaPage[[nDebut A nFin]]

RENVOYER sAdresseIPPublique

SINON

RENVOYER ErreurInfo()

FIN