17-07-19, 05:28 PM
(آخر تعديل لهذه المشاركة : 18-07-19, 01:50 AM {2} بواسطة Amir_Alzubidy.
تعديل السبب: تعديل العنوان
)
كود :
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