Visual Basic - Extraer el codigo fuente de una Web

Para extraer el codigo fuente de una Web, usaremos el control Inet.

Para usar el control inet, añadimos el control Microsoft Internet Transfer Control.

Y asi extraeremos el codigo:


Dim Datos As String

Datos = Inet1.OpenURL("http://programaciontotal.blogspot.com")
Ahora la variable datos, contendrá el codigo fuente de la página.

You liked this post? Subscribe via RSS feed and get daily updates.

8 comentarios:

  1. Serviría de mucho si colocaras el código completo para obtener el código fuente de una web ;)

    PD. Soy principiante en VB

    Saludos

  2. Está completo!! Esto es para Visual Basic 6 eh! Por si acaso

    ¿Que te falla?

  3. soldier, a nosotros no nos importa q seas principiante o no, y bueno, para escribir esa gilipollez de comentarios cojete un folio y ya sabes, escribes a lapiz y para ti solo jajajja

    PD: tarugo!

  4. Gracias, voy a ponerlo en práctica.
    La pregunta de soldier no está de más...así es que se aprende

  5. como puedo tomar una valor de este codigo fuente y cerrarlo en una variable? o sea supongamos que quiero tomar el valor x de la pagina web y encerrarlo en un textbox? hay alguna forma?

  6. Pues al tener todo el codigo fuente guardado en la variable Datos, ahora tienes que jugar con ella, es decir, con las funciones de Cadena com InStr, Mid y Replace
    Instr: Busca en una cadena el parametro que tu le busques y te da la posicion
    posicion = InStr(Datos, "loquebusco")
    Mid: Extrae un trozo de cadena
    cadena = Mid(Datos,PosInicio,PosFinal)
    Replace: Remplaza caracteres de una cadena(Por ejemplo para quitar tag de html)
    cadena = Replace(Cadena,"<loqsea","")

    Ala hay tienes para investigar, Saludos!

  7. El codigo fuente escrito en javaescript, no aparece, gracias

  8. Hola, buen día.

    Esperando me puedan ayudar... Necesito a través de VB6.0 obtener el Código Fuente de una página Web, no la que mando llamar o el index. La que necesito leer, es la que se muestra en el IE de la PC (cliente), ya que ésta página puede ser una de varias respuestas... He buscado APIs, pero no la encuentro.
    Muchas Gracias de antemano.
    ¡Saludos!

Publicar un comentario