30-08-19, 03:48 AM
30-08-19, 05:08 AM
(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 الحساب