مشکل در چند بار پرداخت کردد

[Radius 89]

سلام

من از کتابخانه درون پرداخت کافه بازار استفاده میکنم برای خرید سکه

 

اما مشکل اینجاست که وقتی کاربر یک بار یه چیزی رو میخره . باز دوباره نمیتونه اونو بخره

 

میخواستم بپرسم چجوری میشه حل کردش؟

[AMiN.M7892 1,029]

بستگی به کدهاتون داره.

کدهاتون رو قرار بدید تا بررسی بشه

[Radius 89]

این کد های منه ولی خب بعد از این که یکبار خرید میکنی دیگه هربار روی Button بزنی بهت سکه میده

Sub Globals
	Dim Bazar As BillingManager_b4a_org
	Private WebView1 As WebView
	Private Button1 As Button
	Private Label1 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Main")
	Bazar.Initialize("Buy","MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwC5N5XLO25rG4SxHnu+MrvwUK/32bO8CUD5XXVrMAsVBmLCqYlZ2B2muHJCzjsglqYSBKMxLsUGET/LigknhLWjSMZ++OgzICgzq9P0Je7hbepCUuHm2SUWGY6umOykUR7f5lPkuogxTovhrQz9lBhrH9bvmnw6H4BA4y8+iOWwq29vruoD5j+3ACFN1h4VD33U0tqlfSrnoyjbRswQI+I6hUowv8j5DA9uQfPiaWcCAwEAAQ==")
	
	Label1.Text = "1"
End Sub

Sub Button1_Click
	Bazar.RequestPayment("TEST","inapp","TEST")
End Sub

Sub Buy_PurchaseCompleted (Success As Boolean,Product As Purchase)
	If Success = True Then
		If Product.DeveloperPayload = "TEST" Then
			Label1.Text = Label1.Text + 1
		End If
	End If
End Sub