[الوادي]

يا سعود،

دائما سباق للمساعدة.

هذه طريقة أخرى باستخدام قراءة RSS بواسطة Xml
هذا المثال لمواضيع القسمالمذكور والمحدد في موضوع السائل

PHP كود :

Public Class Form1

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim dt As New DataTable
        dt.Columns.Add("Title")
        dt.Columns.Add("Link")

        ' منتدى الابداع العربي :: قسم الترفيه والانمي :: قسم اليوتيوب والدايلي موشن
        Dim reader As Xml.XmlReader = Xml.XmlReader.Create("http://www.ibda3araby.com/feed/?f=183")

        While reader.Read

            If reader.NodeType = Xml.XmlNodeType.Element Then

                Dim r As DataRow

                Select Case reader.Name

                    Case "title"
                        r = dt.NewRow
                        reader.Read()
                        r.Item("Title") = reader.Value

                    Case "link"
                        reader.Read()
                        r.Item("Link") = reader.Value
                        dt.Rows.Add(r)

                End Select

            End If

        End While

        Me.ListBox1.DataSource = dt
        Me.ListBox1.DisplayMember = "Title"
        Me.ListBox1.ValueMember = "Link"

    End Sub

    Private Sub ListBox1_Click(sender As Object, e As System.EventArgs) Handles ListBox1.Click
        Me.WebBrowser1.Navigate(ListBox1.SelectedValue)
    End Sub

End Class