تمت الإجابة جلب اسماء هذه الصفحات براوبطها

تم تحميل الصفحة في 1,8591171 ثانية
جلب اسماء هذه الصفحات براوبطها
الحالة
مغلق و غير مفتوح للمزيد من الردود.

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
السلام عليكم اخوتى
بحاول من امس والله لجلب اسماء وروابط هذه الصفحات للفيس بوك

Log into Facebook | Facebook

صفحاتى التى انشأتها لكن مش عاوزة تظبط لآن هناك صفحات كثيرة جدا تحتها
وكل التاجات والايديهات والكلاسات متشابهات
وانا لدى فقط صفحتين وجربت بهذا الكود لكنه لم ينجح
C#:
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/ هم روابط صفحاتى

وهذا هو كود الhtml

HTML:
<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>
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
وعليكم السلام ورحمة الله وبركاته

لم افهم طلبك بشكل جيد

ولكن قمت بعمل شي حسب ماتمكنت من فهمه




كود:
 Dim source As String = RichTextBox1.Text

        Dim match As MatchCollection
        match = Regex.Matches(source, "(?<=id=""page_suggestion_\d+""><a href="").+?(?=""><span>)")
        ListBox1.Items.Clear()

        For i = 0 To match.Count - 1

            ListBox1.Items.Add(match(i).Value)

        Next
فهمني اكثر اذا كنت مخطأ لكي اساعدك بشكل صحيح

بالتوفيق
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
وعليكم السلام ورحمة الله وبركاته

لم افهم طلبك بشكل جيد

ولكن قمت بعمل شي حسب ماتمكنت من فهمه




كود:
 Dim source As String = RichTextBox1.Text

        Dim match As MatchCollection
        match = Regex.Matches(source, "(?<=id=""page_suggestion_\d+""><a href="").+?(?=""><span>)")
        ListBox1.Items.Clear()

        For i = 0 To match.Count - 1

            ListBox1.Items.Add(match(i).Value)

        Next
فهمني اكثر اذا كنت مخطأ لكي اساعدك بشكل صحيح

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




يعنى اريد الصفحات التى تعمل عليها فقط التى باللون الاصفر
وطبعا يكون الرابط مدمج معها كى انشر فيها


Log into Facebook | Facebook
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
انا عملتها كدة وتمام بس افرض هاعمل صفحات اخرى هافضل اضيفهم ههه

C#:
 Dim input As HtmlElementCollection
        input = WebBrowser1.Document.GetElementsByTagName("a")
        For Each Element As HtmlElement In input
            If Element.InnerText = ("كل مشكلة ولها حل") 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.InnerText = ("خواطر وحكم وأمثال") Then
                lst.Add(item.GetAttribute("href").ToString())
                ListBox1.Items.Add(item.InnerText)

            End If
        Next item
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
تكرم أخى...
اريد جلب كما بالصورة من هذه الصفحة التى بالاعلى وبالتأكيد ستختلف من شخص لآخر
فكل شخص عامل صفحات مختلفة عن الاخر لينشر فيها




يعنى اريد الصفحات التى تعمل عليها فقط التى باللون الاصفر
وطبعا يكون الرابط مدمج معها كى انشر فيها


Log into Facebook | Facebook
ايضا لم افهم طلبك هههههه الي فهمته برمجت لك اياه عطني سورس الصفحة الي انت صورتها سورس الصفحة بالكامل
لان اعتقد الي سويته انا تمام بحسب الي فهمته وبالسورس الي عندي
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
هذا ليس الصفحة كلها اخى بل سورس الصفحتين فقط اللى هما
كل مشكلة ولها حل و خواطر وحكم وأمثال
وما اريد هو جلب صفحاتى فقط التى أنشاتها كى انشر فيهم
اظن الكلام شارح نفسه ههههه
حبيبى والله
ولاوضح لك أكثر جربت الان بهذا الكود لآجلب صفحاتى من خلال انى وضعت اى دى كل صفحة
لكنها لم تفلح

C#:
 Dim input As HtmlElementCollection
        input = WebBrowser1.Document.GetElementsByTagName("div")
        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("div")
        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
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
هذا ليس الصفحة كلها اخى بل سورس الصفحتين فقط اللى هما
كل مشكلة ولها حل و خواطر وحكم وأمثال
وما اريد هو جلب صفحاتى فقط التى أنشاتها كى انشر فيهم
اظن الكلام شارح نفسه ههههه
حبيبى والله
ولاوضح لك أكثر جربت الان بهذا الكود لآجلب صفحاتى من خلال انى وضعت اى دى كل صفحة
لكنها لم تفلح

C#:
 Dim input As HtmlElementCollection
        input = WebBrowser1.Document.GetElementsByTagName("div")
        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("div")
        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
اسف والله مادري وش فيني اليوم مو قاعد افهم

