[سعود]

ممكن تستخدم كود قد تحتاج التعديل عليه ليلبي طلبك لكن قم بتجربته.

PHP كود :

                                       Dim str As String = """https://www\.facebook\.com/profile\.php\?id=([0-9]{1,}).*?;"""
                                        Dim reg As New Regex(str, RegexOptions.IgnoreCase)
                                        Dim mc As MatchCollection = reg.Matches(html)
                                        For Each ma As Match In mc
                                            If ma.Success Then
                                                TextBox2.AppendText(ma.Groups(1).Value & vbNewLine)
                                            End If
                                        Next 


---

سبب تاخري في الرد اني احاول قدر المستطاع ان استفيد من امكانات HtmlAgilityPack لكن لم اتمكن .
لذلك اعتذر عن التاخير