[ابو روضة]

السلام عليكم ورحمة الله وبركاته

لى طلب ووانا اسف والله لانى تعبتكم لكن بحاول والله كتير

كنت عاوز اعمل هذا الكود كما بموضوعى الاخير  http://vb4arb.com/vb/showthread.php?tid=29289

أى اجعل هذا الكود اخل كلاس وانادى عليه

كود :

RichTextBox1.Text = WebBrowser1.Document.GetElementsByTagName("HTML").Item(0).OuterHtml

       For Each f As Match In Regex.Matches(RichTextBox1.Text, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.Multiline)
           ListBox1.Items.Add(f.Groups(1).Value)
       Next

---

بعد المحاولة عملتها بفضل اله ثم الاستاذ بدرى فهو الذى سهل علىّ هذه الطريقة

كود :

Public Shared Sub post(wb As WebBrowser, Rich As String, List As ListBox)
       Rich = wb.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
       For Each f As Match In Regex.Matches(Rich, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.Multiline)
           List.Items.Add(f.Groups(1).Value)
       Next
   End Sub

Git_groups_facebook.Class1.post(WebBr, RichTextBox1.Text, ListBox1)

---

---