Hola,
Quisiera saber como mostrar la IP de mi PC usando Visual Basic 2008 Express. He leido por ahí que hay que agregar winsock pero parece que esta versión no trae este componente.
Gracias
Private Sub ObtenerDatos()
Dim nombreHost As String = System.Net.Dns.GetHostName
Dim hostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(nombreHost)
lblNombreHost.Text = "El nombre de tu maquina es: " & hostInfo.HostName.ToString
For Each ip As System.Net.IPAddress In hostInfo.AddressList
lblDireccionHost.Text = "Tu direccion IP local es: " & ip.ToString
Next
End Sub
Fuente: :http://sylarpooox.wordpress.com/2008/04/26/obtener-la-direccion-ip-en-visual-basic-net-2005/
vos sabes que yo uso ese mismo ejemplo, pero a veces trae cualquier cosa, trae letras numeros y caracteres raros...por ejemplo una notebook que no este conectada a la red.
saludos.
He probado el ejemplo pero no me aparece el ip sino la direccion mac. He estado salseando y se puede utilizar "System.Net.NetworkInformation" ? Si me poneis un ejemplo de como utilizar esto..
pues si, con System.Net.NetworkInformation es:
List<string> Direcciones = new List<string>();
//Obtener todos los adaptadores.
foreach(NetworkInterface adap in NetworkInterface.GetAllNetworkInterfaces())
{
//Filtrar solo por los activos.
if(adap.OperationalStatus == OperationalStatus.Up)
{
//Obtenemos las propiedades de los adaptadores.
foreach(UnicastIPAddressInformation info in adap.GetIPProperties().UnicastAddresses)
{
//Obtenemos el texto con la dirección.
Direcciones.Add(info.Address.ToString());
}
}
}
//Aqui recorrer direcciones.
Atentamente,
Juan Manuel Lombana
Microsoft Certified Professional
Microsoft Student Partner
Medellín - Colombia
Bueno aqui les dejo un codigo de como obtener la IP Publica ya que mayormente encontramos vario sobre esto pero frecuentemente siempre nos dan la privada jeje la cual no nos sirve de mucho pero bueno
Aqui les dejo el code
Imports System.Net
Private Function GETIP()
Dim req As HttpWebRequest = WebRequest.Create("http://whatismyip.com/automation/n09230945.asp")
Dim res As HttpWebResponse = req.GetResponse()
Dim Stream As Stream = res.GetResponseStream()
Dim sr As StreamReader = New StreamReader(Stream)
Return (sr.ReadToEnd())
End Function
Ahi a como veran obtengo la IP usando la web de "http://whatismyip.com" ^^
y ya con ello desde un button podemos llamarla ya sea usando
MsgBox
MsgBox(GetIP())
o colocandolo en un TextBox
TextBox1.Text = GetIP()
Bueno esto ya seria para sus projectos ^^
Espero y les sirva