دخول

**ابو روضة**

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

كود :

 Dim wc As New WebClient

        wc.Encoding = Encoding.UTF8

        Dim html As String = wc.DownloadString("https://www.youtube.com/watch?v=a80DTFHrmi0")

        Dim doc As New HtmlAgilityPack.HtmlDocument

        doc.LoadHtml(html)

        For Each n As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='grid-558373']/li[5]/div/div[1]/div[1]/a/div/span/img")

            PictureBox1.Load(n.Attributes("src").Value)

        Next

فممكن اعرف ما هو الخطأ لو سمحتم .

**elgokr** · 30-10-18, 09:31 PM

من الطبيعي سيكون الخطاء فى هذا الجزء

كود :

id='grid-558373'

انا فتحت الرابط وقمت بعرض السورس كود للصفحة

وتخيلت نفسى مكان البرنامج وقلت اتخير اجرب الكود

وبمجرد البحث على هذه الجملة لم احصل عليه فى السورس كود

حتى بمجرد البحث عن

كود :

grid-

احصل على الجملة فى اشياء مختلفة تماماً عن ما هو مكتوب

راجع الامر وتاكد من المسميات وتذكر اى شئ تحتوى على ارقام قد تجدها متغيرة مع كل تحديث للصفحة

وهذا ما كنت اتحدث عليه فى الفرق بين ده والاخر Big Grin

تحياتى لك

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

**ابو روضة** · 30-10-18, 10:05 PM

(30-10-18, 09:31 PM)elgokr كتب : من الطبيعي سيكون الخطاء فى هذا الجزء

كود :

id='grid-558373'

انا فتحت الرابط وقمت بعرض السورس كود للصفحة

وتخيلت نفسى مكان البرنامج وقلت اتخير اجرب الكود

وبمجرد البحث على هذه الجملة لم احصل عليه فى السورس كود

حتى بمجرد البحث عن

كود :

grid-

احصل على الجملة فى اشياء مختلفة تماماً عن ما هو مكتوب

راجع الامر وتاكد من المسميات وتذكر اى شئ تحتوى على ارقام قد تجدها متغيرة مع كل تحديث للصفحة

وهذا ما كنت اتحدث عليه فى الفرق بين ده والاخر

تحياتى لك

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

نعم أخى ولكنى بحاول مع كذا فيديو وصححت الكود بعض الشيئ وللاسف كما هو الحال

الكود الجديد

كود :

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("src").Value)

        Next

**elgokr** · 31-10-18, 04:43 AM

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

كود :

PictureBox1.Load("https://s.ytimg.com" + n.Attributes("src").Value)

طيب لماذا لم يظهر اى صورة

لان المسار الذى تم جلبه عبارة عن الرابط التالى

https://s.ytimg.com/yts/img/pixel-vfl3z5WfW.gif

طيب لو تخيلنا الكود ماذا يجلب تماماً

الكود وظيفته ان يصل الى هذا السطر

كود :

<img width="168" data-thumb="https://i.ytimg.com/vi/a80DTFHrmi0/hqdefault.jpg?sqp=-oaymwEiCKgBEF5IWvKriqkDFQgBFQAAAAAYASUAAMhCPQCAokN4AQ==&amp;rs=AOn4CLD15kojLztiUo2kAVVuC2UZDs7Y5A" alt="" style="top: 0px" src="/yts/img/pixel-vfl3z5WfW.gif" height="94" aria-hidden="true" >

من ثم جلب البيانات خاصة قيمة [ src ] وهي

كود :

/yts/img/pixel-vfl3z5WfW.gif

طيب معنى كده لو كنت محتاج جلب صورة الفيديو فالاصح تغيير كلمة [ src ] الى [ data-thumb ]

تماماً كده حتى يصبح السطر التعديل التالى

كود :

PictureBox1.Load(n.Attributes("src").Value)

ليصبح بعد التعديل بهذا الشكل

كود :

PictureBox1.Load(n.Attributes("data-thumb").Value)

ليعرض بالنهاية عند الاختبار هذه الصورة

تحياتى لك

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

**ابو روضة** · 31-10-18, 12:00 PM

(31-10-18, 04:43 AM)elgokr كتب : بخصوص الكود الاخير بعد التحرير يعمل بدون مشكلة
ولكن ستحتاج الى تعديل بسيط وهو جعل السطر التالى بهذا الشكل

كود :

PictureBox1.Load("https://s.ytimg.com" + n.Attributes("src").Value)

طيب لماذا لم يظهر اى صورة

لان المسار الذى تم جلبه عبارة عن الرابط التالى

https://s.ytimg.com/yts/img/pixel-vfl3z5WfW.gif

طيب لو تخيلنا الكود ماذا يجلب تماماً

الكود وظيفته ان يصل الى هذا السطر

كود :

<img width="168" data-thumb="https://i.ytimg.com/vi/a80DTFHrmi0/hqdefault.jpg?sqp=-oaymwEiCKgBEF5IWvKriqkDFQgBFQAAAAAYASUAAMhCPQCAokN4AQ==&rs=AOn4CLD15kojLztiUo2kAVVuC2UZDs7Y5A" alt="" style="top: 0px" src="/yts/img/pixel-vfl3z5WfW.gif" height="94" aria-hidden="true" >

من ثم جلب البيانات خاصة قيمة [ src ] وهي

كود :

/yts/img/pixel-vfl3z5WfW.gif

طيب معنى كده لو كنت محتاج جلب صورة الفيديو فالاصح تغيير كلمة [ src ] الى [ data-thumb ]

تماماً كده حتى يصبح السطر التعديل التالى

كود :

PictureBox1.Load(n.Attributes("src").Value)

ليصبح بعد التعديل بهذا الشكل

كود :

PictureBox1.Load(n.Attributes("data-thumb").Value)

ليعرض بالنهاية عند الاختبار هذه الصورة

تحياتى لك

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

ههههه والله انك لفنان ابن فنان وما عجبنى أكثر بخلاف حل المشكلة

وظهور الصورة سريعاً هو تحليلك وشرحك الذى يجعل من العدم وجود

ومن المستحيل ممكناً... روح يا شيخ الله يرزقك جنة الدنيا و الأخرة

**ابو روضة** · 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 

**elgokr** · 31-10-18, 10:37 PM

(31-10-18, 12:00 PM)ابو روضة كتب :
ههههه والله انك لفنان ابن فنان وما عجبنى أكثر بخلاف حل المشكلة

وظهور الصورة سريعاً هو تحليلك وشرحك الذى يجعل من العدم وجود

ومن المستحيل ممكناً... روح يا شيخ الله يرزقك جنة الدنيا و الأخرة

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

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

(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- عنوان

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

تحياتى لك

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

**ابو روضة** · 31-10-18, 10:42 PM

(31-10-18, 10:37 PM)elgokr كتب :
(31-10-18, 12:00 PM)ابو روضة كتب :
ههههه والله انك لفنان ابن فنان وما عجبنى أكثر بخلاف حل المشكلة

وظهور الصورة سريعاً هو تحليلك وشرحك الذى يجعل من العدم وجود

ومن المستحيل ممكناً... روح يا شيخ الله يرزقك جنة الدنيا و الأخرة

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

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

(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- عنوان

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

تحياتى لك

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

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

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

**elgokr** · 31-10-18, 10:46 PM

انا مش هرد عليك

هسيب الصورة تخيلها ترد عليك Big Grin

تحياتى لك

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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

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