Lire les paramètres internet du navigateur par défaut

Version imprimable

20/01/2014, 15h15
noftal

Lire les paramètres internet du navigateur par défaut

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)
20/01/2014, 22h07
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?
20/01/2014, 22h42
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

Citation:

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.
21/01/2014, 00h22
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:

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

Est-ce que cette ligne ne veut pas dire justement que la fenêtre de login va s'ouvrir ?
21/01/2014, 01h48
tomlev
Citation:

Envoyé par 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 ?

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:

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

Envoyé par noftal

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:

//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...

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

Code:

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:

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:

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 ?

Citation:

Envoyé par noftal

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

Code:

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 ?

Oui c'est plutôt ça... définir le proxy pour une WebRequest qui n'a rien à voir avec ton WebClient, ça ne servirait pas à grand chose ;)

22/01/2014, 22h29
noftal

OK je teste demain:D
24/01/2014, 11h01
noftal

Ok. ça marche !
Maintenant, pour perfectionner le truc, je souhaiterais savoir s'il est possible de remplacer

Code:

proxy.Credentials = New NetworkCredential(sLogin, sPassword)

par la boite de dialogue windows qui apparaît toute seule invitant les utilisateurs derrière un proxy nécessitant authentification à rentrer leur login et mot de passe (et à cocher éventuellement l'option visant à mémoriser ces infos dans les 2 champs pour les activations ultérieures ?
J'insiste sur le fait que cette BdD est une boite Windows. Son apparition est provoquée par le fait d'avoir paramétré un proxy nécessitant authentification.
Utiliser cette boite sans avoir à la reprogrammer présente l'avantage de ne pas doublonner le stockage du login et mot de passe et de s'appuyer sur la sécurité Windows pour ce stockage.
24/01/2014, 11h36
tomlev

Citation:

Envoyé par noftal

Ok. ça marche !
Maintenant, pour perfectionner le truc, je souhaiterais savoir s'il est possible de remplacer

Code:

proxy.Credentials = New NetworkCredential(sLogin, sPassword)

par la boite de dialogue windows qui apparaît toute seule invitant les utilisateurs derrière un proxy nécessitant authentification à rentrer leur login et mot de passe (et à cocher éventuellement l'option visant à mémoriser ces infos dans les 2 champs pour les activations ultérieures ?
J'insiste sur le fait que cette BdD est une boite Windows. Son apparition est provoquée par le fait d'avoir paramétré un proxy nécessitant authentification.
Utiliser cette boite sans avoir à la reprogrammer présente l'avantage de ne pas doublonner le stockage du login et mot de passe et de s'appuyer sur la sécurité Windows pour ce stockage.

Là pour le coup je sais pas... c'est peut-être possible, mais je sais pas comment
24/01/2014, 13h03
noftal

En fait, il ne s'agit pas d'une boite Windows. La boîte est propre à chaque navigateur.
Mais comme IE est encore quasiment toujours configuré, surtout s'il y a proxy, l'idée est au moins d'aller utiliser ses fonctions qui sont sûrement très abouties, quitte à dire à l'utilisateur d'aller renseigner les "options internet" de IE pour pouvoir utiliser correctement l'appli.