[ابو روضة]

جلست أفكر مع نفسى وقولت لماذا أعقدها على نفسى ففعلت الأتى:-

قولت مادام حينما أضغط على الزر الموجود بالصورة لآشاهد المقطع فهنا أقدر أن اسحب الرابط

والأسم من الويب براوزر وأضع كلاً منهم داخل تكست بوكس وبالفعل فعلت هذا بهذا الكود 

كود :

'جلب الاسم
       Dim s As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
       For Each a As HtmlElement In s
           If a.GetAttribute("id") = ("eow-title") Then
               
               TextBox3.Text = (a.GetAttribute("title"))
           End If
       Next
       'جلب الرابط
       Dim d As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("video")
       For Each a As HtmlElement In d
           If a.GetAttribute("className") = ("video-stream html5-main-video") Then
               TextBox2.Text = (a.GetAttribute("src"))
           End If
       Next

ثم وضعت زر للتحميل وبالفعل إكتملت المهمة وأنتهى الموضوع

كود :

Download = New WebClient
       Download.DownloadFileAsync(New Uri(TextBox2.Text), My.Computer.FileSystem.SpecialDirectories.Desktop + "\" + CleanFileName(TextBox3.Text) + ".mp4")

وكانت النتيجة

وكل الشكر للأخ المميز عبود والأخ الجميل جميل والأخ الغالى trakktour