[الماجيك مسعد]

(26-05-17, 08:52 PM)سعود كتب : ليس بالضرورة ان يكون هناك خطا ربما يتطلب إجراء او فكرة اخرى للملف.
فكما تشاهد بالصورة التالية :

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 


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

رائع اخى سعود
اعتقد انك الان متشوق لرؤية الحل

نفس ما حدث معى متشوق لذلك لان نفس الفكرة تعمل على اشياء اخرى ولكن فى هذا الطلب لا تعمل

ربما فعلا يكون فيها شغلات بالجافا سكربت وهذا ما يزودنا اشتياقا لرؤية الحل