Question

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

我试过

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

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

Answer 1

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

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

VB.NET Webbrowser到文本框

2 个答案: