Discussion :

[noftal]

Bonjour,

J'ai remarqué que, si j'utilise l'instruction Process.start(mon_URL) pour accéder à internet, le navigateur web ainsi ouvert prend bien en compte les paramètres Proxy qui se trouvent dans "Options Internet"... ce qui est normal pour ne pas dire évident.

N'y a-t-il pas moyen de faire en sorte que des instructions du type WebClient.UploadValues récupèrent automatiquement les options internet de l'ordinateur sur lequel elles sont lancées ?

Cette question est une autre façon d'aborder la problématique soulevée par ce topic qui n'a pas eu beaucoup de succès jusqu'ici.

C'est clair que ce serait beaucoup plus simple si mon appli pouvait hériter des paramètres du navigateur web plutôt que de demander à l'utilisateur de les re-renseigner pour l'appli spécifiquement, d'autant que cette dernière solution 1°/ suppose de reprogrammer le formulaire de "Options Internet" sur le proxy (config manuelle ou automatique avec fichier PAC selon l'utilisateur) et que 2°/ je n'ai pas compris comment gérer le cas de la config automatique par fichier PAC en VB.NET)

[Sankasssss]

Bonsoir,

avec les termes : read Proxy c#
dans google on trouve pas mal de résultats. Par exemple cette discussion qui nous propose GetSystemWebProxy. Avais-tu déjà exploré cette piste?

[tomlev]

Il n'y a rien de spécial à faire, par défaut ça utilise le proxy défini dans IE.

http://msdn.microsoft.com/fr-fr/library/czdt10d3.aspx

Si aucun proxy n'est spécifié dans un fichier de configuration et la propriété Proxy ne l'est pas non plus, la classe HttpWebRequest choisit les paramètres proxy hérités de Microsoft Internet Explorer sur l'ordinateur local.

Seul cas particulier : si le proxy requiert une authentification. Dans ce cas, c'est à toi de fournir les credentials, car ils ne sont pas récupérés automatiquement depuis IE.

[noftal]

Ben justement, le pb est que j'ai un proxy au boulot qui nécessite authentification pour sortir de l'intranet.
Les credentials ne sont pourtant pas stockés sur IE pour le coup. C'est le proxy qui recquiert une authentification. Il n'y a donc pas moyen que la fenêtre de login apparaisse spontanément en temps que de besoin comme pour IE ?

J'en conclus que la piste de Sankassss ne marche que pour un proxy sans authentification ??

Pourtant, dans son lien, il y a cette ligne :

Code :

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

  //Request.Proxy.Credentials = CredentialCache.DefaultCredentials;

Est-ce que cette ligne ne veut pas dire justement que la fenêtre de login va s'ouvrir ?

[tomlev]

Ben justement, le pb est que j'ai un proxy au boulot qui nécessite authentification pour sortir de l'intranet.
Les credentials ne sont pourtant pas stockés sur IE pour le coup. C'est le proxy qui recquiert une authentification. Il n'y a donc pas moyen que la fenêtre de login apparaisse spontanément en temps que de besoin comme pour IE ?

Pas vraiment (en tous cas pas à ma connaissance). Tu peux gérer ça en interceptant une erreur HTTP 407 (ProxyAuthenticationRequired), et afficher un dialogue pour demander les credentials à l'utilisateur. Quand l'utilisateur a saisi les credentials, tu peux retenter la requête en définissant le proxy comme ça :

Code :

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

1
2
3
Dim proxy = WebRequest.GetSystemWebProxy()
proxy.Credentials = new NetworkCredential(user, password)
request.Proxy = proxy

J'en conclus que la piste de Sankassss ne marche que pour un proxy sans authentification ??

Pourtant, dans son lien, il y a cette ligne :

Code :

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

  //Request.Proxy.Credentials = CredentialCache.DefaultCredentials;

Est-ce que cette ligne ne veut pas dire justement que la fenêtre de login va s'ouvrir ?

A priori ça ne fonctionne qu'avec l'authentification NTLM, Negotiate ou Kerberos (d'après la doc). Donc si ton proxy utilise ce mode d'authentification, ça marche peut-être, mais si c'est du Basic il faut faire autrement...

[noftal]

tomlev, j'ai essayé d'appliquer ta suggestion. Ce serait quelque chose comme cela ?

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
    Private Sub test()
        Dim oWebClient As New WebClient
 
        Dim sbParameter As New StringBuilder
        With sbParameter
            .Append("form_value_array%5B1%5D%5Belement_id%5D=cfg-element-4-25&")
            .Append("form_value_array%5B1%5D%5Belement_value%5D=testProxy&")
            .Append("form_value_array%5B1%5D%5Belementlabel_id%5D=cfg-element-4-25-label&")
            .Append("form_value_array%5B1%5D%5Belementlabel_value%5D=Client&")
            .Append("form_value_array%5B2%5D%5Belement_id%5D=cfg-element-4-27&")
            .Append("form_value_array%5B2%5D%5Belement_value%5D=raoul@gmail.com&")
            .Append("form_value_array%5B2%5D%5Belementlabel_id%5D=cfg-element-4-27-label&")
            .Append("form_value_array%5B2%5D%5Belementlabel_value%5D=ClientMail&")
        End With
 
        Dim bytArguments As Byte() = Encoding.Default.GetBytes(sbParameter.ToString)
        Dim bytRetData As Byte()
        Dim stReturn As String
 
        oWebClient.Headers.Add("Content-Type", "application/x-www-form-urlencoded")
 
        Try
            bytRetData = oWebClient.UploadData(sURL, "POST", bytArguments)
            stReturn = Encoding.Default.GetString(bytRetData)
 
        Catch ex As WebException
            If ex.Message.Contains("407") Then
                Dim proxy = WebRequest.GetSystemWebProxy()
                Dim request As HttpWebRequest
                request = HttpWebRequest.Create(sURL)
                proxy.Credentials = New NetworkCredential(sLogin, sPassword)
                request.Proxy = proxy
                bytRetData = oWebClient.UploadData(sURL, "POST", bytArguments)
                stReturn = Encoding.Default.GetString(bytRetData)
            End If
        End Try
 
    End Sub
End Class

Dans cet exemple, il s'agit d'aller remplir un formulaire web par la méthode POST.
Cet exemple marche très bien sans proxy. Je peux le tester chez moi où je n'ai pas de proxy.
Pour le tester avec proxy, il faut que je le fasse au boulot où je suis derrière un proxy avec authentification pour aller sur le web. Mais au boulot, je n'ai pas accès à mon environnement de développement donc s'il faut que je tatonne pour que ça marche ça va prendre du temps (navette à faire entre mon boulot et chez moi).
Donc si tu peux me dire ce que tu penses de ce code, cela m'aidera à dégrossir.

Mes doutes sur ce code concernent la ligne

Code :

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

                request = HttpWebRequest.Create(sURL)

Pour le reste, j'ai bien à l'esprit que la répétition des 2 dernières lignes sera à éviter mais c'est juste pour voir...


EDIT : à la réflexion j'écrirais plutôt cela pour le catch :

Code :

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

1
2
3
4
5
6
7
8
9
10
        Catch ex As WebException
            If ex.Message.Contains("407") Then
 
                Dim proxy = WebRequest.GetSystemWebProxy()
                proxy.Credentials = New NetworkCredential(sLogin, sPassword)
                oWebClient.Proxy = proxy
                bytRetData = oWebClient.UploadData(sURL, "POST", bytArguments)
                stReturn = Encoding.Default.GetString(bytRetData)
            End If
        End Try

Qu'en penses-tu ?