VB.NET Web浏览器到文本框

Question

我需要帮助将所有文本从 WebBrowser1 获取到我的 textbox1.text

我尝试将

    WebBrowser1.Navigate(TextBox3.Text)
    TextBox1.Text = WebBrowser1.DocumentText

textbox3 作为我的网站 textbox1 是我想要的所有文本。

Answer 1

您必须处理 WebBrowser 控件的 DocumentCompleted 事件。

Private Sub WebBrowser1_DocumentCompleted(sender As System.Object, 
       e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) 
              Handles WebBrowser1.DocumentCompleted
  TextBox1.Text = WebBrowser1.DocumentText 
End Sub

Answer 2

我的解决方案：

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' WebBrowser1
        ' TextBox1
        ' TextBox2
        '
        WebBrowser1.ScriptErrorsSuppressed = True      ' we would like to suppress scripts error message
        WebBrowser1.Navigate("http://codeguru.com")

    End Sub

    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ' 1) Get entire html code and save as .html file
        TextBox1.Text = WebBrowser1.DocumentText

        ' HOWTO retry while error UNTIL ok
        ' this needs to be done because Body.InnerText returns error when called too soon
        ' 2) Get Body text and save as .txt file
        Dim retry As Boolean = True
        Dim body As String = ""
        While retry
            Try
                body = WebBrowser1.Document.Body.InnerText
                retry = False
            Catch ex As System.IO.IOException
                retry = True
            Finally
                TextBox2.Text = body
            End Try
        End While

    End Sub
End Class