تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تعديل بسيط في كود بحث
#1
السلام عليكم احبابي في الله
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 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
الرد }}}
تم الشكر بواسطة:
#2
لتبسيط الامور فكرياً

عليك عمل كود يقوم بجلب عدد الصحات لنتائج البحث
ليقوم بجلب اخر رقم من 
PHP كود :
1 2 3 4 5 6 ... 50 

بحيث ليكون يتم عمل For بعدد تلك الارقام
حتى يتم استخدام الرابط بالكود على هذا الشكل
PHP كود :
"https://www.bing.com/search?q=site:pastebin.com+" TextBox1.Text "&first=" ii "1" 

حيث ان ii المقصود هنا بالكود الموجود فى For كمثال
كود :
For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث
من تم اضافته بالرابط هو 
PHP كود :
&first=

ويعنى البداء من 1 وتعنى الصفحة الاولى
وعندما تكون  من 11 وهنا تعنى من الصحة الثانية
ومن 21 تعنى الصفحة الثالثة

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

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

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

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


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: trakktour
#3
(17-12-18, 09:42 PM)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" 

حيث ان ii المقصود هنا بالكود الموجود فى For كمثال
كود :
For ii As Integer = 1 To 50

بكده ستتمكن من جلب جميع نتائج البحث
من تم اضافته بالرابط هو 
PHP كود :
&first=

ويعنى البداء من 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
الرد }}}
تم الشكر بواسطة: حاتمي
#4
الكود سيكون عبارة عن 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
#5
(18-12-18, 03:22 AM)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 الذى تم عمله من ناتج الخطوة الاولى

ثالثاً ترحيل القيم من النتائج فى المرحلة الثانية
ليتم عرضها لديك فى البرنامج

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

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

شكرا حبيبي تم حل المشكل ربي يحفظك
شرحك اكثر من رائع
الرد }}}
تم الشكر بواسطة: elgokr , حاتمي
#6
الشكر لله والحمد لله
والحمد لله على كل حال

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

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

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


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



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


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