Forum ViSiBLe

Bem Vindo
Se registrares neste fórum, podes fazer parte da nossa comunidade.Prezamos aqui pela participação ACTIVA de cada membro.


Atençao: Nao precisa Confirma a sua conta no hotmail (Basta Registrar e Começar a participar do forum.)

WWW.FORUMVISIBLE.COM

Temos vagas na STAFF !! Clique Aqui!

Exibindo IP interno e externo

Compartilhe
avatar
MrViSiBLe
Administrador
Administrador

Número de Mensagens : 3778
Idade : 24
Localização : Cuiaba
Agradecimentos Agradecimentos : 864
Data de inscrição : 10/12/2008

Exibindo IP interno e externo

Mensagem por MrViSiBLe em 10/6/2010, 01:04

Primeiramente aperte CTRL+T e adicione o componente "Microsoft Itnernet Transfer Control 6.0" e o componente "Microsoft Winsock Control 6.0" e coloque os 2 componentes ao form.

Adicione a seguinte função ao form:
Public Function GetExternalIP(IIN As Inet)
Dim lngA As Long

Dim strA As String
Dim strB() As String

strA = IIN.OpenURL("[Você precisa estar registrado e conectado para ver este link.]
strB = Split(strA, Chr(10))

GetExternalIP = Trim(Replace(Replace(strB(34), " ", ""), "
", ""))

End Function

Crie 2 TextBox e 1 CommandButton
Então coloque o codigo abaixo no CommandButton:
Dim EIP
EIP = GetExternalIP(Inet1)

Text1.Text = EIP
Text2.Text = Winsock1.LocalIP

Créditos: The Joker/Tsunami/Taurus
avatar
pugahell
Membro Banido
Membro Banido

Número de Mensagens : 48
Idade : 27
Agradecimentos Agradecimentos : 0
Data de inscrição : 15/11/2010

Re: Exibindo IP interno e externo

Mensagem por pugahell em 11/15/2010, 23:42

bom dms

    Data/hora atual: 9/21/2017, 04:41