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