Sub Process_Globals
Dim manager As BillingManager3
Private key As String = "MIIBIjAN..."
End Sub
Sub Globals
Private Button1 As Button
Private Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("teste")
If FirstTime Then
manager.Initialize("manager", key)
manager.DebugLogging = False
End If
End Sub
Sub Manager_BillingSupported (Supported As Boolean, Message As String)
Log(Supported & ", " & Message)
Log("Subscriptions supported: " & manager.SubscriptionsSupported)
If Supported Then
'manager.GetOwnedProducts 'requisita os produtos comprados e dispara o evento com o mesmo nome
End If
End Sub
Sub Button1_Click
manager.RequestPayment("myapp_assinatura", "subs", "MyApp assinatura_ok")
'manager.RequestPayment("android.test.purchased", "inapp", "Infranote_assinatura_ok")
End Sub
Sub Activity_Click
'1manager.RequestPayment("android.test.purchased", "subs", "extra data")
'manager.GetOwnedProducts
'Manager.RequestPayment(Activity, "android.test.purchased", "extra data")
End Sub
Public Sub manager_ProductConsumed (Success As Boolean, Product As Purchase)
Log("teste")
Log("===== LOG DO APLICATIVO ==================================================")
Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
Log("Product.ItemType = " & Product.ItemType)
Log("Product.ProductId = " & Product.ProductId)
Log("Product.PurchaseState = " & Product.PurchaseState)
Log("Product.PurchaseTime = " & Product.PurchaseTime)
Log("Product.toString = " & Product.toString)
Log("==========================================================================")
End Sub
Public Sub manager_PurchaseCompleted (Success As Boolean, Product As Purchase)
'manager.ConsumeProduct(Product)
'Return
Log(Success)
If Success = True Then
'Select Product.Productid
'Case "TestXX"
'qui inserisco cosa fare nel caso la transazione si andata a buon fine
' Faccio andare nella routine esempio sub lancia dove elimino la pubblicità
Log("===== LOG DO APLICATIVO ==================================================")
Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
Log("Product.ItemType = " & Product.ItemType)
Log("Product.ProductId = " & Product.ProductId)
Log("Product.PurchaseState = " & Product.PurchaseState)
Log("Product.PurchaseTime = " & Product.PurchaseTime)
Log("Product.toString = " & Product.toString)
Dim r As Reflector
r.Target = Product
Dim token As String = r.GetField("mToken")
Log("Product.Token = " & token)
Log("==========================================================================")
ToastMessageShow("PLAY STORE OK Buy ;);)))))!!", False)
'End Select
Else
ToastMessageShow("PLAY STORE Error Buy", False)
'Product.PurchaseState
'Log("===== LOG DO APLICATIVO ==================================================")
'Log("Product.DeveloperPayload = " & Product.DeveloperPayload)
'Log("Product.ItemType = " & Product.ItemType)
'Log("Product.ProductId = " & Product.ProductId)
'Log("Product.PurchaseState = " & Product.PurchaseState)
'Log("Product.PurchaseTime = " & Product.PurchaseTime)
'Log("Product.toString = " & Product.toString)
Log("==========================================================================")
End If
End Sub
Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
Log("manager_OwnedProducts Success = " & Success)
Log("purchases size = " & purchases.Size)
If Success Then
For i=0 To purchases.Size-1
Log(purchases.GetKeyAt(i)) 'Get name of Product
Log(purchases.GetValueAt(i)) 'Get State of signature
Next
End If
End Sub
Sub Button2_Click
manager.GetOwnedProducts 'requisita os produtos comprados e dispara o evento com o mesmo nome
End Sub