[سعود]

ليس بالضرورة ان يكون هناك خطا ربما يتطلب إجراء او فكرة اخرى للملف.
فكما تشاهد بالصورة التالية :

PHP كود :

Imports System.Net
Imports System.Text
Public Class Form1
    Dim html As String = ""
    Dim doc As HtmlAgilityPack.HtmlDocument
    Dim wc As WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If b.IsBusy = False Then b.RunWorkerAsync()
    End Sub
    Private Sub b_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles b.DoWork
        doc = New HtmlAgilityPack.HtmlDocument
        wc = New WebClient
        wc.Encoding = Encoding.UTF8
        html = wc.DownloadString("http://vb4arb.com/vb/index.php")
        doc.LoadHtml(html)
        For Each h As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//div[@class='forumbit-content']/strong/a")
            Me.Invoke(New MethodInvoker(Sub()
                                            ListBox1.Items.Add(h.InnerText.Trim)
                                            ListBox2.Items.Add(h.Attributes("href").Value)
                                        End Sub))
        Next
    End Sub
End Class 


لم يحدث خطا .....قد تكون هناك مناورات باستخدام الجافاسكريبت تعقد العملية...لا ادري لكن ننتظر.