How to use Proxies?

[memo421]

Hello,

Proxies are HTTP and socks. How can I use them to surf internet?

I know "iwebproxy " of .net but do not understand how to use them for this perpose.

Any guidance will be appriciated.

Thanks

[CrystalAnnoysMe]

Create a new form. Put a webbrowser object on it then use this code. Change the "SetupProxy" arguments as you need:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If SetupProxy(False) Then
            WebBrowser1.Navigate("http://www.yahoo.com/")
        End If
    End Sub

    Public Function SetupProxy(ByVal UseProxy As Boolean, Optional ByVal ProxyName As String = "", Optional ByVal ProxyPort As Integer = 0, Optional ByVal UserName As String = "", Optional ByVal UserPassword As String = "", Optional ByVal UserDomain As String = "") As Boolean
        ' Create our proxy settings
        If UseProxy = False Then
            Net.WebRequest.DefaultWebProxy = New Net.WebProxy
        Else
            If (ProxyName = "") Or (ProxyPort = 0) Then
                If UseProxy = True Then
                    MsgBox("Either the proxy name or port number was left blank but the option to use a proxy server is checked.  Please review your settings before updating!")
                End If
                SetupProxy = False
            Else
                Dim ProxyObject As New System.Net.WebProxy(ProxyName & ":" & ProxyPort, True)
                Dim cred As Net.NetworkCredential = New Net.NetworkCredential(UserName, UserPassword, UserDomain)
                ProxyObject.Credentials = cred
                Net.WebRequest.DefaultWebProxy = ProxyObject
                SetupProxy = True
            End If
        End If
    End Function
End Class

Just typed this up real quick so it needs testing but it should give you a good start. All web requests in your application should follow what is set here so you can have a form that lets them select "direct connect" (no proxy), use default system proxy, or enter their own.

For use system proxy you can pull whats in the registry with something like this:

    Private Function ImportSystemSettings() As String
        ' Get the IE proxy settings
        Dim myProxy As String = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyServer", "").ToString
        If myProxy = "" Then
            MsgBox("I could not find any proxy server information in the registry.  If a proxy server is required please manually enter the information.", MsgBoxStyle.OkOnly, "No Proxy Info Found")
            Return ""
        Else
            Return myProxy
        End If
    End Function

Which will get you ProxyName:PortNumber which you will split apart (based on the and use as you need.