Dim doc As HTMLDocument
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.hairdos.com/frameset.htm"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set doc = Nothing
End Sub
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
URL As Variant, Flags As Variant, TargetFrameName As Variant, _
PostData As Variant, Headers As Variant, Cancel As Boolean)
Set doc = Nothing
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set doc = WebBrowser1.Document
If (pDisp Is WebBrowser1.Object) Then
ListAllLinks doc, List1
'ListAllLinkUrls doc, List1
End If
End Sub
Public Sub ListAllLinkUrls(doc As HTMLDocument, List As ListBox)
Dim i As Long
Dim x As Long
If doc.frames.length = 0 Then
For i = 0 To doc.links.length - 1
List.AddItem doc.links(i).href
Next i
Else
For i = 0 To doc.frames.length - 1
For x = 0 To doc.frames(i).Document.links.length - 1
List.AddItem doc.frames(i).Document.links(x).href
Next x
Next i
End If
End Sub
Public Sub ListAllLinks(doc As HTMLDocument, List As ListBox)
Dim i As Long
Dim x As Long
If doc.frames.length = 0 Then
For i = 0 To doc.links.length - 1
If doc.links(i).outerText <> "" Then
List.AddItem doc.links(i).outerText
End If
Next i
Else
For i = 0 To doc.frames.length - 1
For x = 0 To doc.frames(i).Document.links.length - 1
If doc.frames(i).Document.links(x).outerText <> "" Then
List.AddItem doc.frames(i).Document.links(x).outerText
End If
Next x
Next i
End If
End Sub