Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Descobrir o Nº IP da conexao da Internet
Message
De
29/10/2003 12:13:32
 
 
À
29/10/2003 11:53:09
Fabio Barbosa Silva
Jms Assessoria E Consultoria Ltda
Belo Horizonte, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Applications Internet
Divers
Thread ID:
00844128
Message ID:
00844144
Vues:
25
This message has been marked as the solution to the initial question of the thread.
>Existe alguma maneira de descobrir o ip que se esta conectado na internet.Pois este ip muda a cada conexao.
Oi Fabio;
DECLARE INTEGER GetAdaptersInfo IN iphlpapi;
	STRING @pAdapterInfo, ;
	LONG @pOutBufLen

LOCAL Buffer, ;
      Bufsize

Bufsize	= 4096
Buffer	= REPL(CHR(0), Bufsize)

IF GetAdaptersInfo(@Buffer, @Bufsize) = 0
	? "Current IP address:", STRTRAN(SUBSTR(Buffer, 433,15), CHR(0), "")
	? "Gateway           :", STRTRAN(SUBSTR(Buffer, 473,15), CHR(0), "")
ENDIF
Claudio
"Now to him who is able to do immeasurably more than all we ask or imagine, according to his power that is at work within us, Ephesians 3:20
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform