(07-06-19, 03:27 AM)سعود كتب : حسب مافهمت انك توصلت لحل وبقي امر التكرار!
صح او اني فهمت خطا ...لاني احتاج وقت عشان افهم التعامل بالويب براوزر.
اذا فعلا فهمي صحيح فيتبقى امر التحقق بما توفر محليا(اي بالاداة التي نستخدمها)
لكن كيف نعرف اننا وصلنا لاخر قيمة بعد تكرار النقر على الزر بالصفحة؟!
لا يا أخى انا جلبتها بالويب براوزر وتمام لكن الويب براوزر بطي جدا
فحاولت بهذا الكود جلب كامل الصفحة هذه لكن بجبلى اول المواضيع فقط وانا اريده ينزل ما
بعد كلمة المزيد
PHP كود :
dataGridView1.Rows.Clear()
For i As Integer = 1 To NumericUpDown1.Value
Dim url As String = ("https://www.amrkhaled.net/Category/26/استشارات?page=" & i)
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlAgilityPack.HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='section-grid-container']/div[1]/div/div[2]/h3/a")
dataGridView1.Rows.Add("https://www.amrkhaled.net" & n.Attributes("href").Value.ToString(), n.InnerText.Trim)
Next
Next
تحديدا من هذه الصفحة
https://www.amrkhaled.net/Section/1041/%...8%A7%D8%A1
[url=https://www.amrkhaled.net/Section/1041/%D8%AA%D8%B1%D8%A8%D9%8A%D8%A9-%D8%A7%D9%84%D8%A3%D8%A8%D9%86%D8%A7%D8%A1][/url]