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