hi all, i am trying to create a list of my facebook friends.
i navigate to "my friends" page then hit a command button containing
this list my friends pages, but also a lot of other links that are not needed. i could try adding delimiters but i would need alot of them. is there a better way of creating a list of my facebook friends page links. the reason for doing this is i want to be able to scan my friends time lines for game offers.
i navigate to "my friends" page then hit a command button containing
Code:
Private Sub ListLinks1()
Dim q1, q2
Dim Inner As String
Inner = WebBrowser1.document.documentElement.innerHTML
q1 = 1
again:
q1 = InStr(q1, Inner, "facebook.com/", vbTextCompare)
If q1 > 1 Then
q2 = InStr(q1, Inner, "&")
If q2 > 0 Then
Me.List1.AddItem Mid(Inner, q1, q2 - q1) ' Finds Links containing Bla and list them in list 1
q1 = q2
GoTo again
End If
End If
End Sub