Passer un proxy avec vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 911 fois - Téléchargée 35 fois

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

Ajouter un commentaire

Commentaires

Messages postés
589
Date d'inscription
jeudi 2 octobre 2003
Statut
Membre
Dernière intervention
29 avril 2008
2
il est vrai que ce code avait été écrit pour 2003
Messages postés
25
Date d'inscription
dimanche 7 novembre 2004
Statut
Membre
Dernière intervention
19 novembre 2013
2
Il y a une erreur de conversion d'objet si on utilise le .NET Framework 2.0
Voici la solution :

Dim myWebRequest As HttpWebRequest
myWebRequest = CType(WebRequest.Create("http://www.titi.int/test.xml"), HttpWebRequest)
myWebRequest.Proxy = New System.Net.WebProxy("proxy:port", True)
myWebRequest.Proxy.Credentials = New NetworkCredential("username", "password", "domain")

' 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.XML") 'on enregistre le stream
MystrW.Write(streamRead.ReadToEnd)

' fermeture des streams.
streamResponse.Close()
streamRead.Close()
MystrW.Close()
myWebResponse.Close()
Messages postés
40
Date d'inscription
mardi 9 novembre 2004
Statut
Membre
Dernière intervention
19 janvier 2009

sincérement ...

J'y comprends rien !! :)
Messages postés
42
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
4 novembre 2008

Euh...ben....je peuw vous dire que à la RATP, ben ça marche pas !?!

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.