VB - Internet - General - Snippet - Extract URLs from Webpages

[KayJay]

This snippet shoes how to extract all the URLs displayed in a webpage. Requirements

1) A WebBrowser Component
2) A reference to the Microsoft HTML Object Library

Dim objHTML As New MSHTML.HTMLDocument
 
Private Sub Form_Load()
WB.navigate "http://www.vbforums.com"
End Sub
 
Private Sub WB_DownloadComplete()
    Set objHTML = WB.document
    For i = 0 To objHTML.links.Length - 1
        Debug.Print objHTML.links(i)
    Next i
End Sub