تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جلب اسماء هذه الصفحات براوبطها
#1
السلام عليكم اخوتى
بحاول من امس والله لجلب اسماء وروابط هذه الصفحات للفيس بوك

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>
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة:
#3
(12-11-18, 01:12 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

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

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

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

ولا يهمك اخى مع انى جربت هذه كثير ايضا...
طب نفرض ان كود ال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
الرد }}}
تم الشكر بواسطة:
#4
هلا تلاحظ هنا فى هذا السطر
كود :
If Element.GetAttribute("id").Contains("459891620848483") Then

انت مستخدم استدعاء الـ ID تحت مسمى / تعريف
PHP كود :
459891620848483 

بينما الـ A تحتوى على class تحت مسمى / تعريف
PHP كود :
_27vo img 

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , ابو روضة
#5
(15-11-18, 05:58 PM)elgokr كتب : هلا تلاحظ هنا فى هذا السطر
كود :
If Element.GetAttribute("id").Contains("459891620848483") Then

انت مستخدم استدعاء الـ ID تحت مسمى / تعريف
PHP كود :
459891620848483 

بينما الـ A تحتوى على class تحت مسمى / تعريف
PHP كود :
_27vo img 

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

جزاك الله كل خير أخى
الرد }}}
تم الشكر بواسطة: elgokr
#6
لنا جميعاً ان شاء الله

باذن الله تكون توصلت الى المطلوب
بعد توضيح بتلميح التعديل لك

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة
#7
(15-11-18, 09:00 PM)elgokr كتب :
لنا جميعاً ان شاء الله

باذن الله تكون توصلت الى المطلوب
بعد توضيح بتلميح التعديل لك

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

تلميحاتك كلها فى الجون أخى الجوكر حتى لو لم تُحل المشكلة سبحان الله
الرد }}}
تم الشكر بواسطة: elgokr
#8
(15-11-18, 09:14 PM)ابو روضة كتب :
تلميحاتك كلها فى الجون أخى الجوكر حتى لو لم تُحل المشكلة سبحان الله


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

ولكن هذا لا يفيد بشئ حيث ان تكرر الامر مجدداً ولم تنتبه اليها
لذلك اقوم بالتلميح لانى على علم انك على يقين بالاستيعاب الامر وستتمكن منها
والسبب من ذلك اذا تكرر الامر ستتمكن دائماً من حلها لانك اصبحت بدراية بالامر

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: ابو روضة , dubai.eig , dubai.eig


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  متغيرات اسماء الملفات atefkhalf2004 1 337 15-11-23, 02:40 PM
آخر رد: atefkhalf2004
Bug [سؤال] قائمة ب اسماء برامج فك تشفير البرامج وقرائة السورسات Aymanr3b 0 285 06-09-23, 12:56 AM
آخر رد: Aymanr3b
  تغيير اسماء الاسبوع kebboud 1 379 12-07-23, 01:39 AM
آخر رد: Shade0001
  [VB.NET] اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس alsaab120 4 1,796 23-02-23, 12:37 AM
آخر رد: ابو انس
  [سؤال] هناك ليست بوكس مربوطه بقاعده بيانات وعايز كود لجلب لجلب اسماء العناصر المحدده حسن الجلب 1 601 18-08-22, 07:20 AM
آخر رد: سعود
  [سؤال] عايز كود عرض اسماء الجداول من قاعد البيانات الي ليست بوكس حسن الجلب 1 693 23-07-22, 08:53 PM
آخر رد: سعود
  الاستعلام عن اسماء العملاء الذين لم يسددوا اي مبلغ atefkhalf2004 7 1,435 17-04-22, 02:33 PM
آخر رد: atefkhalf2004
  اسماء الكنترول محمود صالح 3 1,178 05-02-22, 05:23 PM
آخر رد: asmarsou
  اظهار اسماء الورقات في ملف الاكسيل المتألق9 1 892 14-12-21, 01:18 AM
آخر رد: ابراهيم ايبو
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 1 1,530 23-10-21, 01:35 AM
آخر رد: بسام محمدغانم

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم