Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Descobrir o Nº IP da conexao da Internet
Message
From
29/10/2003 12:13:32
 
 
To
29/10/2003 11:53:09
Fabio Barbosa Silva
Jms Assessoria E Consultoria Ltda
Belo Horizonte, Brazil
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00844128
Message ID:
00844144
Views:
24
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
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform