Public Shared Sub Main()
Dim webProxy_Interface As New WebProxy_Interface(New Uri("http://proxy.example.com"))
webProxy_Interface.Credentials = New NetworkCredential("microsoft", ".Net")
Console.WriteLine("The web proxy is : {0}", webProxy_Interface.GetProxy(New Uri("http://www.microsoft.com")))
'Determine whether the Web proxy can be bypassed for the site "http://www.microsoft.com".
console.writeline("For the Uri http://www.microsoft.com , the ")
If webProxy_Interface.IsBypassed(New Uri("http://www.microsoft.com")) Then
Console.WriteLine("webproxy is by passed")
Else
Console.WriteLine("webproxy is not bypassed")
End If
End Sub 'Main