Leer texto completo de una página web

[NsTeam]

Buenas!

Hace tiempo recuerdo haber visto un código que leía el texto completo de una página, no recuerdo bien donde lo vi.

Para leer el código fuente de una página, tengo el siguiente código:

Código: (VB) [Seleccionar]

Dim Datos As String

Datos = Inet1.OpenURL("https://www.google.com.pe/")

Text1.Text = Datos
El código lee el código fuente de una página, pero cómo puedo hacer para que lea el texto completo de una página, mas no el código fuente?

[LeandroA]

Hola proba así, no hace falta que agregue el control inet. (en este ejemplo use un msgbox no te va a mostrar todo el texto porque el msgbox tienen un limite pero en un textbox debería entrar todo.

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()

    Me.Show
    MsgBox GetWebText("http://leandroascierto.com/foro/index.php?topic=3114.0")
 
End Sub
 
Private Function GetWebText(ByVal sUrl As String) As String
    'On Error Resume Next
    Dim m_Inet As Object
    Dim HtmlDOC As Object
    Dim i As Long
   
   
    Set m_Inet = CreateObject("MSXML2.ServerXMLHTTP")
    m_Inet.open "GET", sUrl, False
    m_Inet.send

    If m_Inet.Status = 200 Then
        Set HtmlDOC = CreateObject("htmlfile_FullWindowEmbed")
        HtmlDOC.body.innerHTML = m_Inet.responsetext
        'HtmlDOC.body.innerHTML = StrConv(m_Inet.responseBody, vbUnicode)
        GetWebText = HtmlDOC.body.innerText
    End If
   
End Function

[NsTeam]

Hola Leandro, lo he probado y me anda bien, pero tengo la duda de que, ¿por qué no logra andarme con esta URL? "http://www.google.es/#q=hola", ya que me muestra un espacio en blanco.