[ابو روضة]

السلام عليكم اخوتى
بحاول من امس والله لجلب اسماء وروابط هذه الصفحات للفيس بوك

https://mbasic.facebook.com/pages/

صفحاتى التى انشأتها لكن مش عاوزة تظبط لآن هناك صفحات كثيرة جدا تحتها
وكل التاجات والايديهات والكلاسات متشابهات
وانا لدى فقط صفحتين وجربت بهذا الكود لكنه لم ينجح

كود :

Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
       ListBox1.Items.Clear()
       For Each Element As HtmlElement In Page
           If Element.GetAttribute("href").Contains("/samhahmadko/") And Element.GetAttribute("href").Contains("/sami.abosarea/") Then
               lst.Add(Element.GetAttribute("href"))
               ListBox1.Items.Add(Element.InnerText)
           End If
       Next

 حيث ان /samhahmadko/و /sami.abosarea/ هم روابط صفحاتى

وهذا هو كود الصفحتين

كود :

<div class="bv bw"><div><div class="bx"><table class="o" role="presentation"><tbody><tr><td class="p"><a href="/samhahmadko/"><img src="https://scontent-mrs1-1.xx.fbcdn.net/v/t1.0-1/cp0/e15/q65/c8.0.50.50/p50x50/13434961_634480790036950_1929037656574218585_n.jpg?_nc_cat=102&amp;efg=eyJpIjoiYiJ9&amp;_nc_pt=1&amp;_nc_ht=scontent-mrs1-1.xx&amp;oh=aefd04c9d9097d493b7ab6236c920b47&amp;oe=5C6E3079" class="by u" alt="كل مشكلة ولها حل"></a></td><td class="v"><div class="bz g ca" id="page_suggestion_632471550237874"><a href="/samhahmadko/"><span>كل مشكلة ولها حل</span></a><br><span class="cb">شركة إنترنت</span><br><span class="cc cb">‏١٬٧٩٦‏ تسجيل إعجاب</span></div></td></tr></tbody></table></div><div class="bx"><table class="o" role="presentation"><tbody><tr><td class="p"><a href="/sami.abosarea/"><img src="https://scontent-mrs1-1.xx.fbcdn.net/v/t1.0-1/cp0/e15/q65/p50x50/14117823_609186389252338_8497249323511530790_n.jpg?_nc_cat=104&amp;efg=eyJpIjoiYiJ9&amp;_nc_pt=1&amp;_nc_ht=scontent-mrs1-1.xx&amp;oh=a9df06a645f0be27c97ab917a9b5eddc&amp;oe=5C7FDCE8" class="by u" alt="خواطر وحكم وأمثال"></a></td><td class="v"><div class="bz g ca" id="page_suggestion_459891620848483"><a href="/sami.abosarea/"><span>خواطر وحكم وأمثال</span></a><br><span class="cb">خدمة أعمال</span><br><span class="cc cb">‏٥٬٠٦٨‏ تسجيل إعجاب</span></div></td></tr></tbody></table></div></div></div>