Detecter un proxy

Version imprimable

18/05/2010, 12h04
rikemSen

Detecter un proxy

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. :roll:

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

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

Merci d'avoir lu (:

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:

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:

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

Merci de m'aider.

19/05/2010, 10h20
Nathanael Marchand

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

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:

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!)

19/05/2010, 15h21
Nathanael Marchand

Un proxy c'est censé etre transparent donc je pense que c'est balaise :aie:
19/05/2010, 17h19
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 (:
19/05/2010, 23h31
Nathanael Marchand

Peut-être une piste qui viens de me traverser l'esprit.
Si il y'a un proxy de configuré il doit être spécifié dans les options de connexion d'internet explorer. Reste à savoir comment y accèder via .net (peut-être la base de registres).
20/05/2010, 10h26
rikemSen

Effectivement, bonne idée. Je vais voir ça. J'ai vu plusieurs topic ou des mecs demandaient comment récuperer ses infos, j'ai pas fait le rapprochement.

Je te tiens au courant
02/03/2011, 13h06
lovizol

Bonjour,

J'ai trouvé la clef qui stocke l'adresse du serveur Proxy :
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyServer