locked
Como colocar IP de um usuário em uma LABEL RRS feed

  • Pergunta

  • Fiz um programa e queria saber se quando um usuário executar ele o IP dele e o nome da máquina aparecesse no programa, já cheguei ver em alguns métodos na internet mais o usuário tinha que clicar no botão para aparecer o IP, queria um COD que assim que ele abrisse o programa já aparecesse o nome da maquina e o IP por uma LABEL.

    Códigos que eu vi:

    'Inserir depois do botão'
    TextBox2.Text = AxWinsock1.LocalIP
    TextBox1.Text = AxWinsock1.LocalHostName

    Obrigado pela atenção, espero que entendam!

    terça-feira, 3 de novembro de 2015 22:52

Respostas

  • Bom dia Matheus,

    Utilize os códigos que coloquei abaixo.

    Public Class ObtemIP

    Shared Function ObtemEnderecoIP() As String

       Dim oEndereco As System.Net.IPAddress
         Dim sEndereco As String

       With GetHostByName(GetHostName)

          oEndereco = New System.Net.IPAddress(.AddressList(0).Address)
          sEndereco = oEndereco.ToString

        End With
       ObtemEnderecoIP = sEndereco

    End Function

    End Class

    - Colocar as informaçções abaixo no seu método load.

        
        TextBox1.Text = GetHostName()
           
        TextBox2.Text = ObtemIP.ObtemEnderecoIP
           


    Atenciosamente, Roberto Alves


    • Editado Roberto AB Filho quinta-feira, 5 de novembro de 2015 12:37
    • Marcado como Resposta Marcos SJ quinta-feira, 5 de novembro de 2015 12:39
    quinta-feira, 5 de novembro de 2015 12:34

Todas as Respostas

  • Boa noite,

    crie uma classe e chame no page load

    Public Class ObtemIP

     

    Shared Function ObtemEnderecoIP() As String

       Dim oEndereco As System.Net.IPAddress

         Dim sEndereco As String

     

       With GetHostByName(GetHostName)

          oEndereco = NewSystem.Net.IPAddress(.AddressList(0).Address)

          sEndereco = oEndereco.ToString

        End With

       ObtemEnderecoIP = sEndereco

    End Function

     

    End Class

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load 

       TextBox1.Text = GetHostName()

       TextBox2.Text = ObtemIP.ObtemEnderecoIP

     

    End Sub

    Espero ter ajudado.

    Abraço

    • Sugerido como Resposta Danilo Telles terça-feira, 3 de novembro de 2015 23:10
    • Não Sugerido como Resposta Marcos SJ quinta-feira, 5 de novembro de 2015 12:23
    terça-feira, 3 de novembro de 2015 23:10
  • Danilo agradeço muito por sua ajuda, mas eu sou muito novo nisso, só estou usando por sport mesmo e não estou entendendo quase nada do que você me disse, só entendi até o momento de criar uma classe, dps eu não entendi mais nada. Tem como me da uma força? Kkkk
    terça-feira, 3 de novembro de 2015 23:27
  • Bom dia,

    vc já conseguiu chegar em um momento e pegar o IP, pelo menos quando clica no botão? 

    ou não conseguiu?

    Abraço

    quarta-feira, 4 de novembro de 2015 10:50
  • Boa noite Danilo,

    Infelizmente dá um erro quando eu dou um "play" no programa.

    Da essa mensagem aí como está na imagem.

    Eu sou o ADMINISTRADOR do computador, e o código que eu usei foi esse:

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            TextBox7.Text = AxWinsock1.LocalIP
            TextBox6.Text = AxWinsock1.LocalHostName

        End Sub
    End Class

    E agora? É possível resolver?
    Obrigado pela atenção amigo, abraço.

    quarta-feira, 4 de novembro de 2015 23:35
  • Bom dia Matheus,

    Utilize os códigos que coloquei abaixo.

    Public Class ObtemIP

    Shared Function ObtemEnderecoIP() As String

       Dim oEndereco As System.Net.IPAddress
         Dim sEndereco As String

       With GetHostByName(GetHostName)

          oEndereco = New System.Net.IPAddress(.AddressList(0).Address)
          sEndereco = oEndereco.ToString

        End With
       ObtemEnderecoIP = sEndereco

    End Function

    End Class

    - Colocar as informaçções abaixo no seu método load.

        
        TextBox1.Text = GetHostName()
           
        TextBox2.Text = ObtemIP.ObtemEnderecoIP
           


    Atenciosamente, Roberto Alves


    • Editado Roberto AB Filho quinta-feira, 5 de novembro de 2015 12:37
    • Marcado como Resposta Marcos SJ quinta-feira, 5 de novembro de 2015 12:39
    quinta-feira, 5 de novembro de 2015 12:34
  • Bom dia,

    se não conseguiu resolver, posta seu codigo para vermos, está com erro na criação do formulário, não está nem chegando no seu evento do botão.

    é sim possivel resolver.

    Att.

    • Sugerido como Resposta Danilo Telles sexta-feira, 6 de novembro de 2015 13:56
    sexta-feira, 6 de novembro de 2015 13:56