إقتباس :لكنه يجلب أخر قيمة فقط يعنى جلب الاجابة وترك السؤالهذي سهلة لان لا توجد في الصفحة الا نودين :
<div itemprop="text">
<div itemprop="text">
واحد للسؤال والاخر للجواب تستطيع ترك استخدام جملة For وتستخدم الاندكس بعد علامة النود
PHP كود :
Private Sub getpost()
Dim h As New HtmlAgilityPack.HtmlWeb
Dim d As HtmlAgilityPack.HtmlDocument = h.Load("http://islamweb.net/ar/consult/index.php?page=Details&id=2446968", "Get")
Dim nods As HtmlAgilityPack.HtmlNodeCollection = d.DocumentNode.SelectNodes("//div[@itemprop='text']")
TextBox1.Invoke(Sub() TextBox1.Text = nods(0).InnerText & vbNewLine & nods(1).InnerText)
Button1.Invoke(Sub() Button1.Text = "تم")
Button1.Invoke(Sub() Button1.Enabled = True)
End Sub
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
