(AutoIt) Read a Single Facebook Post

Demonstrates how to read the contents of a single Facebook post. A post is an individual entry in a profile's feed. The profile could be a user, page, app, or group.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

; This example assumes a previously obtained an access token
$oOauth2 = ObjCreate("Chilkat.OAuth2")
$oOauth2.AccessToken = "FACEBOOK-ACCESS-TOKEN"

$oRest = ObjCreate("Chilkat.Rest")

; Connect to Facebook...
Local $bSuccess = $oRest.Connect("graph.facebook.com",443,True,True)
If ($bSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

; Provide the authentication credentials (i.e. the access key)
$oRest.SetAuthOAuth2($oOauth2)

; This example assumes a post id was already retrieved.
; For example, it could've been retrieved by reading the user's feed:
; See Parsing the Facebook User Feed for code showing how to parse the JSON feed content.

Local $sPostId = "10224048320139890_10210156138515282"

$oSbPath = ObjCreate("Chilkat.StringBuilder")
$oSbPath.Append("/v2.7/")
$oSbPath.Append($sPostId)

; Select the fields we want.
; This example will select almost all the possible fields.
; See https://developers.facebook.com/docs/graph-api/reference/post/
$oRest.AddQueryParam("fields","id,message,created_time,caption,description,from,link,name,object_id,picture,place,privacy,properties,shares,source,status_type,story,targeting,to,type,updated_time,with_tags")

Local $sResponseJson = $oRest.FullRequestNoBody("GET",$oSbPath.GetAsString())
If ($oRest.LastMethodSuccess <> True) Then
    ConsoleWrite($oRest.LastErrorText & @CRLF)
    Exit
EndIf

$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.EmitCompact = False
$oJson.Load($sResponseJson)

; Show the JSON in human-readable format.
ConsoleWrite($oJson.Emit() & @CRLF)

; A sample JSON response is shown here.  
; { 
;   "id": "12345678901234567_12345678900000004",
;   "message": "Ignore my posts -- I'm doing some testing for Facebook related programming...",
;   "created_time": "2016-09-29T20:46:18+0000",
;   "from": { 
;     "name": "John Doe",
;     "id": "12345678901234567"
;   },
;   "link": "https:\/\/www.facebook.com\/photo.php?fbid=10210199026247451&set=a.1237223526054.2038240.1094202869&type=3",
;   "object_id": "10210139026347451",
;   "picture": "https:\/\/scontent.xx.fbcdn.net\/v\/t1.0-9\/14462791_10210199026647451_7830642117574407060_n.jpg?oh=a7f9ed10ce9cd81a82adeb541c60e2e2&oe=58ABB195",
;   "privacy": { 
;     "allow": "",
;     "deny": "",
;     "description": "Public",
;     "friends": "",
;     "value": "EVERYONE"
;   },
;   "status_type": "added_photos",
;   "type": "photo",
;   "updated_time": "2016-09-29T20:46:18+0000"
; }

; This is the code to parse some fields in the JSON response.
ConsoleWrite("type: " & $oJson.StringOf("type") & @CRLF)
ConsoleWrite("message: " & $oJson.StringOf("message") & @CRLF)
ConsoleWrite("id: " & $oJson.StringOf("id") & @CRLF)
ConsoleWrite("link: " & $oJson.StringOf("link") & @CRLF)
ConsoleWrite("privacy descripton: " & $oJson.StringOf("privacy.description") & @CRLF)

$oDtime = ObjCreate("Chilkat.CkDateTime")
Local $bLocalTime = True
$oDtime.SetFromTimestamp($oJson.StringOf("created_time"))
Local $oDt = $oDtime.GetDtObj($bLocalTime)
ConsoleWrite($oDt.Month & "/" & $oDt.Day & "/" & $oDt.Year & "  " & $oDt.Hour & ":" & $oDt.Minute & @CRLF)