Discussion :

[rikemSen]

Bonjour,
Dans le cadre de la création de 5 "projets techniques en informatiques" je suis en train de developper une application qui récupère un flux xml pour ensuite le traiter.

Developpant la majeure partie du temps au lycée, j'ai du passer les parametres de connexion du proxy... Sauf que, quand je veux l'utiliser chez moi, forcement ça ne marche pas car il n'y a pas de proxy.

Ma question est assez simple mais j'ai eu beau chercher, ai pas trouvé

Comment detecter si l'on est derrière un proxy?

Merci d'avoir lu (:

[rikemSen]

J'apporte des précisions.

J'ai un bout de code qui me permet de me connecter à un flux xml qui nécessite une authentification et je dois passer par le proxy. Tout marche parfaitement quand je suis au lycée et que je passe par le proxy.
Depuis chez moi, vu qu'il n'y en a pas, a marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        Dim url_xml As Uri
        url_xml = New Uri("https://mail.google.com/mail/feed/atom")
        Dim objWebRequest As System.Net.WebRequest
        objWebRequest = System.Net.HttpWebRequest.Create(url_xml)
        Dim pr As New System.Net.WebProxy("10.0.0.4", 8080)
        Dim cr As New System.Net.NetworkCredential(compte_proxy, pass_proxy, "LCS")
        pr.Credentials = cr
        objWebRequest.Proxy = pr
        objWebRequest.Credentials = New System.Net.NetworkCredential(compte, pass)
        ' Envoi de la requête au serveur
        Dim objWebResponse As System.Net.WebResponse = objWebRequest.GetResponse()
        ' Stream pour récupérer le résultat
        Dim objStreamReader As System.IO.StreamReader = Nothing

en Gros j'aimerais pouvoir faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
If ilyaunproxy = True Then
objWebRequest.Proxy = pr
End If

Merci de m'aider.

[Nathanael Marchand]

Ouvre une socket vers le proxy sur le port 8080 et vois si ca repond.

[rikemSen]

Merci, ça fonctionne même si c'est pas vraiment ça ^^

Je poste au cas ou quelqu'un aimerait la solution pour un proxy spécifique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Dim aProxy As Boolean = False
        Dim _socket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim pr As New System.Net.WebProxy("10.0.0.4", 8080)
        Try
            _socket.Connect("10.0.0.4", 8080)
            If _socket.Connected = True Then
                Dim cr As New System.Net.NetworkCredential(proxy_compte, proxy_pass, "LCS")
                pr.Credentials = cr
                objWebRequest.Proxy = pr 'on passe notre requete web dans par le proxy
            End If
        Catch ex As Exceptio
            's'il n'y a pas de proxy, une erreur est reçu dans EX.
            'On ne traite rien car aProxy = false donc, evenement defaut
            'connexion normale.
        End Try

Là, je teste sur un proxy donné. (ex: 10.0.0.4, 8080)
Mais si je ne sais pas si je suis derrière un proxy, comment detecter s'il y en a un?

(en tout cas, ça m'aide déjà bcp pour le moment ça!)

[Nathanael Marchand]

Un proxy c'est censé etre transparent donc je pense que c'est balaise

[rikemSen]

Ah. Bah j'attends encore un peu voir si qqn a une idée et je mets en résolu. Merci bcp PtiMaverick pour l'aide (: