تقييم الموضوع :
  • 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 

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اظهار مجموع نتائج البحث عن كلمة الرائد 8 256 13-08-19, 09:45 PM
آخر رد: الرائد
  سؤال حول امكانية البحث من خلال الكومبوبوكس أو التكست بوكس وعرض نتائج البحث في الكومبو foular 3 107 24-07-19, 11:22 PM
آخر رد: عبد العزيز البسكري
  [VB.NET] رفعت قاعدة بيانات access على Google Drive ولم استطع استعراض التقارير؟؟ abomo3ath 17 1,721 25-07-18, 09:58 AM
آخر رد: elgokr
  [VB.NET] ملأ الكومبوبكس من نتائج البحث في قاعدة البيانات larbihamri 3 378 06-07-18, 06:07 PM
آخر رد: elgokr
  [سؤال] التعديل على ملف txt على dropbox او google drive mohamed haroon 4 871 20-06-18, 02:22 AM
آخر رد: YousefOkasha
  [VB.NET] طريقة تلون نتائج البحث محمد بوقزاحة 2 338 11-02-18, 12:29 PM
آخر رد: محمد بوقزاحة
  اظهار الاحداثيات في ال Google Earth khaled12345 4 677 08-12-17, 01:37 PM
آخر رد: khaled12345
  [VB.NET] إستخراج المواقع التي على السيرفر .. عن طريق IP السيرفر asda 0 408 28-10-17, 10:15 PM
آخر رد: asda
  كيف يمكن إستخراج المفتاح من رقم الحساب ahmedfa71 3 586 13-04-17, 11:38 AM
آخر رد: ahmedfa71
  [سؤال] هل بالإمكان إضافة google maps إلى الفورم farhat 0 532 06-03-17, 09:29 AM
آخر رد: farhat

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


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