Extracting links from a WebBrowser Control
Same technique but without any reference.
VB Code:
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.vbforums.com"
End Sub
'======================================================
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, _
URL As Variant)
Dim i As Integer
'Wait till document has loaded
If pDisp Is WebBrowser1.Object Then
'Loop through links
For i = 0 To WebBrowser1.Document.links.length - 1
List1.AddItem WebBrowser1.Document.links.Item(i).href
Next i
End If
End Sub