تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اين الخطأ في الكود
#1
كود :
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, 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


الملفات المرفقة صورة/صور
       
الرد
تم الشكر بواسطة:
#2
السبب هو انك تركت خانة الـــ Url فارغة ..... قم بوضع رابط بها ، او استخدم هذا الكود في اول زر البحث



كود :
   WebBrowser1.Url = New System.Uri("https://www.google.com/")
الرد
تم الشكر بواسطة: حريف برمجة , ابراهيم ايبو
#3
(17-07-19, 11:47 PM)سامي محمد كتب : السبب هو انك تركت خانة الـــ Url فارغة ..... قم بوضع رابط بها ، او استخدم هذا الكود في اول زر البحث



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

شكرا اخي بس ممكن حضرتك تعدل ع الكود علشان افهم
الرد
تم الشكر بواسطة:
#4
هذا اختصار للكود السابق

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

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


كود :
 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)

وان كان هناك اي شي غير مفهوم
الرد
#5
(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)

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

ولكن اريد البحث من خلال تكست بوكس اخي الفاضل وشاكر لك اهتمامك
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
طيب هذا البحث عن طريق التكست بكس

اكتب اي شي في التكست وانقر على زر البحث سيعرض اول صورة في اداة البكتشربكس
الرد
#7
(18-07-19, 02:29 AM)سامي محمد كتب : طيب هذا البحث عن طريق التكست بكس

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

شكرا لك اخي الفاضل جزاك الله خير اتمني ان تطلع علي اخر موضوع انشأته منذ دقائق لعلك تفدني كالمعتاد اخي
الرد
تم الشكر بواسطة: ابراهيم ايبو



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم