Binaryworld - Retrieve the textual or HTML text contained in a WebBrowser control ... [ VB -> Active-X ]

Here's a quick way to retrieve the textual (that is, without any HTML tag) contents of a WebBrowser control:

Click here to copy the following block

Dim Text As String
Text = WebBrowser1.Document.Body.InnerText

Getting the HTML text is a tad less intuitive, though:

Click here to copy the following block

Dim Text As String
Text = WebBrowser1.Document.documentElement.OuterHTML

The following procedure let's you save the contents of a WebBroser control to a file, as plain text or HTML text:

Click here to copy the following block

Sub SaveWebBrowser(WB As WebBrowser, ByVal FileName As String, _
  Optional SaveAsPlainText As Boolean)
  Dim Text As String, fnum As Integer

  If SaveAsPlainText Then
    Text = BW.Document.Body.innerHTML
  Else
    Text = BW.Document.documentElement.OuterHTML
  End If

  ' save to file
  fnum = FreeFile
  Open FileName For Output As #fnum
  Print #fnum, Text;
  Close #fnum
End Sub