المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3384
تم شكره 2456 مرات في 1124 مشاركات
السلام عليكم ورحمة الله وبركاته
كنت عاوز اعرف ازاى اجلب صورة كل فيديو بهذا الشكل حينما اقوم بجلب قائمة تشغيل يوتيوب؟
يعنى ما هى الاداة التى بها هذه الصور هل مثلا PictureBox ؟؟ ام ماذا
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3384
تم شكره 2456 مرات في 1124 مشاركات
(01-02-18, 04:54 AM)طالب برمجة كتب : إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟
محتوى قناة تشغيل اخى واتفضل
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
01-02-18, 08:16 AM
(آخر تعديل لهذه المشاركة : 01-02-18, 08:47 AM {2} بواسطة طالب برمجة.)
ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة
PHP كود :
Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")") Dim d() As String = (From x As Match In c Select x.Value).ToArray
For Each iu As String In d Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value PictureBox1.ImageLocation = iu MsgBox(vu) Next
أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3384
تم شكره 2456 مرات في 1124 مشاركات
01-02-18, 09:17 AM
(آخر تعديل لهذه المشاركة : 01-02-18, 09:19 AM {2} بواسطة ابو روضة.)
(01-02-18, 08:16 AM)طالب برمجة كتب : ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة
PHP كود :
Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")") Dim d() As String = (From x As Match In c Select x.Value).ToArray
For Each iu As String In d Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value PictureBox1.ImageLocation = iu MsgBox(vu) Next
أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو
الله يسعد قلبك اخى العزيز ويبارك بعمرك...
انا كنت اريد ادراجهم كلهم داخل كذا PictureBox يعنى بعدد الصور
يتم وضع PictureBox وفى كل واحد صورة لفيديو يعنى مثلا لو فى القناة عشر فيديوهات
فيتم وضع صورة لكل فيديو داخل ال PictureBox
انا اسف اخى بس بقالى فترة وانا بحاول معاها والله بس للأسف مش عارف
انا حاولت بهذا لكنه يجلبهم داخل الليست بوكس أى يجلب روابط الصورة
وانا اريد ادراج وعرض كل الصور داخل الPictureBox كل فيديو بصورته الخاصة
كود :
Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("img")
For Each item As HtmlElement In inputs
If item.GetAttribute("src").Contains("i.ytimg.com/") Then
ListBox1.Items.Add(item.GetAttribute("src"))
End If
Next
المشاركات : 400
المواضيع 0
الإنتساب : Dec 2017
السمعة :
69
الشكر: 46
تم شكره 517 مرات في 325 مشاركات
01-02-18, 09:31 AM
(آخر تعديل لهذه المشاركة : 01-02-18, 10:01 AM {2} بواسطة طالب برمجة.)
(01-02-18, 09:17 AM)ابو روضة كتب : انا حاولت بهذا لكنه يجلبهم داخل الليست بوكس أى يجلب روابط الصورة
وانا اريد ادراج وعرض كل الصور داخل الPictureBox كل فيديو بصورته الخاصة
كود :
Dim inputs As HtmlElementCollection
inputs = WebBrowser1.Document.GetElementsByTagName("img")
For Each item As HtmlElement In inputs
If item.GetAttribute("src").Contains("i.ytimg.com/") Then
ListBox1.Items.Add(item.GetAttribute("src"))
End If
Next
حسنا أضف أداة FlowLayoutPanel وقم بتفعيل الخاصية AutoScroll
PHP كود :
Dim inputs As HtmlElementCollection inputs = WebBrowser1.Document.GetElementsByTagName("img") For Each item As HtmlElement In inputs If item.GetAttribute("src").Contains("i.ytimg.com/") Then Dim pb As New PictureBox pb.SizeMode = PictureBoxSizeMode.Zoom pb.ImageLocation = item.GetAttribute("src") pb.Parent = Me.FlowLayoutPanel1 End If Next
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3384
تم شكره 2456 مرات في 1124 مشاركات
01-02-18, 09:43 AM
(آخر تعديل لهذه المشاركة : 02-01-20, 08:42 PM {2} بواسطة ابو روضة.)
(01-02-18, 09:31 AM)طالب برمجة كتب : حسنا أضف أداة FlowLayoutPanel وقم بتفعيل الخاصية AutoScroll
PHP كود :
Dim url As String = "https://www.youtube.com/playlist?list=PLeDJ7sxASv3SV-F1VbF4VKoHM6nXm3m4S"
Dim wc As New Net.WebClient wc.Encoding = System.Text.Encoding.UTF8 wc.Headers.Add("user-agent", "Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/63.0.3239.132 Safari/537.36") Dim a As String = wc.DownloadString(url)
Dim b As String = Regex.Match(a, "(<div id=""img-preload"").+?(</div>)", RegexOptions.Singleline).Value Dim c As MatchCollection = Regex.Matches(b, "(?<=<img src="").+?(?="")") Dim d() As String = (From x As Match In c Select x.Value).ToArray
For Each iu As String In d Dim vu As String = "https://www.youtube.com/watch?v=" & Regex.Match(iu, "(?<=https://i.ytimg.com/vi/).+?(?=/)").Value Dim pb As New PictureBox pb.Size = New Size(200, 150) pb.SizeMode = PictureBoxSizeMode.Zoom pb.ImageLocation = iu pb.Parent = Me.FlowLayoutPanel1 Next
فعلا نجحت اخى
المشاركات : 24
المواضيع 9
الإنتساب : Jan 2020
السمعة :
0
الشكر: 1
تم شكره 6 مرات في 5 مشاركات
حبيبي ابو النت والبرمجية سلمة ايديك
والله يوضعلك البرك ان توسع صدرك لي
حتاء ترا ما انا به
الله يرحمك ويرحم اموتك تصبور علي شوي
وتشوف انا شو بدي وتسعدين في المشكل هد
وكتر الله خيرك
وهد ربط الفيديو ممكن تشاهده وتعرف منه انا شو المشكل اللي عدي
حتا توضح لك الصور وانا ضعيف في الكتبي وصورت الفيديو
حتا تصل الفكر
[video=liveleak]https://www.youtube.com/watch?v=azXVDTAIgjg&feature=youtu.be[/video]
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3384
تم شكره 2456 مرات في 1124 مشاركات
(12-01-20, 01:03 PM)Ali Edal كتب : حبيبي ابو النت والبرمجية سلمة ايديك
والله يوضعلك البرك ان توسع صدرك لي
حتاء ترا ما انا به
الله يرحمك ويرحم اموتك تصبور علي شوي
وتشوف انا شو بدي وتسعدين في المشكل هد
وكتر الله خيرك
وهد ربط الفيديو ممكن تشاهده وتعرف منه انا شو المشكل اللي عدي
حتا توضح لك الصور وانا ضعيف في الكتبي وصورت الفيديو
حتا تصل الفكر
[video=liveleak]https://www.youtube.com/watch?v=azXVDTAIgjg&feature=youtu.be[/video]
حسنا أخى الان فهمت ماذا تقصد أنت تريد جلب جميع الروابط ليس 10 أو أقل بل كل ما فى قائمة التشغيل صح ؟
طيب أنت تريد جلب روابط القائمة فقط اللى موجودة مثلا على قناة حسونة ؟
أم تريد جلب الرابط المباشر لتحملهم ؟
فلو اردت تحميلهم فهنا شيئ أخر وستحتاج الى اضافات اخرى.
أخبرنى فقط عما تريده التحميل أم جلب الروابط فقط اللى على اليوتيوب.
المشاركات : 24
المواضيع 9
الإنتساب : Jan 2020
السمعة :
0
الشكر: 1
تم شكره 6 مرات في 5 مشاركات
12-01-20, 11:52 PM
(آخر تعديل لهذه المشاركة : 13-01-20, 01:25 AM {2} بواسطة Ali Edal.)
الله ينور عليك انا اريد فقط جلب الروبط
من قائيمة الشتغيل حتاء لو وصل عداد الفيديوهات
الي 1220 مثال بس كول اللي انا عوزه هو
جلب الروبط فقط لا غير
ومن اول فيديو الي اخر فيديو في القائيمة
التشغيل يتيوب
يعني لو القائيمة فيها 33 يتي ب33مقطع
ولو فيها 111ياتي بهم جميعن
ولو فيها 1111 يتي بل تحجيم او نقصان
والشكور كول الشكور اللي اصحاب الخبرا امثال
والله يرحم ولديك ان كانو احيا او اموت والرحم
تجوز علي الحي والميت
وتسلم تسلم والفففففففففففففففففففف
شكور الك اخي ابو روضة
صحيح
وتسلم ايدك والله يوضعلك البرك في مالك وعيالك تسلم تسلم ومشكور الك
|