[ابو روضة]

(12-11-18, 01:12 PM)elgokr كتب :

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

جرب ان تستخدم الرابط على هذا الشكل 

https://mobile.facebook.com/pages/launchpoint/

بدلاً من الرابط فى المشاركة الخاصة بك ستجد به اختلاف التصميم

وللاسف ليس لدى حساب يحتوى على صفحات حتى اقوم باختبار الكود وتعديله لك

لذلك اقترحت عليك رابط اخر لاختلاف شكل التصميم ومن المئكد المسميات بها

تحياتى لك

وتمنياتى لك التوفيق

ولا يهمك اخى مع انى جربت هذه كثير ايضا...
طب نفرض ان كود الhtml بتاع صحفة اريدها هكذا

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