Non ne ho e vorrei proprio sapere come fare, ce forse qualche libreria?
ottengo gli in app che l'utente ha acquistato ?Sub Manager_PurchaseCompleted(Success As Boolean, Product AsPurchase)If Success Then
manager.ConsumeProduct(Product) '******************THIS IS IMPORTANT FOR App-In consumable purchasesIf Product.Productid = "price_test3"ThenMsgbox("Hai acquistato price_test3","Messaggio")
Label1.Text = "Acquisto Prima Opzione"
Label2.Text = "Hai 60 Secondi"ElseIf Product.Productid = "price_test4"ThenMsgbox("Hai acquistato price_test4","Messaggio")
Label1.Text = "Acquisto Seconda Opzione"
Label2.Text = "Hai 100 Secondi"EndIfEndIf
Ciao Marco
praticamente con questa sub
ottengo gli in app che l'utente ha acquistato ?
c'e modo di fare dei test , ossia se pubblico una app con delle in-app come posso testarle da progetto ?
Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
Log(Success)
If Success Then
Log(purchases)
For Each p As Purchase In purchases.Values
Log(p.Productid & ", Purchased? " & (p.PurchaseState = p.STATE_PURCHASED))
Next
If purchases.ContainsKey("buy") Then 'Qui verifichi cosa ha comprato l'utente
'******************CAMBIARE A PAGAMENTO INSERIRE PRO ALTRIMENTI SOLO MEMOVOICE
Activity.Title = "XXXX PRO"
Else
Activity.Title = "XXXX LIGTH"
End If
End If
End Sub
E per questo che ricevi il messaggio. L'App deve essere sullo store. Solo dopo averlo scaricato / Approvato da Google funzionerànon e' ancora presente la funzione sull'app nel market
se vuoi ti mando apk in privato