[ابو روضة]

مع أنك لم ترد على سؤالى فوق لكن لا عليك...

ضع WebBrowser1 و 2 TextBox و RichTextBox ثم ضع فى التكست بوكس رابط اى صفحة 

تريد جلب الاى دى بتاعها واضغط على الزر

كود :

WebBrowser1.Navigate(TextBox1.Text)

وضع هذا الكود داخل اداة الويب براوزر

كود :

Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "entity_id"":""(\d+)")
               Dim VidUrl As String = m.Groups(1).Value
               TextBox2.Text = VidUrl
               WebBrowser1.Stop()
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
       RichTextBox1.Clear()

وسيجلب لك أى دى أى حساب فى العالم بأمر الله