Usuário com melhor resposta
ipv4 da maquina

Pergunta
-
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
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
-
-
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
-
-
-
-
-
-
-
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