جلست أفكر مع نفسى وقولت لماذا أعقدها على نفسى ففعلت الأتى:-
قولت مادام حينما أضغط على الزر الموجود بالصورة لآشاهد المقطع فهنا أقدر أن اسحب الرابط
والأسم من الويب براوزر وأضع كلاً منهم داخل تكست بوكس وبالفعل فعلت هذا بهذا الكود
كود :
'جلب الاسم
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

