Obtener partes de la Web

[E N T E R]

Hola pregunto esto al obtener con el control inet seria el codigo fuente de la web como hago para sacar solo lo que necesito de el.

Ejemplo esta imagen tengo de la web
http://snag.gy/ilLEW.jpg

y solo quiero sacar el IP.

[Albertomi]

Estimado ENTER

Sin ánimo de molestar o incomodar, solo quiero hacer una pequeña precisión. Con el control INET no se obtiene el código fuente. Lo que se obtiene es el código HTML que retorna el servidor web. El código fuente podía estar en PHP, ASP, APSX, JSP, etc.
Hecha esta precisión, en el código que pongo estoy asumiendo que la variable strHTML tiene asignado el código HTML que retorna el control INET.
He realizado, al vuelo y sin probar un parseo del HTML para obtener la IP. Espero funcione, pero ahí tienes la idea o una forma de sacar la IP.

Private Sub Command1_Click()
 'strHTML = Inet1.OpenURL(.......)
 strIP = Mid(Mid(strHTML, InStr(1, strHTML, "You IP address is: ") + 19), 1, InStr(1, strIP, "</titele>") - 1)
End Sub

Saludos, desde algún lugar de Lima-Perú

[E N T E R]

Gracias amigo Albertomi me sirvio tu ayuda.