يعني الكود الي كتبته لك جربته ومو شغال؟
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
انا الان لدى صحة على الفيس بوك " بروفايل كما نقول "
وداخل هذا البروفايل عامل صغحات لآنشر بها اشياء مفيد تنفعنى وتنفع غيرى.
فانا اريد تسجيل الدخول عادى للفيس بوك ومن ثم الذهاب لهذه الصفحات " الرابط فوق وضعته"
وأجلبهم كلهم داخل الليست بوكس بحيث حينما أكتب منشور فى التكست بوكس
يمر على هذه الصفحات اللى هى داخل الليست بوكس وينشر فيها...
وهذا الكود نفع معايا وشغال تمام لكن تخيل انى عامل عشر صفحات مثلا
هافضل كل ما انشئ صفحة ارجع للمشروع تانى واكتبهم . اظن هذا ليس برمجة
وهذا الكود اللى انا شغال به حاليا ويعمل جيدا

C#:
Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("a")
       For Each Element As HtmlElement In input
           If Element.InnerText = ("كل مشكلة ولها حل") 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.InnerText = ("خواطر وحكم وأمثال") Then
               lst.Add(item.GetAttribute("href").ToString())
               ListBox1.Items.Add(item.InnerText)

           End If
       Next item
ركز بقى هههه
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
انا الان لدى صحة على الفيس بوك " بروفايل كما نقول "
وداخل هذا البروفايل عامل صغحات لآنشر بها اشياء مفيد تنفعنى وتنفع غيرى.
فانا اريد تسجيل الدخول عادى للفيس بوك ومن ثم الذهاب لهذه الصفحات " الرابط فوق وضعته"
وأجلبهم كلهم داخل الليست بوكس بحيث حينما أكتب منشور فى التكست بوكس
يمر على هذه الصفحات اللى هى داخل الليست بوكس وينشر فيها...
وهذا الكود نفع معايا وشغال تمام لكن تخيل انى عامل عشر صفحات مثلا
هافضل كل ما انشئ صفحة ارجع للمشروع تانى واكتبهم . اظن هذا ليس برمجة
وهذا الكود اللى انا شغال به حاليا ويعمل جيدا

C#:
Dim input As HtmlElementCollection
       input = WebBrowser1.Document.GetElementsByTagName("a")
       For Each Element As HtmlElement In input
           If Element.InnerText = ("كل مشكلة ولها حل") 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.InnerText = ("خواطر وحكم وأمثال") Then
               lst.Add(item.GetAttribute("href").ToString())
               ListBox1.Items.Add(item.InnerText)

           End If
       Next item
ركز بقى هههه
هههههههههههههههه
والله سويت لي صفحة في الفيس بوك عشان اشوف سورس الصفحة بشكل جيد

تفضل

كود:
 Dim source As String = RichTextBox1.Text

        Dim match As MatchCollection
        match = Regex.Matches(source, "(?<=<div class=""by f bz"" id=""page_suggestion_\d+""><a href="").*?(?=""><span>\w+</span></a><br /><span class=""ca"">\w+</span><br /><span class=""cb ca"">\w+ likes</span></div></td></tr></tbody></table></div>)")
        ListBox1.Items.Clear()

        For i = 0 To match.Count - 1

            ListBox1.Items.Add(match(i).Value)

        Next
 

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
والله ما كنت عاوز اتعبك كل هذا التعب والله زعلتنى...
ومادام انت قمت بعمل صفحة فانا رفعت لك مشروع صغير كى تعرف ان العملية وللأسف
الشديد لم تجلب اى شيئ...
وسمحنى أخى فأنا لا اقصد ان ارهقك بهذا الشكل

IRizerX | تحميل
 

IRizerX

.:: مُشرف أقسام البرمجة ::.
rankrank
إنضم
25 مايو 2017
المشاركات
378
الإعجابات
558
النقاط
93
والله ما كنت عاوز اتعبك كل هذا التعب والله زعلتنى...
ومادام انت قمت بعمل صفحة فانا رفعت لك مشروع صغير كى تعرف ان العملية وللأسف
الشديد لم تجلب اى شيئ...
وسمحنى أخى فأنا لا اقصد ان ارهقك بهذا الشكل

IRizerX | تحميل
والله انا الي تعبتك معاي



IRizerX-edited | تحميل
 
الإعجابات: 4w1il

ابو روضة

.:: إداري النقطة العامة ::.
rankrankrankrankrankrank
إنضم
28 أكتوبر 2012
المشاركات
4,362
الإعجابات
5,419
النقاط
223
الإقامة
القاهرة
الحالة
مغلق و غير مفتوح للمزيد من الردود.

الأعضاء النشطين حاليآ الذين يشاهدون هذا الموضوع (1 عضو و 0 ضيف)

خيارات الاستايل

نوع الخط
مودك
اخفاء السايدر بار OFF
توسيط المنتدى OFF
فصل الأقسام OFF
الأقسام الفرعية OFF
عرض المشاركات
حجم الخط
معلومات العضو OFF
إخفاء التوقيع OFF

إرجاع خيارات الإستايل