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
سوال
saeed120m 10
سلام دوستان
یه کتاب دارم
پرداخت درون برنامه مایکت رو توش قرار دادم
با 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 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.