[trakktour]

السلام عليكم احبابي في الله
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 10 نتائج

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using X As New Net.WebClient
           X.Encoding = Encoding.UTF8
           AddHandler X.DownloadDataCompleted, AddressOf search
           X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
       End Using
   End Sub
 
   Private Sub search(sender As Object, e As DownloadDataCompletedEventArgs)
       Dim RS As String = (New UTF8Encoding).GetString(e.Result)
       Dim M As MatchCollection = Regex.Matches(RS, "(https:\/\/pastebin.com\/\w+)")
       Label1.Text = "founded Links : " & M.Count
       For i = 0 To M.Count - 1
           ListBox1.Items.Add(M(i).Value & vbNewLine)
       Next
   End Sub

[elgokr]

لتبسيط الامور فكرياً

عليك عمل كود يقوم بجلب عدد الصحات لنتائج البحث

ليقوم بجلب اخر رقم من 

PHP كود :

< 1 2 3 4 5 6 ... 50 > 


بحيث ليكون يتم عمل For بعدد تلك الارقام

حتى يتم استخدام الرابط بالكود على هذا الشكل

PHP كود :

"https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text & "&first=" & ii - 1 & "1" 


حيث ان ii المقصود هنا بالكود الموجود فى For كمثال

كود :

For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث

من تم اضافته بالرابط هو 

PHP كود :

&first=1 


ويعنى البداء من 1 وتعنى الصفحة الاولى

وعندما تكون  من 11 وهنا تعنى من الصحة الثانية

ومن 21 تعنى الصفحة الثالثة

اتمنى ان الصورة اصبحت واضحة وكاملة لديك

وان الامور اصبح مبسط لديك كلياً

احببت اجعل ردى كا شرح بدلاً من الكود

لتقوم انت بعل ذلك وتتعلم من كيفيت وصول لما تريده

تحياتى لك

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

[trakktour]

لتبسيط الامور فكرياً

عليك عمل كود يقوم بجلب عدد الصحات لنتائج البحث

ليقوم بجلب اخر رقم من 

PHP كود :

< 1 2 3 4 5 6 ... 50 > 


بحيث ليكون يتم عمل For بعدد تلك الارقام

حتى يتم استخدام الرابط بالكود على هذا الشكل

PHP كود :

"https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text & "&first=" & ii - 1 & "1" 


حيث ان ii المقصود هنا بالكود الموجود فى For كمثال

كود :

For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث

من تم اضافته بالرابط هو 

PHP كود :

&first=1 


ويعنى البداء من 1 وتعنى الصفحة الاولى

وعندما تكون  من 11 وهنا تعنى من الصحة الثانية

ومن 21 تعنى الصفحة الثالثة

اتمنى ان الصورة اصبحت واضحة وكاملة لديك

وان الامور اصبح مبسط لديك كلياً

احببت اجعل ردى كا شرح بدلاً من الكود

لتقوم انت بعل ذلك وتتعلم من كيفيت وصول لما تريده

تحياتى لك

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

شكرا يا غالي الله يحفظك 
هكذا الكود ؟؟

كود :

               For ii As Integer = 1 To 50
                   X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & txt1.Text & "&first=" & ii - 1))
               Next

[elgokr]

الكود سيكون عبارة عن 3 مراحل

الاول جلب عدد الصفحات فى البحث

حتى تستبدل من 50 الى القيمة التى تم جلبها

ثانياً الكود الخاص ك التالى

كود :

      Using X As New Net.WebClient
          X.Encoding = Encoding.UTF8
          AddHandler X.DownloadDataCompleted, AddressOf search
          X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
      End Using

باكمله سيكون بداخل لـ For الذى تم عمله من ناتج الخطوة الاولى

ثالثاً ترحيل القيم من النتائج فى المرحلة الثانية

ليتم عرضها لديك فى البرنامج

وبكده تكون انهيت ما تريد فعله كلياً

اتمنى ان تكون الامور ليس معقدة وانا متاكد انت ستصل لها بالتركيز فى الشرح

ويعتمد ذلك اذا كنت انت من انشاء الكود فى الموضوع من البداية

تحياتى لك

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

[trakktour]

الكود سيكون عبارة عن 3 مراحل

الاول جلب عدد الصفحات فى البحث

حتى تستبدل من 50 الى القيمة التى تم جلبها

ثانياً الكود الخاص ك التالى

كود :

      Using X As New Net.WebClient
          X.Encoding = Encoding.UTF8
          AddHandler X.DownloadDataCompleted, AddressOf search
          X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
      End Using

باكمله سيكون بداخل لـ For الذى تم عمله من ناتج الخطوة الاولى

ثالثاً ترحيل القيم من النتائج فى المرحلة الثانية

ليتم عرضها لديك فى البرنامج

وبكده تكون انهيت ما تريد فعله كلياً

اتمنى ان تكون الامور ليس معقدة وانا متاكد انت ستصل لها بالتركيز فى الشرح

ويعتمد ذلك اذا كنت انت من انشاء الكود فى الموضوع من البداية

تحياتى لك

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

شكرا حبيبي تم حل المشكل ربي يحفظك
شرحك اكثر من رائع

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

احسنت اخى الفاضل وهذا ثقتى بك بانك ستتمكن من ذلك

تحياتى لك

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