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:
Ahora la variable datos, contendrá el codigo fuente de la página.
Dim Datos As String
Datos = Inet1.OpenURL("http://programaciontotal.blogspot.com")
8 comentarios:
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
Está completo!! Esto es para Visual Basic 6 eh! Por si acaso
¿Que te falla?
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!
Gracias, voy a ponerlo en práctica.
La pregunta de soldier no está de más...así es que se aprende
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?
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!
El codigo fuente escrito en javaescript, no aparece, gracias
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