تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إستخراج نتائج بحث في google images
#8
Thumbs Up 
(17-07-19, 07:35 PM)الحازمي كتب : أخي سامي

شكرا على هذا الكود،

اسمح لي بتعديله وتحسينه ليكون أكثر وضوحا وسهولة،
اعتمدت أسلوبك في تسمية المتغيرات لينسجم مع كود مشاركتك في الموضوع

جلب صورة واحدة من نتيجة البحث في Google Images
تحتاج للأدوات التالية:
TextBox1
Button1
PictureBox1

وهذا الكود داخل Button1 ثم اكتب ما تريد البحث عنه داخل الأداة TextBox1
PHP كود :
Dim UR As String "https://www.google.com/search?tbm=isch&q=" TextBox1.Text
Dim WW 
As Net.WebRequest Net.WebRequest.Create(UR)
Dim HH As Net.HttpWebResponse WW.GetResponse
Dim ST 
As IO.Stream HH.GetResponseStream
Dim RD 
As New IO.StreamReader(ST)
Dim RS As String RD.ReadToEnd
Dim IU 
As String System.Text.RegularExpressions.Regex.Match(RS"""(https://encrypted-tbn0.gstatic.com/images[^""]+?)""").Groups(1).Value
PictureBox1
.LoadAsync(IU


جلب جميع الصور التي في الصفحة الأولى من نتيجة البحث في Google Images
تحتاج للأدوات التالية:
TextBox1
Button1
FlowLayoutPanel1

وهذا الكود داخل Button1 ثم اكتب ما تريد البحث عنه داخل الأداة TextBox1
PHP كود :
Dim UR As String "https://www.google.com/search?tbm=isch&q=" TextBox1.Text
Dim WW 
As Net.WebRequest Net.WebRequest.Create(UR)
Dim HH As Net.HttpWebResponse WW.GetResponse
Dim ST 
As IO.Stream HH.GetResponseStream
Dim RD 
As New IO.StreamReader(ST)
Dim RS As String RD.ReadToEnd
Dim MS 
System.Text.RegularExpressions.Regex.Matches(RS"""(https://encrypted-tbn0.gstatic.com/images[^""]+?)""")
For 
Each MT In MS
    Dim PB 
As New PictureBox
    PB
.Size = New Size(150100)
 
   PB.BorderStyle BorderStyle.FixedSingle
    PB
.BackColor Color.White
    PB
.LoadAsync(MT.Groups(1).Value)
 
   PB.SizeMode PictureBoxSizeMode.Zoom
    FlowLayoutPanel1
.Controls.Add(PB)
Next
FlowLayoutPanel1
.AutoScroll True 

أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني

بارك الله فيك
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


الردود في هذا الموضوع
RE: إستخراج نتائج بحث في google images - بواسطة سامي محمد - 17-07-19, 11:50 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة فى ترتيب نتائج الاستعلام ZEEN4ZEEN 1 362 08-11-23, 01:34 AM
آخر رد: الحزين اليماني
  [VB.NET] How to autoscroll down on split pages e.g. google maps? mohmeed 1 845 05-03-22, 04:09 PM
آخر رد: mohmeed
Question [VB.NET] كيف يتم إدراج نتائج البحث في textbox ؟؟ Microformt 3 1,389 10-11-20, 07:14 PM
آخر رد: mmali127
  لي أيام أحاول اعرض نتائج البحث في التقرير المهنا 3 2,003 08-08-20, 12:52 AM
آخر رد: المهنا
Lightbulb [VB.NET] عرض نتائج DataReader فى ListView Doctor GME 2 1,548 17-06-20, 06:36 AM
آخر رد: Doctor GME
  سؤال حول إستخراج نوع صورة فقط بدون الإسم : مثال (JPG.) Al Wilaya 3 1,778 02-02-20, 05:49 PM
آخر رد: alsalamoni
  كيفية حفظ نسخة من قاعدة البيانات على google drive المتألق9 1 2,826 26-10-19, 05:04 AM
آخر رد: asemshahen5
  فلترة نتائج البحث فى داتا جريد فيو منبثقة mr_hso 1 2,051 14-09-19, 03:09 AM
آخر رد: asemshahen5
  اظهار مجموع نتائج البحث عن كلمة الرائد 8 2,853 13-08-19, 09:45 PM
آخر رد: الرائد
  سؤال حول امكانية البحث من خلال الكومبوبوكس أو التكست بوكس وعرض نتائج البحث في الكومبو foular 3 1,724 24-07-19, 11:22 PM
آخر رد: عبد العزيز البسكري

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


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