[ابو روضة]

من فترة كنت بستخدم هذا الكود لجلب الرابط المباشر لكن اليوتبوب قام بإلغاء هذا

كود :

       Dim tB As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("video")
       For Each a As HtmlElement In tB
           If a.GetAttribute("className") = ("video-stream html5-main-video") Then
               TextBox1.Text = a.GetAttribute("src")
               Button2.Enabled = True
           End If

       Next

   End Sub

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