منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟

(01-02-18, 04:54 AM)طالب برمجة كتب : [ -> ]إن ما اراه مجرد صورة لاادري مصدرها
فاذا لم تضع رابطها ان كانت من موقع
فكيف سيتم اجابتك على سؤالك؟

ضع مربع صورة
هذا الكود يقرأ روابط الصور ويضعها في المصفوفة d
وستعرض لك رسالة بها رابط الفيديو للصورة المعروضة
أصبح لديك متغيران داخل حلقة For
iu رابط الصورة
vu رابط الفيديو

(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 كل فيديو بصورته الخاصة

(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

(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 


(12-01-20, 01:03 PM)Ali Edal كتب : [ -> ]

حبيبي ابو النت والبرمجية سلمة ايديك 

والله يوضعلك البرك ان توسع صدرك لي

حتاء ترا ما انا به

الله يرحمك ويرحم اموتك تصبور علي شوي

وتشوف انا شو بدي وتسعدين في المشكل هد

وكتر الله خيرك

  وهد ربط الفيديو ممكن تشاهده وتعرف منه انا شو المشكل اللي عدي

حتا توضح لك الصور وانا ضعيف في الكتبي وصورت الفيديو

حتا تصل الفكر

[video=liveleak]https://www.youtube.com/watch?v=azXVDTAIgjg&feature=youtu.be[/video]

---