Adresse web introuvable dans vb

**Anduriel** · 07/11/2009, 15h27

Bonjour,

J'essai d'ouvrir une page web mais sans succès, après maintes et maintes reprises. Je sais que le lien existe (avec les parenthèses). J'ai fait un Console.WriteLine et il affiche bien un lien (mais la dernière parenthèse n'est pas prise en compte, c'est peut être là l'erreur).

Code :

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

objWebRequest = System.Net.HttpWebRequest.Create("http://monsite.com/Marebrique_(tip)")

Si je colle cette adresse dans le navigateur, ça fonctionne, mais impossible à travers vb ...

Une idée?
Merci

**tomlev** · 07/11/2009, 19h51

Si tu nous donnais la vraie adresse, ce serait plus facile de t'aider...
A priori les parenthèses ne devraient pas poser de problème

**Anduriel** · 08/11/2009, 12h36

Oui, voilà:

http://fr.wikipedia.org/wiki/Saison_" & Saison & "_de_" & SerieR & "_(série_télévisée)

->

http://fr.wikipedia.org/wiki/Saison_...érie_télévisée)

(Même ici la parenthèse n'est pas prise en compte :s)

Merci

**tomlev** · 08/11/2009, 18h14

bizarre... chez moi ce code là fonctionne :

Code :

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

1
2
3
4
Dim url As String = "http://fr.wikipedia.org/wiki/Saison_6_de_Médium_(série_télévisée)"
Dim req = DirectCast(WebRequest.Create(url), HttpWebRequest)
Dim resp = DirectCast(req.GetResponse(), HttpWebResponse)
Console.WriteLine(resp.StatusCode)

Dans ton code, je suppose que l'URL n'est pas en dur ? elle vient d'où ?

**Anduriel** · 08/11/2009, 18h39

Merci, j'ai testé ton code sur un autre projet et il fonctionne très bien.
Tant qu'à faire, j'ai essayé mon code sur ce même form et il fonctionne aussi très bien.

Moi j'avais:

Code :

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

1
2
3
4
5
6
7
8
Dim objWebResponse As System.Net.WebResponse
Dim objWebRequest As System.Net.WebRequest
Dim objStreamReader As System.IO.StreamReader = Nothing
objWebRequest = System.Net.HttpWebRequest.Create("http://fr.wikipedia.org/wiki/Saison_6_de_Mdium_(srie_tlvise)")
objWebResponse = objWebRequest.GetResponse()
objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
Text = objStreamReader.ReadToEnd()
TextBox1.Text = Text

Donc ça vient sûrement de mon autre form, y'a quelque chose qui doit pas aller...

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
Dim objWebRequest As System.Net.WebRequest
' J'essai de me connecter à une première page
Try
   objWebRequest = System.Net.HttpWebRequest.Create("http://fr.wikipedia.org/wiki/Saison_" & Saison & "_de_" & SerieR & "_(série_télévisée)")
   objWebResponse = objWebRequest.GetResponse()
Catch ex As Exception
   Try
 
      ' Sinon je me connecte à une deuxième
      objWebRequest = System.Net.HttpWebRequest.Create("http://fr.wikipedia.org/wiki/Saison_" & Saison & "_de_" & SerieR)
      objWebResponse = objWebRequest.GetResponse()
   Catch ex2 As Exception
      ErrorT = True
      GoTo Pass ' Sort de tout ça
   End Try
End Try

Ca ne devrait rien changer non?

**tomlev** · 08/11/2009, 19h13

Essaie d'exécuter en pas à pas pour voir si ton URL est correctement construite

D'ailleurs, plutôt que de la construire par concaténation, tu devrais utiliser la classe UriTemplate, plus adaptée à ce genre de chose.

**Anduriel** · 08/11/2009, 20h53

Heum?

J'ai rien changé et ça fonctionne ...

Comment ça peut être possible ça?

Enfin peu importe tant que c'est résolu, j'espère que c'est pas trop aléatoire.

Merci de tes réponses tomlev.