Sub Share(Message as String, PathName As String, FileName As String)
If Social.Facebook.Connected Then
Social.Facebook.UploadPhoto(PathName, FileName, Message, "")
End If
If Social.Twitter.Connected Then
Social.Twitter.TweetMedia(Message, PathName, FileName)
End If
End Sub
Thanks, I will add this to my Whack A Bieber game.@Douglas Farias Google+ does not return a user location
https://code.google.com/p/google-plus-platform/issues/detail?id=620
Is there a spelling error in the code ?
provider_justdisconnectd
Can you please make a screenshot the app when the twitter login hangs? Just that screen
yes, with your sample works all
1. For the problem disconnect Facebook i don't know where is the cause. The code is the same
2. For the twitter the cause are my api keys. I've changed your keys with mine in sample2 and i have the same behaviors. After click Login, show the wait dialog and after that not appears anything. Probably is some settings in the developer console
Sub Activity_Resume
Common.Facebook.SetActivity(ThisActivityface.Initialize("facebook"))
Common.GooglePlus.SetActivity(ThisActivitygoogle.Initialize("googleplus"))
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub imgface_Click
Common.Facebook.Login(Array As String (Common.Facebook.Constants.Permissions.Email))
End Sub
Sub imggoogle_Click
Common.GooglePlus.Login
End Sub
Sub Facebook_Connected (Provider As SocialApiProvider)
If Not(Common.Facebook.HasPermission(Common.Facebook.Constants.Permissions.PUBLISH_ACTIONS)) Then
Common.Facebook.RequestPublishPermissions
End If
idsocial = Provider.Me.Get("id")
confereusuario
End Sub
Sub Facebook_Disconnected (Provider As SocialApiProvider)
'here
End Sub
Sub Button1_Click
Common.Facebook.Logout
End Sub