elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  como mostrar la IP de mi PC
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: como mostrar la IP de mi PC  (Leído 11,805 veces)
azkoiti

Desconectado Desconectado

Mensajes: 5


Ver Perfil
como mostrar la IP de mi PC
« 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


En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.721


$M


Ver Perfil WWW
Re: como mostrar la IP de mi PC
« Respuesta #1 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/


En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
seba123neo


Desconectado Desconectado

Mensajes: 3.621


"No quiero creer, quiero saber" - Carl Sagan


Ver Perfil WWW
Re: como mostrar la IP de mi PC
« Respuesta #2 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.
En línea

La característica extraordinaria de las leyes de la física es que se aplican en todos lados, sea que tú elijas o no creer en ellas. Lo bueno de las ciencias es que siempre tienen la verdad, quieras creerla o no.

Neil deGrasse Tyson
azkoiti

Desconectado Desconectado

Mensajes: 5


Ver Perfil
Re: como mostrar la IP de mi PC
« Respuesta #3 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..
En línea

MANULOMM


Desconectado Desconectado

Mensajes: 559


Erepublik.com


Ver Perfil
Re: como mostrar la IP de mi PC
« Respuesta #4 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
En línea


.mokk.

Desconectado Desconectado

Mensajes: 177



Ver Perfil
Re: como mostrar la IP de mi PC
« Respuesta #5 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
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
como mostrar en un reporte una busqueda
PHP
eli02 1 1,451 Último mensaje 22 Agosto 2012, 00:02 am
por Shell Root
como mostrar comandos de c++
Programación C/C++
henkel 7 3,688 Último mensaje 26 Octubre 2012, 06:16 am
por BlackZeroX
como mostrar un gif animado?
ASM
TheEnmanuelRmrz 0 1,316 Último mensaje 17 Diciembre 2014, 02:18 am
por TheEnmanuelRmrz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines