23-06-19, 08:58 PM
24-06-19, 12:16 AM
كود :
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
24-06-19, 04:50 PM
جزاك الله على هادا الكود الجميل أخي سامي
نجحت الفكرة
و سأجتهد لفهم Regex
شكرا شكرا شكرا
نجحت الفكرة
و سأجتهد لفهم Regex
شكرا شكرا شكرا
17-07-19, 07:35 PM
أخي سامي
شكرا على هذا الكود،
اسمح لي بتعديله وتحسينه ليكون أكثر وضوحا وسهولة،
اعتمدت أسلوبك في تسمية المتغيرات لينسجم مع كود مشاركتك في الموضوع
جلب صورة واحدة من نتيجة البحث في Google Images
تحتاج للأدوات التالية:
TextBox1
Button1
PictureBox1
وهذا الكود داخل Button1 ثم اكتب ما تريد البحث عنه داخل الأداة TextBox1
جلب جميع الصور التي في الصفحة الأولى من نتيجة البحث في Google Images
تحتاج للأدوات التالية:
TextBox1
Button1
FlowLayoutPanel1
وهذا الكود داخل Button1 ثم اكتب ما تريد البحث عنه داخل الأداة TextBox1
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
شكرا على هذا الكود،
اسمح لي بتعديله وتحسينه ليكون أكثر وضوحا وسهولة،
اعتمدت أسلوبك في تسمية المتغيرات لينسجم مع كود مشاركتك في الموضوع
جلب صورة واحدة من نتيجة البحث في 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
17-07-19, 08:43 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
الله يبارك بعمر أخى الكريم الحازمى ماشاء الله عليك...
لو سمحت اذا أحببت مثلا اذا ضغطت على الصورة ينقلنى الى صفحتها فى المتصفح ماذا افعل أو
كيف يتم هذا ؟
17-07-19, 08:49 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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
17-07-19, 09:05 PM
(17-07-19, 08:49 PM)bakriano30@yahoo.com كتب : [ -> ]من فضلك انا لم تنجح معي ممكن مشروع صغير حتي افهم ارجوك
يا أخى الاخ الحازمى موضوع كل شيئ وقال ضع اداة كذا وكذا وضع الكود فى الزر
يعنى كل شيئ واضح امام حضرتك فبدلا من هذا كنت حتى شكرته ولو بكلمة ..
أنت حتى وضعت لك المشروع هناك ولم تعيريه أى اهتمام .. فلا تجعل احتياجك للشيئ يُنسيك فعل الواجب والأصول
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
أخي سامي
إذا كان لديك أي استفسار في هذين الكودين فأخبرني
بارك الله فيك