تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  جلب اسماء وروابط هذه الصفحة بالHtmlAgilityPack ابو روضة 4 216 19-09-18, 08:52 AM
آخر رد: ابو روضة
  عرض اسماء الاجهزة داخل الشبكة المحلية atefkhalf2004 10 365 30-06-18, 08:48 PM
آخر رد: elgokr
  [سؤال] فتح جميع الصفحات في نفس الوقت web brosers saudisgames 2 809 23-03-18, 03:35 PM
آخر رد: saudisgames
  [سؤال] كيف اعمل سحب عشوائي مابين عدة اسماء Nete0 19 657 31-01-18, 03:17 PM
آخر رد: Basil Abdallah
  [سؤال] الحصول على اسماء المستخدمين Mohamed20 3 369 27-01-18, 08:50 PM
آخر رد: عبدالله الدوسري
  [سؤال] اضافة اسماء الكائنات الموجودة بالفورم بListbox Basil Abdallah 5 293 25-01-18, 08:42 PM
آخر رد: Basil Abdallah
  [سؤال] مشكلة في اسماء الاصناف في فاتورة المبيعات ملهمـ 8 616 22-11-17, 02:55 AM
آخر رد: ملهمـ
  [VB.NET] جلب اسماء أربــاع القرآن من هنا ابو روضة 1 258 12-11-17, 05:45 PM
آخر رد: ابو روضة
  [سؤال] جلب اسماء الملفات دون اسم المسار ابو روضة 11 740 01-10-17, 06:23 AM
آخر رد: ابو روضة
  [سؤال] كيفية معرف اسماء كل Button الموجودة فى الفروم عن طريق كلاس alims 8 507 04-09-17, 11:27 PM
آخر رد: alims

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


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