Afficher tous les links d'une page Web

Bonjour à tous,

Dans VB6 je pouvais parcourrir une page Web et obtenir tous les URL de cette page avec le code ci-dessous:

For I = 0 To (WebBrowser1.Document.Links.length - 1)
strUrl = WebBrowser1.Document.Links.Item(I).href
Next I

Avec VB.NET j'ai essayé

For I = 0 To WebBrowser1.Document.Links.Count - 1
strUrl = WebBrowser1.Document.Links.Item(I).Document.Url.ToString()
Next

mais le résultat est toujours l'URL du WebBrowser1.Document. Quelque'un peut m'aider a afficher tous les links d'une page Web sur VB.NET?

Merci.

Hi !

tu y était presque ^^

il faut que tu procède comme suit:

Code:

---

1 2 3 4

For I = 0 To WebBrowser1.Document.Links.Count - 1 textbox1.text &= WebBrowser1.Document.Links.Item(I).outerHTML & vbnewline Next

---

Ici je met tous les liens de la page dans un TextBox, avec un retour à la ligne a chaque fois.
Tu obtiendras la liste des liens avec les balises HTML exemple:
<a href="http://blabla">Le lien</a>

si tu veus juste le texte affiché par le lien, remplace '.outerHTML' par '.outerTEXT'.

Salut,

La réponse de Speranza m'a aidé énormément, mais pour rester de tout satisfait, est-ce que quelqu'un connais une façon d'obtenir simplemnt le lien "http:\\www.blabla.com", comme dans VB6 avec .href?
Voici mon but de code. Mon objectif est filtrer les liens se terminant avec .zip pour les mettre dans un fichier .lst pour ensuite faire mes downloads avec le logiciel GetRight:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub MainWebBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles MainWebBrowser.DocumentCompleted   Dim MyPage As WebBrowser = CType(sender, WebBrowser)   Dim I As Integer For I = 0 To MyPage.Document.Links.Count - 1 If InStr(MyPage.Document.Links.Item(I).OuterHtml, ".zip") Then HistoryListView.Items.Add(New ListViewItem(New String() {MyPage.Document.Links.Item(I).OuterHtml})) End If Next   End Sub

---

Pour récupérer juste le lien, sans les balises, je ferais comme ci dessous:

Code:

---

1 2 3 4 5 6 7 8

dim temp For I = 0 To MyPage.Document.Links.Count - 1 temp= MainWebBrowser.document.links.item(i).outerHTML.split("""") if temp(1).tostring.endswith(".zip") then textbox1.text &= temp(1) & vbnewline endif Next

---

temp= MainWebBrowser.document.links.item(i).outerHTML.split("""")
va te permettre d'extraire l'URL du lien, tu obtiendras par exeple: http://www.developpez.net

if temp(1).tostring.endswith(".zip") then
va te renvoyer TRUE si la chaine de caratère se finit par '.zip'
De cette manière tu va virer les liens du genre: http://lesite.com/fichier.zip.html

parceque dans ton test ( If InStr(MyPage.Document.Links.Item(I).OuterHtml, ".zip") Then... ) tu ne les enlevaient pas.