none
ipv4 da maquina RRS feed

  • Pergunta

  • oi galera eu queria saber como faço para aparecer o meu ipv4 da minha net qui e 192.168.1.1 em uma label obrigado a todos.   
    domingo, 4 de janeiro de 2015 05:01

Respostas

  • João,

    Existem conversores online (http://www.carlosag.net/tools/codetranslator/).

    Segue o código em VB.NET:

    Public Class ConfigRede
    
        Public Shared Function ObterIP() As String
    
            Dim SystemAC As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName)
            Dim IPAddress As String = String.Empty
    
            For Each address As IPAddress In SystemAC.AddressList
                If (address.AddressFamily = AddressFamily.InterNetwork) Then
                    IPAddress = address.ToString
                End If
            Next
    
            Return IPAddress
    
        End Function
    
    End Class

    Abraço,


    Carlos Eduardo Ferreira

    • Sugerido como Resposta Lucio Rogerio SPBanned terça-feira, 9 de junho de 2015 21:42
    • Marcado como Resposta Marcos SJ quinta-feira, 4 de fevereiro de 2016 19:15
    quarta-feira, 7 de janeiro de 2015 10:17

Todas as Respostas

  • João,

    Segue um código de exemplo em C#:

    using System.Net;
    using System.Net.Sockets;
    using System.Runtime.InteropServices;

    public static class ConfigRede
    {

    public static string ObterIP() { IPHostEntry SystemAC = Dns.GetHostEntry(Dns.GetHostName()); string IPAddress = string.Empty; foreach (var address in SystemAC.AddressList) { if (address.AddressFamily == AddressFamily.InterNetwork) { IPAddress = address.ToString(); } } return IPAddress; }

    }



    Carlos Eduardo Ferreira

    terça-feira, 6 de janeiro de 2015 19:06
  • obrigado amigo pela sua ajuda mais eu queria em vb.net tentei converter mais nu deu certo pode ajudar ?
    terça-feira, 6 de janeiro de 2015 20:46
  • João,

    Existem conversores online (http://www.carlosag.net/tools/codetranslator/).

    Segue o código em VB.NET:

    Public Class ConfigRede
    
        Public Shared Function ObterIP() As String
    
            Dim SystemAC As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName)
            Dim IPAddress As String = String.Empty
    
            For Each address As IPAddress In SystemAC.AddressList
                If (address.AddressFamily = AddressFamily.InterNetwork) Then
                    IPAddress = address.ToString
                End If
            Next
    
            Return IPAddress
    
        End Function
    
    End Class

    Abraço,


    Carlos Eduardo Ferreira

    • Sugerido como Resposta Lucio Rogerio SPBanned terça-feira, 9 de junho de 2015 21:42
    • Marcado como Resposta Marcos SJ quinta-feira, 4 de fevereiro de 2016 19:15
    quarta-feira, 7 de janeiro de 2015 10:17
  • o codigo e muito bom amigo agradeço a ajuda mais mel ip v4  da minha maquina e 192.168.1.100 e seu codigo me deu o ip  169.254.123.115 mais eu quero e o ip v4 no casso o 192.168.1.100 pode ajudar ? 
    quarta-feira, 7 de janeiro de 2015 16:41
  • Se o retorno foi 169.254.123.115 é porque sua máquina não adquiriu IP do servidor DHCP.

    Tem certeza que seu IP é 192.168.1.100 ?

    Execute no prompt o comando ipconfig e confirme, por favor.


    Carlos Eduardo Ferreira

    quarta-feira, 7 de janeiro de 2015 19:05
  • oi amigo fiz agora mesmo o teste do cmd ipconfig e o meu ipv4 e 192.168.1.100 pode ajudar ?
    quarta-feira, 7 de janeiro de 2015 22:18
  • Testei o mesmo código na minha máquina e deu certo.

    Você tem mais de uma interface de rede na sua máquina?


    Carlos Eduardo Ferreira

    sexta-feira, 9 de janeiro de 2015 17:39
  • eu recebo o cabo da net do brovedor que vai direto pra meu roteador onde eu configurei o dHcp pra ficar o ip fixo 192.168.1.100 esse ip e fixo da minha maquino so eu tenho esse ip e esse ip nao muda tem ideia porque nao funfo ?    
    sexta-feira, 9 de janeiro de 2015 22:28
  • Conseguiu resolver seu problema?

    Se sim, feche seu thread, por favor.

    Carlos Eduardo Ferreira

    terça-feira, 9 de junho de 2015 17:48
  • aqui amigo 

      Dim iphi As IPHostEntry = Dns.GetHostEntry(Dns.GetHostName) 
                Dim a7 As String = ""
                Try
                    For I As Integer = 0 To iphi.AddressList.Length - 8 'numero de ip de lan 
                        a7 &= iphi.AddressList.GetValue(6).ToString() & vbNewLine
                        Me.label1.Text = a7.ToString
                    Next
                Catch ex As Exception
                    MsgBox("Erro !", MsgBoxStyle.Information)
                    ProjectData.SetProjectError(ex)
                    ProjectData.ClearProjectError()
                End Try

    terça-feira, 9 de junho de 2015 19:35