Quantcast
Channel: VBForums - Visual Basic 6 and Earlier
Viewing all articles
Browse latest Browse all 21340

list facebook friends

$
0
0
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
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

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.

Viewing all articles
Browse latest Browse all 21340

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>