وعليكم السلام ورحمة الله وبركاته
شوف لاتمام ذلك ستحتاج لدمج وظيفة WB لعمل الكليك
من ثم استكمال الباقى على كودك الحال بمعنى
حالياً انت لديك الكود التالى
كود :
Dim url As String = "https://www.storiesrealistic.com/category/قصص-اطفال/"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
Dim doc As New HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlNode In doc.DocumentNode.SelectNodes("//h2[@class='entry-title']/a")
ListBox1.Items.Add(n.InnerText)
lst.Add(n.Attributes("href").Value)
Me.Text = ListBox1.Items.Count
Next
سيتم تقسيمه على
2 بحيث سنحتفظ بالكود السفى وهو
كود :
Dim doc As New HtmlDocument
doc.LoadHtml(html)
For Each n As HtmlNode In doc.DocumentNode.SelectNodes("//h2[@class='entry-title']/a")
ListBox1.Items.Add(n.InnerText)
lst.Add(n.Attributes("href").Value)
Me.Text = ListBox1.Items.Count
Next
الان ناتى على الكود التالى وهو الخاص بالجزء العلوى
كود :
Dim url As String = "https://www.storiesrealistic.com/category/قصص-اطفال/"
Dim wc As New WebClient
wc.Encoding = Encoding.UTF8
Dim html As String = wc.DownloadString(url)
وظيفة هذا الجزء هو فتح الصفحة الموجود رابطه بالاعلى من ثم جلب كود HTML الموجود بالصفحة
وكل ده يلخط عن السطر التالى
كود :
Dim html As String = wc.DownloadString(url)
طيب ايه المطلوب هنا
المطلوب التالى الكود العلو كاملاً لا حاجة له الا السطر الاخير سيتم التعديل عليه بنهاية الموضوع
وكل ما هو مطلوب منك عمل كود عرض الرابط فى اداء WB ومن ثم عمل الضغط على الزر مشاهدة المزيد حتى اخر زر
حتى هنا جميل وسيتم عمل التالى
مكان السطر الذى تحدثنا عنه مسبقاً هو ما سنقوم بالتعديل عليه ليكون بهذا الشكل
كود :
Dim html As String = wb.DocumentText
بكده انت رحلت كود الصفحة كاملة بعد تحميل كل الصفحات خاصة مشاهدة المزيد الى Html
ليتم استكمال باقى الكود وجلب العناوين والرابط كما فى الكود السفلى
نقطة مهمة لا يلزم ان تقوم بانشاء اداء WB فى الفورم
يكفى ان تستخدم من خلال الكود التالى
كود :
Dim wb As New WebBrowser
اتمنى ان تكون الصورة والفكرة وضحت لك كاملاً
تحياتى لك
وتمنياتى لك التوفيق