como mostrar la IP de mi PC

[azkoiti]

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

[Shell Root]

Código (vbnet) [Seleccionar] Expandir

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/

[seba123neo]

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.

[azkoiti]

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

[MANULOMM]

pues si, con System.Net.NetworkInformation es:

Código (csharp) [Seleccionar] Expandir


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

[.mokk.]

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

Código [Seleccionar] Expandir

    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

Código [Seleccionar] Expandir

MsgBox(GetIP())
o colocandolo en un TextBox

Código [Seleccionar] Expandir

TextBox1.Text = GetIP()

Bueno esto ya seria para sus projectos ^^
Espero y les sirva