Discussion :

[cha23]

Bonjour,
voila je cherche a parser un site multi langue mais qd je lance le programme il me recupere les donner qu'en francais alors que je lui envoie l 'url du site en anglais
dans le site il faut clicker sur l'onglet "anglais" pour qu'il le garde en memoire quand on retourne sur le site mais j'arrive pas a le faire via vb
j'utilise htmlagilitypack pour parser le site
mon code de base pour lire l'url:

Code :

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

1
2
3
dim url as string = "url"
dim web as new htmlweb
dim doc = web.load(url)

merci d'avance

[tomlev]

A priori il doit y avoir un cookie qui indique la langue. Regarde dans ton navigateur les cookies associés à ce site, et quand tu as trouvé celui qui correspond à la langue, envoie le avec ta requête (par contre je crois pas que HtmlWeb permette de le faire, utilise plutôt HttpWebRequest)

[cha23]

merci pour ta reponse tomlev je vais chercher ca
par contre comment on fait pour envoyer le cookie avec la requete?

[tomlev]

Tu peux faire quelque chose comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
dim url as string = "url"
dim web as new htmlweb
Dim cookies = New CookieContainer()
cookies.Add(new Cookie("nom", "valeur"))
web.PreRequest = Function(req) _
        req.CookieContainer = cookies
        Return True
    End Sub
dim doc = web.load(url)

(pas testé)

[cha23]

ca fait pas mal d 'erreur dont une c'est le end sub
du coup j'ai fait

Code :

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

1
2
3
4
 If web.PreRequest = Function(req) _
            req.CookieContainer Is cookies Then
            Return True
        End If

il me dit que l'instruction 'return' dans un sub ou un set ne peut pas retourner de valeur

et pour le nom "nom" et "valeur" c'est le nom du cookie et le lien dans mon ordi?

[tomlev]

ca fait pas mal d 'erreur dont une c'est le end sub
du coup j'ai fait

Ouais, j'ai un peu de mal avec la syntaxe VB

Code :

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

1
2
3
4
5
6
7
8
9
dim url as string = "url"
dim web as new htmlweb
Dim cookies = New CookieContainer()
cookies.Add(new Cookie("nom", "valeur"))
web.PreRequest = Function(req)
        req.CookieContainer = cookies
        Return True
    End Function
dim doc = web.load(url)

et pour le nom "nom" et "valeur" c'est le nom du cookie et le lien dans mon ordi?

c'est le nom du cookie et sa valeur... je sais pas ce que tu appelles le "lien dans ton ordi"

[cha23]

en fait je pensais que j avais le cookies en question mais c t pas le cas
en fait dans mon Windows 7 je n'ai pas accès a mes cookies même si j affiche les fichiers caché

[tomlev]

comment je connais en fait la valeur du cookie?

Bah je te l'ai dit, tu regardes dans ton navigateur (dans Firefox : clic sur le bouton à gauche de la barre d'adresse, "Plus d'informations", "Voir les cookies")

[cha23]

c'est bon j'ai trouvé par contre ca me fait toujours l'erreur

Code :

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

req.CookieContainer = cookies

Erreur 1 L'opérateur '=' n'est pas défini pour les types 'System.Net.CookieContainer' et 'System.Net.CookieContainer'.

[tomlev]

c'est bon j'ai trouvé par contre ca me fait toujours l'erreur

Code :

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

req.CookieContainer = cookies

Erreur 1 L'opérateur '=' n'est pas défini pour les types 'System.Net.CookieContainer' et 'System.Net.CookieContainer'.

Euh... bizarre, chez moi ça compile. Quelle version de Visual Studio utilises-tu ? La syntaxe que j'ai utilisée ne fonctionne qu'à partir de VB 10 (VS 2010 / .NET 4)

[cha23]

c'est bon en fait j'avais mal copié

maintenant ca me dit quand je compile et ce avec n 'importe quel cookie du site

Le paramètre '{0}' ne peut pas être une chaîne vide.
Nom du paramètre : cookie.Domain

Code :

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

cookies.Add(New Cookie("mvthistory", "48.0.0.i1%3A84.0.0.i2%3A92.6.0.i1%3A98.6.4%3A132.0.0%3A207.0.0%3A210.0.0.i1%3A222.0.0.i1%3A225.0.0.i1%3A230.1.0.i3%3A239.1.0.i2%3A242.0.1%3A250.2.0.i2%3A258.2.0%3A260.1.0.i4%3A303.0.0%3A304.1.0.i1%7CHCOM_US"))

ou alors j'ai rien comprit a la "valeur"

[tomlev]

Il faut ajouter le chemin et le domaine dans le constructeur de Cookie

Code :

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

1
2
3
4
5
6
Dim name As String = "mvthistory"
Dim value As String = "48.0.0.i1%3A84.0.0.i2%3A92.6.0.i1%3A98.6.4%3A132.0.0%3A207.0.0%3A210.0.0.i1%3A222.0.0.i1%3A225.0.0.i1%3A230.1.0.i3%3A239.1.0.i2%3A242.0.1%3A250.2.0.i2%3A258.2.0%3A260.1.0.i4%3A303.0.0%3A304.1.0.i1%7CHCOM_US"
Dim path = "/"
Dim domain = "www.lesite.com"
 
cookies.Add(New Cookie(name, value, path, domain))

[cha23]

bon bah tout marche sauf que ca reste en francais bien qu'il lit le bon cookie
surement que ca doit pas marcher avec htmlweb

[tomlev]

bon bah tout marche sauf que ca reste en francais bien qu'il lit le bon cookie

Tu es sûr que c'est bien ce cookie qui indique la langue ?
Tu peux donner le lien de la page que tu essaies de lire ?

[cha23]

edit: apres different essai d'un coup ca a marché je ne sais pas pourquoi

merci pour ton aide tomlev