How to Comment on a Post

Imports Branches.FBAPI

...

Dim SI As New SessionInfo("[access_token]"))

Dim Posts = New Functions.Posts(SI)

Dim C As New Comment

C.message = "test comment"

Posts.PublishCreate("[objectID to post comment to]", C)

Posts and Comments Retrieval

This is an example of how to get a list of posts on a users wall and read any comments on those posts. You can also request comments for a specific post.

Imports Branches.FBAPI

...

Dim SI As New SessionInfo("[access_token]"))

Dim Req New Functions.Requests(SI)

For Each P In Req.GetPosts("me")

      TestContext.WriteLine(P.id)

      TestContext.WriteLine(P.from.name)

      TestContext.WriteLine(P.message)

      TestContext.WriteLine(P.link)

      TestContext.WriteLine(P.comments.count)

      'Return comments from data on post

      For Each C In P.comments.data

            TestContext.WriteLine(C.from.name)

            TestContext.WriteLine("Comment: " & C.message)

      Next

      'Return comments for a specific postID

      Dim C2 = Req.GetComments(P.id)

      For Each C In C2

            TestContext.WriteLine(C.from.name)

            TestContext.WriteLine("Comment: " & C.message)

      Next

Next

The above emaple is based on unit testing code

Working with friends and friend lists

To get a list of a user’s friends you can use two methods

1.    Get a list of all the friends for a use.
2.    Get a list of custom lists that the user has created and then view the friends for that particular list.

This is code from our unit testing but you can replace the testcontext.writeline with your preferred output method

Imports Branches.FBAPI
...
Dim SI As New SessionInfo("[access_token]"))
Dim Req As New Functions.Requests(SI)
 ' Get a list of a users friends
For Each [Friend] In Req.GetFriends
       TestContext.WriteLine([Friend].name)
Next
 ' Get a list of friend liss and then return the users for that list.
Getting Friend Lists
For Each FriendList In Req.GetFriendLists
       TestContext.WriteLine(FriendList.name)
       For Each [Friend] In Req.GetFriendList(FriendList.id)
              TestContext.WriteLine("     " & [Friend].name)
       Next
Next