WebRequest.Proxy Property gets or sets the network proxy to use to access this Internet resource.
Imports System.IO
Imports System.Net
Imports System.Text
public class MainClass
Shared Sub Main()
Dim myWebRequest As WebRequest = WebRequest.Create("http://www.domain.com")
Dim myProxy As New WebProxy()
myProxy = CType(myWebRequest.Proxy, WebProxy)
Console.WriteLine(myProxy.Address)
Try
Dim proxyAddress As String = "yourProxy.com"
If proxyAddress.Length = 0 Then
myWebRequest.Proxy = myProxy
Else
Dim username As String = "asdf"
Dim password As String = "asdf"
Dim newUri As New Uri(proxyAddress)
myProxy.Address = newUri
myProxy.Credentials = New NetworkCredential(username, password)
myWebRequest.Proxy = myProxy
End If
Console.WriteLine(myProxy.Address)
Dim myWebResponse As WebResponse = myWebRequest.GetResponse()
Dim streamResponse As Stream = myWebResponse.GetResponseStream()
Dim streamRead As New StreamReader(streamResponse)
Dim readBuff(256) As [Char]
Dim count As Integer = streamRead.Read(readBuff, 0, 256)
Console.WriteLine(ControlChars.Cr + "The contents of the Html pages are :")
While count > 0
Dim outputData As New [String](readBuff, 0, count)
Console.Write(outputData)
count = streamRead.Read(readBuff, 0, 256)
End While
streamResponse.Close()
streamRead.Close()
myWebResponse.Close()
Console.Read()
Catch e As UriFormatException
Console.WriteLine(ControlChars.Cr + "{0}", e.Message)
End Try
End Sub
End Class
Related examples in the same category