Foro de elhacker.net

Programación => .NET (C#, VB.NET, ASP) => Mensaje iniciado por: azkoiti en 1 Abril 2010, 19:42 pm



Título: como mostrar la IP de mi PC
Publicado por: azkoiti en 1 Abril 2010, 19:42 pm
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


Título: Re: como mostrar la IP de mi PC
Publicado por: Shell Root en 1 Abril 2010, 19:57 pm
Código
  1. Private Sub ObtenerDatos()
  2.        Dim nombreHost As String = System.Net.Dns.GetHostName
  3.        Dim hostInfo As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(nombreHost)
  4.  
  5.        lblNombreHost.Text = "El nombre de tu maquina es: " & hostInfo.HostName.ToString
  6.        For Each ip As System.Net.IPAddress In hostInfo.AddressList
  7.            lblDireccionHost.Text = "Tu direccion IP local es: " & ip.ToString
  8.        Next
  9. End Sub

Fuente: :http://sylarpooox.wordpress.com/2008/04/26/obtener-la-direccion-ip-en-visual-basic-net-2005/


Título: Re: como mostrar la IP de mi PC
Publicado por: seba123neo en 1 Abril 2010, 21:00 pm
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.


Título: Re: como mostrar la IP de mi PC
Publicado por: azkoiti en 1 Abril 2010, 21:31 pm
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..


Título: Re: como mostrar la IP de mi PC
Publicado por: MANULOMM en 5 Abril 2010, 05:57 am
pues si, con System.Net.NetworkInformation es:

Código
  1. List<string> Direcciones = new List<string>();
  2. //Obtener todos los adaptadores.
  3. foreach(NetworkInterface adap in NetworkInterface.GetAllNetworkInterfaces())
  4. {
  5. //Filtrar solo por los activos.
  6. if(adap.OperationalStatus == OperationalStatus.Up)
  7. {
  8. //Obtenemos las propiedades de los adaptadores.
  9. foreach(UnicastIPAddressInformation info in adap.GetIPProperties().UnicastAddresses)
  10. {
  11. //Obtenemos el texto con la dirección.
  12. Direcciones.Add(info.Address.ToString());
  13. }
  14. }
  15. }
  16. //Aqui recorrer direcciones.
  17.  

Atentamente,

Juan Manuel Lombana
Microsoft Certified Professional
Microsoft Student Partner
Medellín - Colombia


Título: Re: como mostrar la IP de mi PC
Publicado por: .mokk. en 11 Abril 2010, 22:16 pm
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:
    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:
MsgBox(GetIP())
o colocandolo en un TextBox
Código:
TextBox1.Text = GetIP()

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