[mohamedahmed1]

(30-08-19, 03:48 AM)bakriano30@yahoo.com كتب : ممكن مساعدة بكود ريجكس لاستخراج id حسابي عند دخول الفيس بوك

كود :

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
       Try
           RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
           For Each m As Match In Regex.Matches(RichTextBox1.Text, "ACCOUNT_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

---

بعد تسجيل الدخول سيتم جلب id الحساب