Salut à tous et merci pour vos réponses.
Ca fait longtemp que j'avais posé cette questions, maintenant j'ai fait une dll avec pure basic tout seul qui permet de récupérer l'adresse ip externet à partir d'un script PHP
2 fonctions :
String = LocalIP()
et
String = NetIP("Adresse du scripte PHP")
voici le code source
Global MyIP.l
Global IP.s
Global Result.b
Result = InitNetwork()
ProcedureDLL.s LocalIP()
If Result = 1
ExamineIPAddresses()
MyIP = NextIPAddress()
IP = IPString(MyIP)
ProcedureReturn IP
Else
ProcedureReturn "Local IP null"
EndIf
EndProcedure
Procedure.s OpenURL(Url.s, OpenType.b)
isLoop.b=1
INET_RELOAD.l=$80000000
hInet.l=0: hURL.l=0: Bytes.l=0
Buffer.s=Space(2048)
hInet = InternetOpen_("PB@INET", OpenType, #Null, #Null, 0)
hURL = InternetOpenUrl_(hInet, Url, #Null, 0, INET_RELOAD, 0)
Repeat
Delay(1)
InternetReadFile_(hURL, @Buffer, Len(Buffer), @Bytes)
If Bytes = 0
isLoop=0
Else
res.s = res + Left(Buffer, Bytes)
EndIf
Until isLoop=0
InternetCloseHandle_(hURL)
InternetCloseHandle_(hInet)
ProcedureReturn res
EndProcedure
ProcedureDLL.s NetIP(URL.s)
HTML.s = OpenURL(URL, 1)
debut.l = FindString(HTML,"IP : ",1) + 5
fin.l = FindString(HTML,"END",1)
netip.s = Mid(HTML,debut,(fin - debut))
If netip = ""
ProcedureReturn "Net IP null"
Else
ProcedureReturn netip
EndIf
EndProcedure
Voila, a plus