تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب كامل الصفحة
#1
السلام عليكم إخوتى
بموضوع مضى ساعدنى الاخ الجوكر الله يكرمه بكود ينزل لآسفل صفحة على الانترنت
ليجلب كل المواضيع لكن وقتها كان الموضوع بالويب براوزر لكن الويب براوزر اصبح
الآن غير عملى إطلاقا فقمت بفضل الله بجلب هذه الصفحات بال HtmlAgilityPack
لكن المشكلة ان الصفحة بها مائة موضوع وهذا الكود يجلب فقط اول 10 مواضيع
فكيف أجلب كل المواضيع التى بالصفحة الله يبارك فيكم..
الكود

كود :
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 HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//h2[@class='entry-title']/a")
           ListBox2.Items.Add(n.InnerText)
           lst.Add(n.Attributes("href").Value)

           Me.Text = ListBox2.Items.Count
       Next
أتمنى يكون لها حل
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#3
(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

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

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

فضيت نفسك وكتبت كل هذا بدون أن تأخذ شيئ مقابل تعبك هذا فماذا عساى أن
أفعل أو أقول لك ؟ والله ليس شيئ أفضل من " ربنا يجزيك كل الخير ويزيدك من علمه وفضله كمان وكمان "...
والحقيقة أنى إنتظرت أمس كثيرا ولم أجد أى رد واعلم انك كنت لست موجودا لآنك لابد وأن ترد على الجميع
سبحان الله وماشاء الله " امسك الخشب يبنى والله عليك"
الى أن حل لى صديق أعرفه المشكلة لا يقل ابداعا عنك وهذا ما دار بيننا لعل وعسى تكون
زيادة فى المعلومة وتفيد الجميع.

الكود


كود :
Try
           For i As Integer = 1 To NumericUpDown1.Value
               Dim url As String = ("https://www.storiesrealistic.com/category/%D9%82%D8%B5%D8%B5-%D8%A7%D8%B7%D9%81%D8%A7%D9%84/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("//h2[@class='entry-title']/a")
                   ListBox1.Items.Add(n.InnerText)
                   TextBox1.Text = ListBox1.Items.Count
               Next
           Next
       Catch ex As Exception
       End Try


الحوار البسيط

أنا
صراحة ماشاء الله عليك والله لك لمسات ابداعية لا توصف " حقيقة "
موضوع كان مغلبنى كتير جدا..

لكن هل هذه الطريقة تنفع مع اى موقع أم هذا الموقع فقط ؟

هو

بطبع على حسب الموقع،إذا كان يعتمد على نفس المنهجية أي بستعمال ( /page

فهذا الكود سيقوم بالأمر..
إنتهى الحوار,


فجزاك الله جنة عرضها كعرض السموات والأرض حبيبى جوكر باشا وسيتم طبعا تجربة الكود بتاعك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاي اسحب رابط من سطر كامل Meroo1809 7 823 23-01-23, 11:08 PM
آخر رد: Meroo1809
  مطلوب رابط لبرنامج Advanced Installer (كامل) mmaalmesry 10 1,333 12-10-22, 05:15 AM
آخر رد: DR.YASER
  العبارات الموجودة في الصفحة غير موجودة في سوسرس الصفحة ؟؟ سامي محمد 7 1,704 20-03-21, 10:07 PM
آخر رد: سامي محمد
  [مشروع] موضوع اليوم الصفحة هد لزم تكون بدي لمفهوم Regular Expression Ali 2020 0 1,145 03-10-20, 09:16 PM
آخر رد: Ali 2020
  أبحث عن مثال كامل للطباعةReport Viewer المهنا 2 1,363 17-07-20, 03:12 AM
آخر رد: المهنا
  أرجو المساعدة العاجلة ك معرض لفقد تصميم كامل xprogrammer 5 2,094 15-07-20, 01:56 PM
آخر رد: alsouf
  [VB.NET] اريد اضافة امر الغاء الامر او العملية اي عملية داخل الفروم بشكل كامل Ahmed TEAM YEMEN 8 3,193 25-05-20, 08:51 PM
آخر رد: Ahmed TEAM YEMEN
  أريد كود عند اكتمال تحميل الصفحة في Chorme Driver selenium developermedo111 1 1,218 27-04-20, 05:42 AM
آخر رد: mohamedahmed1
  عرض جزء محدد من الصفحة داخل اداة ويب براوزر ابو روضة 8 2,858 29-12-19, 10:26 PM
آخر رد: ابو روضة
  حفظ جدول كامل الى قاعدة بيانات muad 9 3,212 04-12-19, 03:39 PM
آخر رد: abomo3ath

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم