+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ممكن مساعدة بكود ريجكس لاستخراج id حسابي (/showthread.php?tid=31142)
ممكن مساعدة بكود ريجكس لاستخراج id حسابي - bakriano30@yahoo.com - 30-08-19
ممكن مساعدة بكود ريجكس لاستخراج id حسابي عند دخول الفيس بوك
RE: ممكن مساعدة بكود ريجكس لاستخراج id حسابي - mohamedahmed1 - 30-08-19
(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 الحساب