Discussion :

[Anduriel]

Salut à tous,

J'ai des gros soucis de connection.
Voila en gros comment je procède: tant que la connection ne se fait pas, j'en essai une autre.

Code :

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

1
2
3
4
5
6
7
8
Dim TableauLiens As New Microsoft.VisualBasic.Collection()
TableauLiens.Add("http://fr.wikipedia.org/wiki/Life_On_Mars")
TableauLiens.Add("http://fr.wikipedia.org/wiki/Saison_1_de_Prison_Break")
 
For each Link in TableauLiens
   objWebRequest = System.Net.HttpWebRequest.Create(Link)
   objWebResponse = objWebRequest.GetResponse()
Next

Ici, aucun ne fonctionne, mais si je mets directement l'url dans le navigateur, il n'y a aucun souci.

Je n'ai trouvé qu'un code sur developpez (celui-là), y a t-il un autre moyen plus fiable? Pourquoi ne fonctionne t-il pas?
Ou très mal?

Merci

[Anduriel]

Est ce que quelqu'un pourrait tester ça:

Code :

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

1
2
3
4
5
6
7
objWebRequest = System.Net.HttpWebRequest.Create("http://fr.wikipedia.org/wiki/Life_On_Mars")
objWebResponse = objWebRequest.GetResponse()
objStreamReader = New System.IO.StreamReader(objWebResponse.GetResponseStream())
HtmlText = objStreamReader.ReadToEnd()
If Not objWebResponse Is Nothing Then
objWebResponse.Close()
End If

et me dire si ça fonctionne?
Merci