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.)
Precisamos de administradores e moderadores!! Clique Aqui!

Anuncio


    Exibindo IP interno e externo

    Compartilhe

    MrViSiBLe
    Fundador ViSiBLe
    Fundador ViSiBLe

    Número de Mensagens : 3688
    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


    _________________
    MrViSiBLe Gosto? agradeça. clique em [b]+ Ta Ai do lado Olha  >>>>>Nao Custa Nada[/b]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]
    [Você precisa estar registrado e conectado para ver esta imagem.]

    pugahell
    Membro Banido
    Membro Banido

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

    Re: Exibindo IP interno e externo

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

    bom dms

      Data/hora atual: 12/11/2016, 08:49