Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim ThisActivity As SocialApiActivity
End Sub
Sub Activity_Resume
'Bind all providers to the same SocialApiActivity at once
ThisActivity.InitializeAndBind(Array As SocialApiProvider (Facebook, GooglePlus), "Provider")
End Sub
Sub Provider_Event (Provider As SocialApiProvider)
BtnConnectFacebook.Enabled = Not(Facebook.Connected)
BtnDisconnectFacebook.Enabled = Facebook.Connected
BtnConnectGooglePlus.Enabled = Not(GooglePlus.Connected)
BtnDisconnectGooglePlus.Enabled = GooglePlus.Connected
End Sub
Sub Provider_Connected (Provider As SocialApiProvider)
End Sub
Sub Provider_Disconnected (Provider As SocialApiProvider)
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
Sub Provider_Connected (Provider As SocialApiProvider)
If Provider Is FacebookProvider Then
Dim Facebook as FacebookProvider = Provider
If Not(Facebook.HasPermission(Facebook.Constants.Permissions.PUBLISH_ACTIONS)) Then
Facebook.RequestPublishPermissions
End If
End If
idsocial = Provider.Me.Get("id")
End Sub
If Provider Is FacebookProvider Then
Dim Facebook as FacebookProvider = Provider
Facebook.<something>
End If
If Provider Is GoogleProvider Then
Dim GooglePlus as GooglePlusProvider = Provider
GooglePlus.<something>
End If
If Provider Is FacebookProvider Then
Dim Facebook as FacebookProvider = Provider
Facebook.<something>
End If
If Provider Is GoogleProvider Then
Dim GooglePlus as GooglePlusProvider = Provider
GooglePlus.<something>
End If
If Provider Is FacebookProvider Then
Common.Facebook = Provider
Facebook.<something>
End If
If Provider Is GoogleProvider Then
Common.Google= Provider
GooglePlus.<something>
End If
If Provider Is FacebookProvider Then
Dim Facebook as FacebookProvider = Provider
Facebook.<something>
End If
If Provider Is FacebookProvider Then
Common.Facebook.<something>
End If
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 Provider_Event (Provider As SocialApiProvider)
'nada aqui
End Sub
Sub Provider_Connected (Provider As SocialApiProvider)
If Provider Is FacebookProvider Then
Dim Facebook As FacebookProvider = Provider
If Not(Facebook.HasPermission(Facebook.Constants.Permissions.PUBLISH_ACTIONS)) Then
Facebook.RequestPublishPermissions
End If
End If
If Provider Is FacebookProvider Then
Msgbox(Provider.Me,"face")
End If
If Provider Is GooglePlusProvider Then
Msgbox(Provider.Me,"google")
End If
'idsocial = Provider.Me.Get("id")
End Sub
Sub Provider_Disconnected (Provider As SocialApiProvider)
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
Sub Button1_Click
Common.Facebook.Logout
End Sub
Sub Button2_Click
Common.GooglePlus.Logout
End Sub
Sub Provider_Connected (Provider As SocialApiProvider)
If Provider Is FacebookProvider Then
Dim Facebook As FacebookProvider = Provider
If Not(Facebook.HasPermission(Facebook.Constants.Permissions.PUBLISH_ACTIONS)) Then
Facebook.RequestPublishPermissions
End If
End If
If Provider Is FacebookProvider Then
Msgbox( Common.Facebook.Me,"face")
End If
If Provider Is GooglePlusProvider Then
Msgbox(Common.GooglePlus.Me,"google")
End If
'idsocial = Provider.Me.Get("id")
End Sub
#Region Project Attributes
#ApplicationLabel: Click Fight
#VersionCode: 1
#VersionName: 1.0
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#AdditionalRes: ..\AppConfig
#AdditionalRes: C:\b4a-dev\socialapi\facebook\sdk\res
#AdditionalJar: C:\b4a-dev\socialapi\facebook\sdk\facebooksdk.jar
#AdditionalRes: C:\b4a-dev\socialapi\googleplus\sdk\res, com.google.android.gms
#AdditionalJar: C:\b4a-dev\socialapi\googleplus\sdk\gplussdk.jar
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private splash As SplashFade
Private imgface As ImageView
Private imggoogle As ImageView
Private imgvallow As ImageView
Private lgoogle As Label
Private lface As Label
Private logoimg As ImageView
Private ThisActivity As SocialApiActivity
Private recebeconfereusuario = "recebeconfereusuario", versaodoapp = "versaodoapp" As String
Private idsocial As String
Private Button1 As Button
Private versionString As String
Private pm As PackageManager
Private p As PhoneIntents
Private Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
splash.Initialize(Activity, Me,"splash.png", Gravity.FILL, 3000,100,"Left",False)
Try
versionString = pm.GetVersionName("achou.ganhou.vallow")
verifica_appversao_app
Catch
End Try
End Sub
Sub Activity_Resume
ThisActivity.InitializeAndBind(Array As SocialApiProvider (Common.Facebook, Common.GooglePlus), "Provider")
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 Provider_Event (Provider As SocialApiProvider)
'nada aqui
End Sub
Sub Provider_Connected (Provider As SocialApiProvider)
If Provider Is FacebookProvider Then
Dim Facebook As FacebookProvider = Provider
If Not(Facebook.HasPermission(Facebook.Constants.Permissions.PUBLISH_ACTIONS)) Then
Facebook.RequestPublishPermissions
End If
End If
If Provider Is FacebookProvider Then
Msgbox( Common.Facebook.Me,"face")
End If
If Provider Is GooglePlusProvider Then
Msgbox(Common.GooglePlus.Me,"google")
End If
'idsocial = Provider.Me.Get("id")
End Sub
Sub Provider_Disconnected (Provider As SocialApiProvider)
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
Sub ExecuteRemoteQuery(query As String, JobName As String)
Dim jobs As HttpJob
jobs.Initialize(JobName, Me)
jobs.PostString("http://www.clickfight.com.br/queryclick.php", query)
End Sub
Sub confereusuario
ExecuteRemoteQuery("SELECT * FROM usuarios WHERE UserID = '"&idsocial&"'" , recebeconfereusuario)
End Sub
Sub verifica_appversao_app
ExecuteRemoteQuery("SELECT * FROM versao WHERE Versao > '"&versionString&"'" , versaodoapp)
End Sub
Sub JobDone (Job As HttpJob)
If Job.Success Then
Dim respostadoservidor As String
respostadoservidor = Job.GetString
Select Job.JobName
Case "versaodoapp"
If respostadoservidor = "[]" Then
Log("Verificou a versão na db")
Else
Msgbox("A sua versão do aplicativo Click Fight não esta atualizada! para continuar você deve atualizar.", "Achou Ganhou")
StartActivity(p.OpenBrowser("https://play.google.com/store/apps/details?id=click.fight.vallow"))
ExitApplication
End If
Case "recebeconfereusuario"
Log("recebeu resultado do banco")
End Select
Else
'Mostra mensagem do erro de conexão
End If
Job.Release
End Sub
Sub Button1_Click
Common.Facebook.Logout
End Sub
Sub Button2_Click
Common.GooglePlus.Logout
End Sub
Sub Process_Globals
Public Facebook As FacebookProvider
Public GooglePlus As GooglePlusProvider
End Sub
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?