(08-11-18, 02:41 PM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

شوف لاتمام ذلك ستحتاج لدمج وظيفة 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

اتمنى ان تكون الصورة والفكرة وضحت لك كاملاً

تحياتى لك

وتمنياتى لك التوفيق