تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب صورة أى فيديو بالHtmlAgilityPack
#8
(31-10-18, 10:37 PM)elgokr كتب :
(31-10-18, 12:00 PM)ابو روضة كتب :
ههههه والله انك لفنان ابن فنان وما عجبنى أكثر بخلاف حل المشكلة
وظهور الصورة سريعاً هو تحليلك وشرحك الذى يجعل من العدم وجود
ومن المستحيل ممكناً... روح يا شيخ الله يرزقك جنة الدنيا و الأخرة

Big Grin  دائماً الابتسامة يارب والضحكة الجميلة من القلب

تقبل الله منك الدعاء ولنا جميعاً باذن الله

(31-10-18, 03:22 PM)ابو روضة كتب :
بفضل الله ثم أنت جلبت الصورة واسم الفيديو كمان


PHP كود :
 Dim wc As New WebClient
        wc
.Encoding Encoding.UTF8
        Dim html 
As String wc.DownloadString("https://www.youtube.com/watch?v=q9yKUiOYj8Y")
 
       Dim doc As New HtmlAgilityPack.HtmlDocument
        doc
.LoadHtml(html)
 
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='watch7-sidebar-modules']/div[1]/div/div[2]/ul/li/div[2]/a/span/img")
 
           For Each d As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='eow-title']")
 
               TextBox3.Text d.InnerText.Trim
                PictureBox1
.Load(n.Attributes("data-thumb").Value)
 
           Next
        Next 

الحمد لله والحمد لله على كل حال

يفضل ان تجعل الكود بهذا الشكل

كود :
Dim wc As New WebClient
       wc.Encoding = Encoding.UTF8
       Dim html As String = wc.DownloadString("https://www.youtube.com/watch?v=q9yKUiOYj8Y")
       Dim doc As New HtmlAgilityPack.HtmlDocument
       doc.LoadHtml(html)
       For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='watch7-sidebar-modules']/div[1]/div/div[2]/ul/li/div[2]/a/span/img")
           PictureBox1.Load(n.Attributes("data-thumb").Value)
       Next
       For Each d As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='eow-title']")
           TextBox3.Text = d.InnerText.Trim
       Next

لان تخيل لو قلنا يماً ما اصبح كود كلب الصورة اكثر من مرة 

فهنا العنوان سيتم تكرار تنفيذه وجلبه بعدد مرات عد الصور وقد يسبب بعض اللاج والتاخير فى التنفيذ
لكن بهذا الامر جعلت كل واحد مستقل وحتى لو تكرر الامر لاكثر من مرة ستكون على الحدث الواحد فقط

لتبسيط الامر لنتخيل الـ For الاولى خاصة جلب الصورة تتم على 3 مرحل تنفيذ
1- صورة
2- صورة
3- صورة

بينما For خاصة العنوان فقط واحد ليصبح
1- عنوان

تخيل وهما بداخل بعض سيكون الامر
1- صورة > 1- عنوان
2- صورة > 1- عنوان
3- صورة > 1- عنوان

اتمنى ان تكون ما اقصده وصلت لك

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


بارك الله فيك أخى الجوكر على إهتمامك وتبسيط كل الأمور

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


الردود في هذا الموضوع
RE: جلب صورة أى فيديو بالHtmlAgilityPack - بواسطة ابو روضة - 31-10-18, 10:42 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود تحميل فيديو من اليوتيوب عبر بايثون justforit 4 265 23-10-25, 02:58 AM
آخر رد: justforit
  إدراج صورة الموظف من خلال رابط في حقل من قاعدة البيانات saud1004 4 532 13-12-24, 04:48 AM
آخر رد: saud1004
Lightbulb [سؤال] تحويل صورة الى ملف Pdf ackore 8 762 27-09-24, 07:51 PM
آخر رد: محمد مسافر
  اضافة صورة مخزنة في قاعدة البيانات sql الى الكريستال ريبورت صالح عبدالله 3 461 24-09-24, 09:52 AM
آخر رد: صالح عبدالله
  [كود] كود عند اختيار صورة في فورم تسمع في فورم اخري Mostafa201255411 0 246 13-09-24, 09:20 PM
آخر رد: Mostafa201255411
  التعامل مع موقع ويب لجلب صورة لالفيجوال بيزك صبري زينوبي 3 443 09-09-24, 11:22 PM
آخر رد: Taha Okla
  ماهي طريقة تحويل ملف pdf الى صورة جيولوجي مبتدئ 3 559 12-07-24, 09:22 PM
آخر رد: atefkhalf2004
  [VB.NET] تحويل pdf الى صورة بدون استخدام الاكروبات بأستخدام adobe reader العادى فقط AhmedNagib 1 1,174 11-07-24, 01:16 PM
آخر رد: تركي الحلواني
  [سؤال] رفع صورة لاستضافة أون لاين .أغلب الأكواد لا تعمل لنفس السبب dr.programming 1 316 08-05-24, 11:50 AM
آخر رد: dr.programming
  مشكلة فى Radiobutton عند وضع صورة فيه أبو جودة 3 443 15-04-24, 04:31 AM
آخر رد: Taha Okla

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


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