[سامي محمد]

بعد أذنك أخي أبو روضة ....

جرب هذا الكود

كود :

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WebBrowser1.Url = New System.Uri("https://www.facebook.com/")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MessageBox.Show(System.Text.RegularExpressions.Regex.Match(WebBrowser1.DocumentText, "USER_ID"":""(\d+)""").Groups(1).Value)
    End Sub

لا تنسى تسجل الدخول الى الفيس بك