(Excel) Get Current User Information

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).

Download Excel Class Modules Chilkat Excel Class Modules

' 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 Chilkat.OAuth2
Set oauth2 = Chilkat.NewOAuth2
oauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

Dim rest As Chilkat.Rest
Set rest = Chilkat.NewRest

' Connect to Facebook and send the following GET request:

' GET /v2.7/me HTTP/1.1
' Host: graph.facebook.com

bAutoReconnect = True

success = rest.Connect("graph.facebook.com",443,True,bAutoReconnect)
If (success <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

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


responseJson = rest.FullRequestNoBody("GET","/v2.7/me")
If (rest.LastMethodSuccess <> True) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

Debug.Print responseJson

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