رفتن به مطلب
  • 0

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


Radius

سوال

سلام

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

 

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

2 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

این کد های منه ولی خب بعد از این که یکبار خرید میکنی دیگه هربار روی 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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...