تقييم الموضوع :
  • 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)سامي محمد كتب : طيب هذا البحث عن طريق التكست بكس

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل المشكلة فى الكود التالي - من مشاركة استاذنا القدير / عبدالله الدوسري new_programer 4 169 02-03-24, 07:36 PM
آخر رد: new_programer
  ماهو حل هذا الخطأ في الكود melad2002 7 264 25-02-24, 12:25 AM
آخر رد: justforit
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 194 20-02-24, 12:00 AM
آخر رد: Kamil
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  شرح عن الخطأ attempted to read or write Adel27213 3 384 05-01-24, 01:01 AM
آخر رد: HALIM ELEULMA
  [VB.NET] ما الخطأ فى هذا الكود - كود البحث المتعدد Ashraf Elafify 7 464 27-12-23, 10:50 PM
آخر رد: Ashraf Elafify
  [VB.NET] اريد تعديل في الكود عند طباعة DGV abu_hisham7 1 431 03-12-23, 02:40 AM
آخر رد: abu_hisham7
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 239 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  [كود] ما الخطأ فى الـ Functions المستخدم فى vb.net 2010 AhmedEissa 9 501 21-10-23, 11:44 PM
آخر رد: Ahmed5
  رجاء التعديل على الكود المرفق - كلاس لعرض كود المورد new_programer 4 357 13-10-23, 01:47 AM
آخر رد: new_programer

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


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