السلام عليكم اخوتى
بحاول من امس والله لجلب اسماء وروابط هذه الصفحات للفيس بوك
https://mbasic.facebook.com/pages/
صفحاتى التى انشأتها لكن مش عاوزة تظبط لآن هناك صفحات كثيرة جدا تحتها
وكل التاجات والايديهات والكلاسات متشابهات
وانا لدى فقط صفحتين وجربت بهذا الكود لكنه لم ينجح
حيث ان /samhahmadko/و /sami.abosarea/ هم روابط صفحاتى
وهذا هو كود الصفحتين
بحاول من امس والله لجلب اسماء وروابط هذه الصفحات للفيس بوك
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&efg=eyJpIjoiYiJ9&_nc_pt=1&_nc_ht=scontent-mrs1-1.xx&oh=aefd04c9d9097d493b7ab6236c920b47&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&efg=eyJpIjoiYiJ9&_nc_pt=1&_nc_ht=scontent-mrs1-1.xx&oh=a9df06a645f0be27c97ab917a9b5eddc&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>