Sub RequestGender
Dim NaObj As NativeObject
NaObj = NaObj.Initialize("FBSDKAccessToken")
Dim Token As String = NaObj.RunMethod("currentAccessToken",Null).GetField("tokenString").AsString
Dim Url As String = $"https://graph.facebook.com/v2.8/me?fields=gender&access_token=${Token}"$
Dim API As HttpJob
API.Initialize("API",Me)
API.Download(Url)
End Sub
Sub JobDone (J As HttpJob)
If J.JobName = "API" Then
Dim JSON As JSONParser
JSON.Initialize(J.GetString)
Dim Gender As String = JSON.NextObject.Get("gender")
Log("Gender : " & Gender)
End If
End Sub