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
|