B4X

Get Current User Information

See more Facebook Examples

Demonstrates how to retrieve information about the current Facebook user. This is the most basic thing to get working first (after obtaining an access token). B4X

Dim success As Boolean = False

'  This example requires the Chilkat API to have been previously unlocked.
'  See Global Unlock Sample for sample code.

'  This example assumes we previously obtained an access token
Dim oauth2 As ChilkatOAuth2
oauth2.Initialize("oauth2")
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As ChilkatRest
rest.Initialize("rest")

'  Connect to Facebook and send the following GET request:

'  GET /v2.7/me HTTP/1.1
'  Host: graph.facebook.com
Dim bAutoReconnect As Boolean = True
success = rest.Connect("graph.facebook.com", 443, True, bAutoReconnect)
If success <> True Then
    Log(rest.LastErrorText)
    Return
End If


'  Provide the authentication credentials (i.e. the access key)
rest.SetAuthOAuth2(oauth2)

Dim responseJson As String = rest.FullRequestNoBody("GET", "/v2.7/me")
If rest.LastMethodSuccess <> True Then
    Log(rest.LastErrorText)
    Return
End If


Log(responseJson)

'  The responseJson looks like this:
'  {"name":"John Doe","id":"10111011320111110"}