[ابو روضة]

(25-07-19, 04:17 AM)bidaya كتب :

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

(25-07-19, 04:03 AM)bidaya كتب :

لم يفلح معي الكود اخي

كود :

Imports System.Text.RegularExpressions

Public Class id

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate(TextBox1.Text)
   End Sub

   Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       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()
   End Sub
End Class

مستحيل أخى والله بيجلب لى أى صفحة اريدها

جرب اخي هذه الصفحة

https://www.facebook.com/benhenna.anes

اتفضل أخى والله بالبرنامج وجلبها بلحظة لكن فى الأول لازم تصبر شوية أخى