Recuperar texto de una web

[franko1809]

Como recuperar el contenido de un form o string de un una pagina web .htm
desde vb

[David]

Puedes usar el control WebBrowser para cargar el HTML, luego, usar los métodos GetElementById, GetElementsByName, GetElementsByTagName o los que necesites para obtener los datos del formulario.

[franko1809]

Voy a ver como hacerlo.
Otra pregunta existe alguna api que simule el control webbrowser?

[David]

mmm... Puedes descargar el archivo usando URLDownloadToFile, pero te vas a complicar la vida intentando parsear el HTML .

[franko1809]

Tio bueno investigue un poco y no lo resuelvo

Código:

Dim HTML As HTMLDocument

Private Sub Form_Load()
WebBrowser1.Navigate Text1.Text
End Sub

Private Sub Command2_Click()
Set HTML = WebBrowser1.Document
Text2 = HTML.getElementById("qs")
End Sub

Me devuelve esto [object]
El qs es un <div id="qs">Contenido</div>, que referencia debo utilizar, hace poco vi una pregunta similar en el foro pero no la encuentro?

[David]

Prueba así:

Código vb:

Text2 = HTML.getElementById("qs").innerHTML
 

Saludos .

[franko1809]

Bien tio gracias por el codigo, otra consulta como haria para recuperar todas las url de una pagina cargada en un webbrowser

saludos

[David]

Si te refieres a todos los enlaces puedes usar getElementsByTagName("a").

[franko1809]

Si a los enlaces pero no me aparece el innerHTML probe con los otras opciones y me envia error, que referencia debo declarar?

[David]

Fíjate en este ejemplo:

Código vb:

Dim Enlaces As Object
Dim Enlace As Object
Set Enlaces = WebBrowser1.Document.GetElementsByTagName("a")
For Each Enlace In Enlaces
    MsgBox Enlace.HRef
Next Enlace
 

[franko1809]

oks tio gracias por la información

saludos