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- عنوان
اتمنى ان تكون ما اقصده وصلت لك
تحياتى لكوتمنياتى لك التوفيق
بارك الله فيك أخى الجوكر على إهتمامك وتبسيط كل الأمور
على جميع الأعضاء والف مليون مبروك الاشراف والله تستحقها وبجدارة كمان...


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