28-06-14, 04:44 PM
.....
منقول
أولا أضف الأداة WindowsMediaPlayer إلى مجموعة الأدوات كالتالي
أظهر الفورم في وضع التصميم ثم اذهب إلى قائمة الأدوات واضغط زر يمين واختار ...Choose Items
![[صورة مرفقة: 1H5kIr.png]](http://im76.gulfup.com/1H5kIr.png)
من النافذة اختر التبويب COM Components ومنه صع علامة صح √ على WindowsMediaPlayer
![[صورة مرفقة: DkFuS7.png]](http://im76.gulfup.com/DkFuS7.png)
أضف الأداة WindowsMediaPlayer التي ظهرت في مجموعة الأدوات إلى الفورم وأضف Button و TextBox
![[صورة مرفقة: AJOexI.png]](http://im79.gulfup.com/AJOexI.png)
.....
منقول
أولا أضف الأداة WindowsMediaPlayer إلى مجموعة الأدوات كالتالي
أظهر الفورم في وضع التصميم ثم اذهب إلى قائمة الأدوات واضغط زر يمين واختار ...Choose Items
![[صورة مرفقة: 1H5kIr.png]](http://im76.gulfup.com/1H5kIr.png)
من النافذة اختر التبويب COM Components ومنه صع علامة صح √ على WindowsMediaPlayer
![[صورة مرفقة: DkFuS7.png]](http://im76.gulfup.com/DkFuS7.png)
أضف الأداة WindowsMediaPlayer التي ظهرت في مجموعة الأدوات إلى الفورم وأضف Button و TextBox
![[صورة مرفقة: AJOexI.png]](http://im79.gulfup.com/AJOexI.png)
كود :
Public Class Form1
Dim WithEvents WebBrowser1 As New WebBrowser
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
WebBrowser1.Navigate(Me.TextBox1.Text)
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs) _
Handles WebBrowser1.DocumentCompleted
If WebBrowser1.ReadyState = WebBrowserReadyState.Complete Then
Dim result = System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "(?<=VIDEO src="").+(?="")").Value.Trim
If result <> "" Then
WebBrowser1.Stop()
Me.Text = WebBrowser1.DocumentTitle
Me.AxWindowsMediaPlayer1.URL = result
End If
End If
End Sub
End Class![[صورة مرفقة: tdUHX9.png]](http://im75.gulfup.com/tdUHX9.png)
.....



