منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : إستخراج نتائج بحث في google images
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم

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

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

كود :
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
جزاك الله على هادا الكود الجميل أخي سامي
نجحت الفكرة
و سأجتهد لفهم Regex

شكرا شكرا شكرا
أخي سامي

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

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

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

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

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

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

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

من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
(17-07-19, 08:49 PM)bakriano30@yahoo.com كتب : [ -> ]من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك

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

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

بارك الله فيك