Visual Basic - Obtener direccionIP

Life is soft - evento anual de software empresarial
   
Vista:

Obtener direccionIP

Publicado por Ricardo (9 intervenciones) el 22/01/2008 16:08:45
Hola amigos: Necesito obtener al direccion IP con que navega mi máquina, quiero decir no la dirección interna de mi red sino la que tiene el router asignada por el ISP.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Obtener direccionIP

Publicado por Juan_K (182 intervenciones) el 23/01/2008 00:29:32
Una forma simple, solo agregas un control INET y consultsa la pagina de DynDNS, la desventaja es q estaremos dependiendo de esta web y esperando q no cambie su pagina xDD

Private Sub Command1_Click()

Pag = Inet1.OpenURL("http://checkip.dyndns.org/")
'Aqui extraemos la IP de la pagina.
Ini = InStr(1, Pag, ":") + 2
Fin = InStr(Ini, Pag, "<")
Ip = Mid(Pag, Ini, Fin - Ini)
Text1 = Ip
End Sub

Espero te sea util saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar