[ابو روضة]

شكرا لكم اخوتى جلبتها بال HtmlAgilityPack  بعد عناء

PHP كود :

 'جلب الروابط

                For Each w As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='BrowseResultsContainer']/div[1]/div/div/div/table/tbody/tr/td[2]/a")

                    lst.Add("https://mbasic.facebook.com/" & w.Attributes("href").Value)
                Next
                'جلب الاسماء                                                          
                For Each s As HtmlAgilityPack.HtmlNode In doc.DocumentNode.SelectNodes("//*[@id='BrowseResultsContainer']/div[1]/div/div/div/table/tbody/tr/td[2]/a/div[1]/div")
                    ListBox1.Items.Add(s.InnerText.Trim)
                Next