sId est une chaîne
sEmail est une chaîne
sNom est une chaîne

MonToken est un AuthToken
MonTokenParam est un OAuth2Paramètres
MonTokenParam..ClientID = "****************" // ID de l'app du compte facebook developper
MonTokenParam..ClientSecret = "***************************************" // Token Client du compte facebook dev
MonTokenParam..URLAuth = "https://www.facebook.com/dialog/oauth"
MonTokenParam..URLToken = "https://graph.facebook.com/oauth/access_token"
MonTokenParam..URLRedirection = "fb********************://authorize/" // ID de l'app du compte fb dev
MonTokenParam..Scope = "email"

MonToken = AuthIdentifie(MonTokenParam)
SI MonToken <> Null ALORS
SI ErreurDétectée ALORS
Erreur(ErreurInfo())
SINON
// Token précisé sur l'URL de la requête
HTTPRequête("https://graph.facebook.com/me?access_token=" + MonToken..Valeur)
vMonRes est un Variant = JSONVersVariant(HTTPDonneRésultat(httpRésultat))
// Récupération du nom du compte
Trace(vMonRes.name)
FIN
FIN
SI FBEtatSession(SessionFB) <> fbSessionOuverte ALORS // SessionFB est une variable globale de type fbsession
SessionFB..AppID = "****************" // ID de l'app du compte facebook developper
SessionFB..AppSecret = "***************************************" // Token Client du compte facebook dev
SessionFB..Permission = [fbInfoProfil,fbIdentifiant,fbEmail]
SI FBOuvreSession(SessionFB) = Vrai ALORS
sId = FBRécupèreInformationUtilisateur(SessionFB,fbIdentifiant)
sEmail = FBRécupèreInformationUtilisateur(SessionFB,fbEmail)
sNom = FBRécupèreInformationUtilisateur(SessionFB,fbNom)
Info("Connecté",sId,sEmail,sNom)
SINON
Erreur("Impossible de se connecter.", ErreurInfo())
sId = ""
sEmail = ""
sNom = ""
RETOUR
FIN
FIN