SocialApi SDK Wrappers - B4A Single-Sign-On with multiple providers

AddApplicationText(
    <meta-data
        android:name="com.facebook.sdk.ApplicationId"
        android:value="@string/app_id"/>
      <activity
        android:name="com.facebook.LoginActivity"
        android:theme="@android:style/Theme.Translucent.NoTitleBar.Fullscreen"
        android:label="$LABEL$"/>)

Log(Common.Facebook.GetPhoto.Map.Get("url"))

    Log(Common.Facebook.Me.Get("picture.height(200).width(200)"))

Log(Common.Facebook.GetPhoto.Map.Get("url"))

/* make the API call */
new Request(
    session,
    "/me/picture",
    null,
    HttpMethod.GET,
    new Request.Callback() {
        public void onCompleted(Response response) {
            /* handle the result */
        }
    }
).executeAsync();

Bundle params = new Bundle();
params.putBoolean("redirect", false);
params.putString("height", "200");
params.putString("type", "normal");
params.putString("width", "200");
/* make the API call */
new Request(
    session,
    "/me/picture",
    params,
    HttpMethod.GET,
    new Request.Callback() {
        public void onCompleted(Response response) {
            /* handle the result */
        }
    }
).executeAsync();

    map1 = Common.GooglePlus.Me
    map2 = map1.Get("name") 
    log(map2)
    lala = map2.Get("givenName")  'ERROR ON THIS LINE lala is a string

'https://developers.facebook.com/docs/graph-api/reference/v2.0/user/picture
Dim Result As FacebookResult = Facebook.Get("me/picture", "redirect=false&return=picture.height(200).width(200)")

Dim ImageData As Map = Result.Map.Get("data")

Dim ImageUrl As String = ImageData.Get("url")
Log(ImageUrl)

Dim ImageIsSilhouette As String = ImageData.Get("is_silhouette")
Log(ImageIsSilhouette)

Dim Name As Map = GooglePlus.Me.Get("name")
Dim FamilyName As String = Name.Get("familyName")
Log(FamilyName)

Dim Image As Map = GooglePlus.Me.Get("image")
Dim ImageUrl As String = Image.Get("url")
Log(ImageUrl)

Sub Process_Globals
    Dim Facebook As FacebookProvider
    Dim GooglePlus As GooglePlusProvider
End Sub

Sub Globals
Dim ThisActivity As SocialApiActivity
End Sub

Sub Activity_Resume
    ThisActivity.InitializeAndBind(Array As SocialApiProvider (Social.Facebook, Social.GooglePlus), "Provider")
End Sub


'OK 2 BUTTONS LOGIN WITH FACE AND GOOGLE CALLING THE SOCIAL

Sub imgface_Click
    Social.Facebook.Login(Null) '<CALL THE SOCIAL.
End Sub

Sub imggoogle_Click
    Social.GooglePlus.Login '<CALL THE SOCIAL.
End Sub

'LATER I HAVE THIS


'WHAT THIS MAKE? ITS TAKE THE USER IF FROM GOOGLE OR FACE AND MAKE A SELECT ON THE DB TO CHECK IF USER
'ALREADY IS REGISTERED, IF YES STARTACTVITY(telaprincipal) ELSE NOT IS REGISTERED STARTACTVITY(completacadastro)

Sub Provider_Connected (Provider As SocialApiProvider)

If Provider Is FacebookProvider Then
    Social.Facebook = Provider
       
    If Not(Social.Facebook.HasPermission(Social.Facebook.Constants.Permissions.Email)) Then
    Social.Facebook.RequestReadPermissions(Array As String (Social.Facebook.Constants.Permissions.Email,Social.Facebook.Constants.Permissions.USER_LOCATION))
    End If
    Try
    idsocial = Social.Facebook.User.Id
    redesocial = "facebook"
    confereusuario
    Catch
    Social.Facebook.Logout
    Msgbox("Ocorreu um erro ao buscar seus dados!","Click Fight")
    End Try   
End If


If Provider Is GooglePlusProvider Then
    Social.GooglePlus = Provider
   
    Try
    idsocial = Social.GooglePlus.User.Id
    redesocial = "google"
    confereusuario
    Catch
    Social.GooglePlus.Logout
    Msgbox("Ocorreu um erro ao buscar seus dados!","Click Fight")
    End Try
End If
End Sub


Sub Provider_Failed (Provider As SocialApiProvider)
    If Msgbox2("Provider '" & Provider.Type & "' failed to actualize your details."&CRLF&CRLF&"Retry?", Provider.Type & ": Error", "Yes", "No", "", Null) = DialogResponse.POSITIVE Then
        Provider.Retry
    End If
End Sub

'again
Sub Globals
    Private ThisActivity As SocialApiActivity
End Sub

Sub Activity_Resume
 ThisActivity.InitializeAndBind(Array As SocialApiProvider (Social.Facebook, Social.GooglePlus), "Provider")
End Sub

'AND HERE IS THE PROBLEM
'I GET THE USER INFO TO MAKE A INSERT ON THE DB BUT PROVIDER IS EVER FACEBOOK
'I CAN LOGIN WITH GOOGLE  BUT IN THIS ACITIVITY IS EVER If (Provider Is FacebookProvider) Then EVER
'I M NOT LOGGED IN ON FACEBOOK TOO AND IS PROVIDER FACEBOOK HERE TOO


Sub Provider_Event (Provider As SocialApiProvider)

    If (Provider Is GooglePlusProvider) Then
    Try
    idsocial = Social.GooglePlus.User.Id
    Msgbox("lala","lala")
    Catch
    Social.GooglePlus.Logout
    Msgbox("Ocorreu um erro ao buscar seus dados!","Click Fight")
    End Try
    End If
   
   
   
   
    If (Provider Is FacebookProvider) Then
    Try
    redesocial = "facebook"
    idsocial = Social.Facebook.user.Id
    sexo = Social.Facebook.Me.Get("gender")
    cn = Social.Facebook.Me.Get("name")
    fn = Social.Facebook.Me.Get("first_name")
    ln = Social.Facebook.Me.Get("last_name")
    locale = Social.Facebook.Me.Get("locale")
    username = Social.Facebook.Me.Get("username")
    'pega email
    Email = Social.Facebook.user.Email
    edemail.Text = Email
    'pega cidade
    'cidade = Common.Facebook.Me.Get("location")
    'edcidade.Text = cidade
    Catch
    Msgbox("Você deve autorizar o Click Fight de obter seus dados cadastrais! Efetue o login novamente!","Click Fight")
    CallSubDelayed(Main,"desatualizarface")
    End Try
    End If
   
End Sub


Sub Provider_Disconnected (Provider As SocialApiProvider)
End Sub

Sub Provider_Failed (Provider As SocialApiProvider)
    If Msgbox2("Não foi possível logar utilizando o '" & Provider.Type & "' Ocorreu uma falha ao obter os dados pessoas da conta."&CRLF&CRLF&" Tentar Novamente!", "Click Fight", "OK", "Cancelar", "", Null) = DialogResponse.POSITIVE Then
        Provider.Retry
    End If
End Sub

If (Provider Is GooglePlusProvider) Then ...

If (Provider Is FacebookProvider) Then ...