Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: E N T E R en Agosto 19, 2015, 06:46:18 pm

Título: Obtener partes de la Web
Publicado por: E N T E R en Agosto 19, 2015, 06:46:18 pm
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 (http://snag.gy/ilLEW.jpg)

y solo quiero sacar el IP.
Título: Re:Obtener partes de la Web
Publicado por: Albertomi en Agosto 19, 2015, 08:38:20 pm
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ú
Título: Re:Obtener partes de la Web
Publicado por: E N T E R en Agosto 20, 2015, 12:35:27 pm
Gracias amigo Albertomi me sirvio tu ayuda.