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

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

VB Code:

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

Quote:

---

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

---

kay jay !!

how to rectify the problem... if the objhtml is empty ? an error might appear that is error '91'

when i doi :

if objhtml <> "" then

Quote:

---

Originally posted by vbnew
kay jay !!

how to rectify the problem... if the objhtml is empty ? an error might appear that is error '91'

when i doi :

if objhtml <> "" then

---

U should check for

VB Code:

If objHTML Is Nothing Then

as objHTML is an object and not equate it with a string value

PS: Pls continue or post anew in the General Section, or PM/E-Mail me. :)

Regards

KayJay