(17-07-19, 05:28 PM)bakriano30@yahoo.com كتب :

كود :

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

(17-07-19, 11:47 PM)سامي محمد كتب : السبب هو انك تركت خانة الـــ Url فارغة ..... قم بوضع رابط بها ، او استخدم هذا الكود في اول زر البحث

كود :

   WebBrowser1.Url = New System.Uri("https://www.google.com/")

(18-07-19, 02:20 AM)سامي محمد كتب : هذا اختصار للكود السابق

 أضف زر و ادات بكتشربكس فقط

وضع هذا الكود في الزر

كود :

 Dim W As String = New WebClient().DownloadString("https://www.google.com/search?tbm=isch&q=" & TextBox1.Text)
        PictureBox1.LoadAsync(Regex.Match(W, """(https://encrypted-tbn0.gstatic.com/images[^""]+?)""", RegexOptions.IgnoreCase).Groups(1).Value)

وان كان هناك اي شي غير مفهوم

(18-07-19, 02:29 AM)سامي محمد كتب : طيب هذا البحث عن طريق التكست بكس

اكتب اي شي في التكست وانقر على زر البحث سيعرض اول صورة في اداة البكتشربكس