[ابو روضة]

فضلت معاها والحمدلله أخى سعود عدلت على الكود بتاعك....

كود :

Private Sub getpost()
       Dim url As String = TextBox1.Text
       Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       url = WebUtility.HtmlDecode(url)
       Dim html As String = wc.DownloadString(url)
       Dim h As New HtmlAgilityPack.HtmlWeb
       Dim Encod As New HtmlAgilityPack.HtmlDocument
       Encod.LoadHtml(html)
       Dim d As HtmlAgilityPack.HtmlDocument = h.Load(url, "Get")
       For Each n As HtmlAgilityPack.HtmlNode In Encod.DocumentNode.SelectNodes("/html/body/div/div[2]/section/div[1]/div/div[3]/div/p")
           RichTextBox1.Invoke(Sub() RichTextBox1.Text = Encod.DocumentNode.SelectSingleNode("/html/body/div/div[2]/section/div[1]/div/div[3]/div/p").InnerText.TrimEnd)

           RichTextBox1.Invoke(Sub() RichTextBox1.Text = Encod.DocumentNode.SelectSingleNode("/html/body/div/div[2]/section/div[1]/div/div[5]/div/p").InnerText.TrimEnd)
           Button1.Invoke(Sub() Button1.Text = "تم")
           Button1.Invoke(Sub() Button1.Enabled = True)
           Exit Sub
           Exit For
       Next
   End Sub

تبقى الآن مشكلة وأنه يجلب السؤال فقط وطبعا حاولت مع اجابة السؤال اللى فى الموقع 

وفعلا جلبها لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤال