Passer un proxy avec vb.net

Commenter

Contenu du snippet

ce code sert a passer un proxy lorsque l'on veut se connecter a internet pour envoyer des mails par vb.net

Source / Exemple : 


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

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_chris81)