جلب اسماء هذه الصفحات براوبطها

كود :

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

كود :

<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>

PHP كود :

<a href="/sami.abosarea/?__xts__%5B0%5D=28.%7B%22location%22%3A%22owned_pages_section%22%2C%22page_id%22%3A459891620848483%7D&amp;__tn__=k" data-gt="{&quot;tn&quot;:&quot;k&quot;}"><img src="https://scontent-cai1-1.xx.fbcdn.net/v/t1.0-1/cp0/e15/q65/p50x50/14117823_609186389252338_8497249323511530790_n.jpg?_nc_cat=104&amp;efg=eyJpIjoidCJ9&amp;_nc_pt=1&amp;_nc_ht=scontent-cai1-1.xx&amp;oh=f0aeef364f9862d733f2968834df0fe3&amp;oe=5C7FDCE8" class="_27vo img"><div class="_27vp">خواطر وحكم وأمثال</div></a>

كود :

Dim input As HtmlElementCollection

        input = WebBrowser1.Document.GetElementsByTagName("a")

        For Each Element As HtmlElement In input

            If Element.GetAttribute("id").Contains("459891620848483") Then

                lst.Add(Element.GetAttribute("href").ToString())

                ListBox1.Items.Add(Element.InnerText)



            End If



        Next Element

       

        Dim inp As HtmlElementCollection

        inp = WebBrowser1.Document.GetElementsByTagName("a")

        For Each item As HtmlElement In inp

            If item.GetAttribute("id").Contains("632471550237874") Then

                lst.Add(item.GetAttribute("href").ToString())

                ListBox1.Items.Add(item.InnerText)



            End If

        Next item