منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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>

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

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

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

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

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

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

تحياتى لك

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

(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

هلا تلاحظ هنا فى هذا السطر

كود :

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

انت مستخدم استدعاء الـ ID تحت مسمى / تعريف

PHP كود :

459891620848483 

بينما الـ A تحتوى على class تحت مسمى / تعريف

PHP كود :

_27vo img 

تحياتى لك

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

(15-11-18, 05:58 PM)elgokr كتب : [ -> ]هلا تلاحظ هنا فى هذا السطر

كود :

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

انت مستخدم استدعاء الـ ID تحت مسمى / تعريف

PHP كود :

459891620848483

بينما الـ A تحتوى على class تحت مسمى / تعريف

PHP كود :

_27vo img

تحياتى لك

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

جزاك الله كل خير أخى

لنا جميعاً ان شاء الله

باذن الله تكون توصلت الى المطلوب

بعد توضيح بتلميح التعديل لك

تحياتى لك

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

(15-11-18, 09:00 PM)elgokr كتب : [ -> ]
لنا جميعاً ان شاء الله

باذن الله تكون توصلت الى المطلوب

بعد توضيح بتلميح التعديل لك

تحياتى لك

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

تلميحاتك كلها فى الجون أخى الجوكر حتى لو لم تُحل المشكلة سبحان الله

(15-11-18, 09:14 PM)ابو روضة كتب : [ -> ]
تلميحاتك كلها فى الجون أخى الجوكر حتى لو لم تُحل المشكلة سبحان الله

من السهل ان اقوم بوضع الحل

ولكن هذا لا يفيد بشئ حيث ان تكرر الامر مجدداً ولم تنتبه اليها

لذلك اقوم بالتلميح لانى على علم انك على يقين بالاستيعاب الامر وستتمكن منها

والسبب من ذلك اذا تكرر الامر ستتمكن دائماً من حلها لانك اصبحت بدراية بالامر

تحياتى لك

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