[bidaya]

(25-07-19, 03:37 AM)ابو روضة كتب :

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

ضع 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()

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

معذرتا اخي الكريم لم انتبه لردك

شكرا لك على المرور العطر ساجربه مع اني متاكد ان الكود مظبوط

ارجو ان تغذرني مرتا ثانيتا

الله يحفظك