المشاركات : 401
المواضيع 109
الإنتساب : Jul 2013
السمعة :
10
الشكر: 973
تم شكره 473 مرات في 181 مشاركات
23-06-19, 08:58 PM
(آخر تعديل لهذه المشاركة : 23-06-19, 09:06 PM {2} بواسطة sniperjawadino.)
السلام عليكم
قمت بعمل بحث في google images باستخدام WebBrowser
هل هناك إمكانية لإستخراج رابط أول صورة لنتيجة هذا البحث
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
كود :
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
تم الشكر بواسطة: wared , ابو روضة , معاذ ابراهيم , sniperjawadino , sniperjawadino , حريف برمجة , asemshahen5 , asemshahen5 , الحازمي , ابراهيم ايبو , Basil Abdallah
المشاركات : 401
المواضيع 109
الإنتساب : Jul 2013
السمعة :
10
الشكر: 973
تم شكره 473 مرات في 181 مشاركات
جزاك الله على هادا الكود الجميل أخي سامي
نجحت الفكرة
و سأجتهد لفهم Regex
شكرا شكرا شكرا
المشاركات : 35
المواضيع 0
الإنتساب : Jul 2019
السمعة :
15
الشكر: 99
تم شكره 98 مرات في 34 مشاركات
أخي سامي
شكرا على هذا الكود،
اسمح لي بتعديله وتحسينه ليكون أكثر وضوحا وسهولة،
اعتمدت أسلوبك في تسمية المتغيرات لينسجم مع كود مشاركتك في الموضوع
جلب صورة واحدة من نتيجة البحث في 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(150, 100) 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(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(150, 100) 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
الله يبارك بعمر أخى الكريم الحازمى ماشاء الله عليك...
لو سمحت اذا أحببت مثلا اذا ضغطت على الصورة ينقلنى الى صفحتها فى المتصفح ماذا افعل أو
كيف يتم هذا ؟
المشاركات : 164
المواضيع 55
الإنتساب : Jul 2019
السمعة :
3
الشكر: 117
تم شكره 146 مرات في 94 مشاركات
(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(150, 100) 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
المشاركات : 1,468
المواضيع 351
الإنتساب : Apr 2016
السمعة :
334
الشكر: 3379
تم شكره 2456 مرات في 1124 مشاركات
(17-07-19, 08:49 PM)bakriano30@yahoo.com كتب : من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
يا أخى الاخ الحازمى موضوع كل شيئ وقال ضع اداة كذا وكذا وضع الكود فى الزر
يعنى كل شيئ واضح امام حضرتك فبدلا من هذا كنت حتى شكرته ولو بكلمة ..
أنت حتى وضعت لك المشروع هناك ولم تعيريه أى اهتمام .. فلا تجعل احتياجك للشيئ يُنسيك فعل الواجب والأصول
المشاركات : 137
المواضيع 2
الإنتساب : Dec 2017
السمعة :
40
الشكر: 45
تم شكره 384 مرات في 134 مشاركات
17-07-19, 11:50 PM
(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(150, 100) 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
بارك الله فيك
|