none
Comando que retorna IP da maquina

    Question

  • Pessoal isso parece ser facil mas não achei, como faço para capturar o IP da maquinha que esta executando o programa.

    att,
    Fabiano Pires
    Tuesday, June 23, 2009 5:07 PM

Answers

  • Fabiano,

    Como você não precisa mais, mesmo assim estou postando uma solução para que outros possam se beneficiar.

    Imports System.Net
    Imports System.Net.Dns
    
    
    Public Class Form1
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
    
    
            Dim h As IPHostEntry = GetHostEntry(GetHostName)
            Dim IP As String = CType(h.AddressList.GetValue(0), IPAddress).ToString()
    
            TextBox1.Text = IP
    
        End Sub
    
    
    
    End Class
    att,
    Fernanda
    “Caso esta resposta tenha ajudado a solucionar sua dúvida, favor clicar em “Marcar como Resposta” para beneficiar outros membros da comunidade que estejam lendo este thread”.
    Wednesday, July 22, 2009 1:32 PM

All replies

  • System.Net.Dns.GetHostAddresses
    blog: http://lblima.blogspot.com
    Tuesday, June 23, 2009 5:27 PM
  • Ele pede um parametro

    System.Net.Dns.GetHostAddresses(hostname or adress)   

    criei uma form para teste com um textbox para retornar o ip de minha maquinha da seguinte forma:

    no load do formulario:

    textbox1.text = System.Net.Dns.GetHostAddresses(my.computer.name)  

    mas não retorna me IP sabe o que pode ser?

    grato,


    Fabiano Pires
    Tuesday, June 23, 2009 5:37 PM
  • Ele retorna um array de IpAdrress.

    blog: http://lblima.blogspot.com
    Tuesday, June 23, 2009 5:40 PM
  • como faço para exibir na caixa de texto todos os valores do array?

    grato,


    Fabiano Pires
    Tuesday, June 23, 2009 6:03 PM
  • E como obter o verdadeiro IP da máquina?
    Tuesday, June 23, 2009 6:04 PM
  • Bem, se você tiver duas placas por exemplo você terá que saber qual o correto, pelo range, classe ip ou outro dado que você tiver da sua rede.
    blog: http://lblima.blogspot.com
    Tuesday, June 23, 2009 6:07 PM
  • Private Sub IPAddress()
    Dim LocalHostName As String
    Dim i As Integer
    LocalHostName = Dns.GetHostName()
    Dim ipEnter As IPHostEntry = Dns.GetHostByName(LocalHostName)
    Dim IpAdd() As IPAddress = ipEnter.AddressList
    For i = 0 To IpAdd.GetUpperBound(0)
    Next
    End Sub 
    Encontrei um bocado de código que faz o que queremos :)
    Tuesday, June 23, 2009 6:14 PM
  • Fabiano,

    Você conseguiu resolver o seu problema?
    Caso afirmativo poste a solução para que outros se beneficiem.

    att,

    Fernanda

    “Caso esta resposta tenha ajudado a solucionar sua dúvida, favor clicar em “Marcar como Resposta” para beneficiar outros membros da comunidade que estejam lendo este thread”.
    Wednesday, July 15, 2009 8:21 PM
  • Olá Fernanda, ainda não consegui, alias não precisei mais disso e parei de tentar.

    att,
    Fabiano Pires
    Tuesday, July 21, 2009 11:31 AM
  • Fabiano,

    Como você não precisa mais, mesmo assim estou postando uma solução para que outros possam se beneficiar.

    Imports System.Net
    Imports System.Net.Dns
    
    
    Public Class Form1
    
    
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
    
    
            Dim h As IPHostEntry = GetHostEntry(GetHostName)
            Dim IP As String = CType(h.AddressList.GetValue(0), IPAddress).ToString()
    
            TextBox1.Text = IP
    
        End Sub
    
    
    
    End Class
    att,
    Fernanda
    “Caso esta resposta tenha ajudado a solucionar sua dúvida, favor clicar em “Marcar como Resposta” para beneficiar outros membros da comunidade que estejam lendo este thread”.
    Wednesday, July 22, 2009 1:32 PM
  • Obrigado Fernanda.
    Fabiano Pires
    Thursday, July 23, 2009 1:27 PM