Discussion :

[danyflyn]

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.

[Speranza]

Hi !

tu y était presque ^^

il faut que tu procède comme suit:

Code :

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

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'.

[danyflyn]

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 :

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

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

[Speranza]

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

Code :

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

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.