Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ClientId As String = "1910.......apps.googleusercontent.com"
Private ClientSecret As String = "93Fw....ieS"
Private oauth2 As GoogleOAuth2
Private lblBirthday As Label
Private lblEmail As Label
Private lblName As Label
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
oauth2.Initialize(Me, "oauth2", ClientId, "https://www.googleapis.com/auth/androidpublisher", ClientSecret, File.DirData("GoogleContacts"))
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
End Sub
Sub btnGetData_Action
oauth2.GetAccessToken
Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
If Success = False Then
Log("Error accessing account.")
Return
End If
Dim j As HttpJob
j.Initialize("", Me)
'full list of features available: person.addresses,person.age_ranges,person.biographies,person.birthdays,person.bragging_rights,person.cover_photos,person.email_addresses,person.events,person.genders,person.im_clients,person.interests,person.locales,person.memberships,person.metadata,person.names,person.nicknames,person.occupations,person.organizations,person.phone_numbers,person.photos,person.relations,person.relationship_interests,person.relationship_statuses,person.residences,person.skills,person.taglines,person.urls
Dim packageName As String = "my.app.nam"
' The package name of the application the inapp product was sold in (for example, 'com.some.thing'). (string)
Dim productId As String = "my.app.name.productid"
' The inapp product SKU (for example, 'com.some.thing.inapp1'). (string)
Dim Token As String = "fndbkcedmnjbenc.......qToYEvB0jlIcaxCO2GZbDw"
' The token provided to the user's device when the inapp product was purchased. (string)
Log("https://www.googleapis.com/androidpublisher/v2/applications/" & packageName & "/purchases/products/" & productId & "/tokens/" & Token)
j.Download("https://www.googleapis.com/androidpublisher/v2/applications/" & packageName & "/purchases/products/" & productId & "/tokens/" & Token)
Wait For (j) JobDone(j As HttpJob)
Log(j.Success)
If j.Success Then
ParsePersonData(j.GetString)
Else
oauth2.ResetToken
Log("Online data not available.")
End If
j.Release
End Sub
Sub ParsePersonData (data As String)
Log(data)
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub
