تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ممكن مساعدة بكود ريجكس لاستخراج id حسابي
#1
ممكن مساعدة بكود ريجكس لاستخراج id حسابي عند دخول الفيس بوك
الرد }}}
تم الشكر بواسطة: سعود
#2
(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 الحساب


الملفات المرفقة
.rar   get id.rar (الحجم : 73.65 ك ب / التحميلات : 6)
[صورة مرفقة: p_1583w56341.gif]
الرد }}}



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم