VB.NET 用HtmlAgilityPack解析百度文库,获取百度文库中的内容(以富甲美国为例)

Imports HtmlAgilityPack  
Imports System.Text

Public Class Form1

    Sub Get_YBQ()
        If TextBox1.Text <> "" Then
            RichTextBox1.Clear()
            Dim url As String = TextBox1.Text
            Dim wc As New HtmlWeb With {
                .OverrideEncoding = Encoding.Default,
                .AutoDetectEncoding = True
            }
            Dim htmldoc As HtmlDocument = wc.Load(url)
            Dim rootNode As HtmlNode = htmldoc.DocumentNode
            Try
                Dim xl As HtmlNodeCollection = rootNode.SelectNodes("//div[@class=" & Chr(34) & "ie-fix" & Chr(34) & "]/p")
                If xl IsNot Nothing Then
                    Dim strr As String = ""
                    For Each node As HtmlNode In xl
                        RichTextBox1.AppendText(node.InnerText)
                    Next

                End If

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OpenFileDialog1.Title = "请选择HTML文档"
        OpenFileDialog1.Filter = "HTML文件|*.html|HTM文件|*.htm"
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
        If OpenFileDialog1.FileName <> "" Then
            Get_YBQ()
        End If

    End Sub
End Class