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

مشکل با BillingManager3


saeed120m

سوال

سلام دوستان

یه کتاب دارم

پرداخت درون برنامه مایکت رو توش قرار دادم

با BillingManager3

رو سامسونگ j3  با اندروید 5.1  راحت کار میکنه

ولی رو سونی xperia p با اندروید 4.1

و سامسونگ j5 با اندروید 6

امتحان کردم برنامه باز نمیشه

امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه

 

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

MyketIAP

 

اینم کدهام

AddPermission(ir.mservices.market.BILLING)       'دسترسی درون پرداخت مایکت 




Sub Process_Globals
	Private key As String ="MIG"
	Dim oBillingManager As BillingManager3
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime Then
		oBillingManager.Initialize("BillingManager", key)
		
		oBillingManager.DebugLogging = False 
	End If
End Sub 

Sub BillingManager_BillingSupported(Supported As Boolean, Message As String)
	If Supported=True Then
		
	Else
		ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False)
	End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button_premium_Click
	oBillingManager.RequestPayment("premium", "inapp", "Developer Payload")
End Sub


Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success= True Then
		ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True)

		cur=s.ExecQuery("select * from tbl ")

		S.ExecNonQuery("UPDATE tbl SET premium = 1 ")
Else If Success=False Then
			ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True)
	End If

End Sub


 

اگه میشه راهنمایی کنید

 

 

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

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

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

در در 1397/10/20, 21:26:40، saeed120m گفته است :

سلام دوستان

یه کتاب دارم

پرداخت درون برنامه مایکت رو توش قرار دادم

با BillingManager3

رو سامسونگ j3  با اندروید 5.1  راحت کار میکنه

ولی رو سونی xperia p با اندروید 4.1

و سامسونگ j5 با اندروید 6

امتحان کردم برنامه باز نمیشه

امتحان کردم مشکل از کدای درون پرداخت هست ، این کدارو که حذف میکنم برنامه راحت باز میشه

 

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

MyketIAP

 

اینم کدهام


AddPermission(ir.mservices.market.BILLING)       'دسترسی درون پرداخت مایکت 




Sub Process_Globals
	Private key As String ="MIG"
	Dim oBillingManager As BillingManager3
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If FirstTime Then
		oBillingManager.Initialize("BillingManager", key)
		
		oBillingManager.DebugLogging = False 
	End If
End Sub 

Sub BillingManager_BillingSupported(Supported As Boolean, Message As String)
	If Supported=True Then
		
	Else
		ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False)
	End If
End Sub


Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub Button_premium_Click
	oBillingManager.RequestPayment("premium", "inapp", "Developer Payload")
End Sub


Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
	If Success= True Then
		ToastMessageShow("با تشکر، خرید با موفقیت انجام شد",True)

		cur=s.ExecQuery("select * from tbl ")

		S.ExecNonQuery("UPDATE tbl SET premium = 1 ")
Else If Success=False Then
			ToastMessageShow("خرید انجام نشد، دوباره تلاش کنید" , True)
	End If

End Sub


 

اگه میشه راهنمایی کنید

 

 

به این موضوع دقت کن که روی هر گوشی استفاده میکنی حتما مایکت هم روی اون گوشی نصب باشه!!

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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