PASSER UN PROXY AVEC VB.NET

Imports System.IO
Imports System.Net

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
                  
'on definit une nouvelle requete      
        Dim myWebRequest As WebRequest = WebRequest.Create("http://www.correzeweb.com")
        Dim myProxy As New WebProxy'definition du proxy

     'on obtient le proxy par defaut
        myProxy = CType(myWebRequest.Proxy, WebProxy)

'identification pour le proxy
        myProxy.Credentials = New NetworkCredential("NomUtilisaterur", "MotDePasse", "NomDomaine")

        myWebRequest.Proxy = myProxy

        Try

'on capture la reponse
            Dim myWebResponse As WebResponse = myWebRequest.GetResponse()

            ' le reponse est recuperé dans un stream
            Dim streamResponse As Stream = myWebResponse.GetResponseStream()

            Dim streamRead As New StreamReader(streamResponse)
            Dim MystrW As New StreamWriter("C:\test.txt")'on enregistre le stream
            MystrW.Write(streamRead.ReadToEnd)

            ' fermeture des streams.
            streamResponse.Close()
            streamRead.Close()
            MystrW.Close()
            myWebResponse.Close()

            MsgBox("Fini")

        Catch ex As UriFormatException
            MsgBox("Erreur")
        End Try

    End Sub