Discussion :

[prologic]

Bonjour,

Je vous demande une nouvelle fois un coup de main mais pour une application web cette fois.

J'utilise le code suivant pour récupérer le contenu d'une page. En local via une page html enregistrer sur mon PC ca marche sans problème. Le soucis vient de l'autentification sur le proxy, sachant que je peux sans problème accéder à la dite page via mon navigateur (après identification proxy).

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
        Dim url As String = "..."
        Dim ChaineJson As String
 
 
        ' Création de la requête
        Dim objWebRequest As System.Net.WebRequest = HttpWebRequest.Create(url)
        objWebRequest.Proxy = HttpWebRequest.DefaultWebProxy
        objWebRequest.Proxy.Credentials = CredentialCache.DefaultCredentials
 
        ' 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
        Try
            objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
            ChaineJson = objStreamReader.ReadToEnd()
        Finally
            If Not objWebResponse Is Nothing Then objWebResponse.Close()
        End Try

Est-ce que quelqu'un à une idée pour utiliser l'autentification par défaut, ou à la rigueur via un formulaire ?

Merci d'avance

[prologic]

Apparamment on pourrait passer par un Webbrowser, ca demande les infos proxy.

Par contre, quand j'appelle ma page, il me demande d'enregistrer le fichier .txt sur lequel il pointe...

A tester...

[tomlev]

bah il faut spécifier le user/password pour le proxy...

Remplace ça :

Code :

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

objWebRequest.Proxy.Credentials = CredentialCache.DefaultCredentials

Par ça :

Code :

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

objWebRequest.Proxy.Credentials = new NetworkCredential(userName, password)

[prologic]

Ca marche, merci. Par contre j'ai deux soucis :

1) Comment récupérer un login/pass proxy déjà configurer, de la même manière que ce que demande le webbroser quand je vais sur la dite page ?

2) J'ai une erreur 403.

Sachant que j'ai testé le code sans le proxy et que ca fonctionne.

Note : C'est quand même étrange qu'on ne trouve presque rien sur internet concernant ces erreurs.

[tomlev]

1) Comment récupérer un login/pass proxy déjà configurer, de la même manière que ce que demande le webbroser quand je vais sur la dite page ?

C'est pas possible, du moins pas à ma connaissance. J'ai eu le problème récemment dans l'appli que je développe au boulot, la solution a été de demander manuellement à l'utilisateur.

2) J'ai une erreur 403.

Sachant que j'ai testé le code sans le proxy et que ca fonctionne.

Bah ça veut dire que l'utilisateur n'est pas autorisé à accéder à la page ; là ça dépend du site que tu appelles, donc je peux pas trop t'aider...

Note : C'est quand même étrange qu'on ne trouve presque rien sur internet concernant ces erreurs.

Ah ? J'ai jamais eu de problème pour trouver des infos à ce sujet... qu'est-ce qu'il te faut de plus que la signification de ces codes ?
http://en.wikipedia.org/wiki/List_of_HTTP_status_codes

[prologic]

Je ne parle pas spécifiquement des erreurs HTTP, mais plutôt des erreurs de code vb.

Ca fait quelques jours que je cherche pour récupérer les login proxy, et beaucoup de site propose des codes, ou morceaux de codes qui sont sensé fonctionné. J'ai même trouvé des codes obsolètes depuis plusieurs années qui sont postés comme étant fonctionnels.

Finalement je n'étais pas si loin de la solution...

[prologic]

Code final.

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
    Function LoadJSon(ByVal url As String) As String
        ' Création de la requête
        Debug.Print(url)
        Dim objWebRequest As System.Net.WebRequest = HttpWebRequest.Create(url)
        objWebRequest.Proxy = HttpWebRequest.DefaultWebProxy
        objWebRequest.Proxy.Credentials = CredentialCache.DefaultCredentials
        objWebRequest.Proxy.Credentials = New NetworkCredential("user", "password")
 
        ' Envoi de la requête au serveur
        Dim objWebResponse As System.Net.WebResponse
        Try
            objWebResponse = objWebRequest.GetResponse()
        Catch ex As Exception
            MsgBox("Le programme est bloqué par un serveur proxy (Erreur 407)." & Chr(10) & "Il n'y a pas de solution pour le moment autre que désactiver le proxy.", vbExclamation)
            End
        End Try
 
        ' Stream pour récupérer le résultat
        Dim objStreamReader As System.IO.StreamReader = Nothing
        Try
            objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
            Return objStreamReader.ReadToEnd()
        Catch ex As Exception
            MsgBox("Le programme est bloqué par le serveur ciblé (Erreur 403).", vbExclamation)
        Finally
            If Not objWebResponse Is Nothing Then objWebResponse.Close()
        End Try
        Return 0
    End Function

[tomlev]

C'est pas terrible d'afficher des messges comme "Le programme est bloqué par un serveur proxy (Erreur 407)." sans même vérifier quelle est l'erreur... Dans tes tests tu as rencontré une erreur 407, mais ça pourrait très bien être autre chose, et donc le message indiquera une fausse erreur...

[prologic]

Effectivement... n'ayant rencontré que cette erreur je ne me suis pas posé la question, sachant qu'on peut très bien avoir une 404 le jour où la page demandé n'existe pas/plus.

Du coup j'ai remplace par

Code :

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

MsgBox(ex.Message, vbExclamation)