تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] إستخراج نتائج بحث في google images
#1
السلام عليكم

قمت بعمل بحث في google images باستخدام WebBrowser

هل هناك إمكانية لإستخراج رابط أول صورة لنتيجة هذا البحث

الرد
#2
كود :
Imports System.IO
Imports System.Net
Imports System.Text.RegularExpressions

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim ww As WebRequest = WebRequest.Create(Me.WebBrowser1.Url.ToString)
        Dim HH As HttpWebResponse = ww.GetResponse
        Dim RDD As Stream = HH.GetResponseStream
        Dim R As New StreamReader(RDD)
        PictureBox1.LoadAsync(Regex.Match(R.ReadToEnd, """(https://encrypted-tbn0.gstatic.com/images[^""]+?)""", RegexOptions.IgnoreCase).Groups(1).Value)
    End Sub
الرد
#3
جزاك الله على هادا الكود الجميل أخي سامي
نجحت الفكرة
و سأجتهد لفهم Regex

شكرا شكرا شكرا
الرد
#4
أخي سامي

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

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

جلب صورة واحدة من نتيجة البحث في 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 

أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
الرد
#5
(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 

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

الله يبارك بعمر أخى الكريم الحازمى ماشاء الله عليك...
لو سمحت اذا أحببت مثلا اذا ضغطت على الصورة ينقلنى الى صفحتها فى المتصفح ماذا افعل أو 
كيف يتم هذا ؟
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5 , ابراهيم ايبو
#6
(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 

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

من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
الرد
تم الشكر بواسطة: asemshahen5
#7
(17-07-19, 08:49 PM)bakriano30@yahoo.com كتب : من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك

يا أخى الاخ الحازمى موضوع كل شيئ وقال ضع اداة كذا وكذا وضع الكود فى الزر
يعنى كل شيئ واضح امام حضرتك فبدلا من هذا كنت حتى شكرته ولو بكلمة ..
أنت حتى وضعت لك المشروع هناك ولم تعيريه أى اهتمام .. فلا تجعل احتياجك للشيئ يُنسيك فعل الواجب والأصول
الرد
تم الشكر بواسطة: asemshahen5 , ابراهيم ايبو
#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 

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية حفظ نسخة من قاعدة البيانات على google drive المتألق9 1 174 26-10-19, 05:04 AM
آخر رد: asemshahen5
  فلترة نتائج البحث فى داتا جريد فيو منبثقة mr_hso 1 221 14-09-19, 03:09 AM
آخر رد: asemshahen5
  اظهار مجموع نتائج البحث عن كلمة الرائد 8 400 13-08-19, 09:45 PM
آخر رد: الرائد
  سؤال حول امكانية البحث من خلال الكومبوبوكس أو التكست بوكس وعرض نتائج البحث في الكومبو foular 3 241 24-07-19, 11:22 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] رفعت قاعدة بيانات access على Google Drive ولم استطع استعراض التقارير؟؟ abomo3ath 17 2,063 25-07-18, 09:58 AM
آخر رد: elgokr
  [VB.NET] ملأ الكومبوبكس من نتائج البحث في قاعدة البيانات larbihamri 3 450 06-07-18, 06:07 PM
آخر رد: elgokr
  [سؤال] التعديل على ملف txt على dropbox او google drive mohamed haroon 4 978 20-06-18, 02:22 AM
آخر رد: YousefOkasha
  [VB.NET] طريقة تلون نتائج البحث محمد بوقزاحة 2 413 11-02-18, 12:29 PM
آخر رد: محمد بوقزاحة
  اظهار الاحداثيات في ال Google Earth khaled12345 4 807 08-12-17, 01:37 PM
آخر رد: khaled12345
  [VB.NET] إستخراج المواقع التي على السيرفر .. عن طريق IP السيرفر asda 0 524 28-10-17, 10:15 PM
آخر رد: asda

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


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