[mrfenix93]

كود :

Dim utF8Encoding As UTF8Encoding = New UTF8Encoding()
Dim httpWebRequest1 As HttpWebRequest = CType(WebRequest.Create("www.example.com"), HttpWebRequest)
Dim httpWebRequest2 As HttpWebRequest = httpWebRequest1
httpWebRequest2.Method = "GET"
httpWebRequest2.Proxy = CType(Nothing, IWebProxy)
httpWebRequest2.UserAgent = "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/100.0.4896.127 Safari/537.36"
Dim response As HttpWebResponse = CType(httpWebRequest1.GetResponse(), HttpWebResponse)
Dim streamReader As StreamReader = New StreamReader(response.GetResponseStream())
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

'Get Data
Dim Full As String = streamReader.ReadToEnd()