اموزش جدید و بروز درون پرداخت بازار در اندروید 10 به بالا

[siyavash441 14]

سلام دوستان 

این یک نمونه سورس برای درون پرداخت بازار هست که با متد جدید و کتابخانه خود بازار به نام پولکی ساخته شده  البته نمونه سورسش تو خود کافه بازار هست ولی بنده برای راحتی کار شما دوستان با تغییرات اندکی این سورس را کامل کردم ودر اختیارتون قرار میدم امیدوارم مورد استفاده تون قرار بگیره

 

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: True
#End Region

  

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.
	'10_Coin

	Private PurchaseOrSubscribe As Boolean


	'
	
		

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	
	Dim Poolakey As Poolakey
	
	
	
	
	
	Dim MaxT As String
	Dim scvText As ScrollView
	Dim StrUtil As StringUtils

	Private Button_Buy As Button
	Private Label1 As Label
	Private LBLMATN As Label


	Private LBLMATN As Label
	Private pay_btn As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("BuyLayout")
	
	
	Poolakey.Initialize _
		.EnableSecurityCheck("توکن دریافتی از بازار در اینجا قرار دهید همون کلید برنامه") _
		.Build
		
	StartPaymentConnection
	
	
	
	

End Sub



Sub Activity_Pause (UserClosed As Boolean)
	If UserClosed Then Poolakey.Connection.Disconnect
End Sub





Sub Activity_Resume
	LoadConnectionStatus
End Sub
#Region Connection
Private Sub StartPaymentConnection
	Poolakey.Connect("Poolakey")
End Sub

Private Sub LoadConnectionStatus
	If IsPaused(Me) Then Return
	If Poolakey.Connection.HasConnected Then
		
	Else If Poolakey.Connection.HasFailedToConnect Then
		
	Else
	
	End If
End Sub

Private Sub Poolakey_ConnectionSucceed
	LoadConnectionStatus
End Sub

Private Sub Poolakey_Disconnected
	LoadConnectionStatus
End Sub

Private Sub Poolakey_ConnectionFailed (Error As PoolakeyException)
	ToastMessageShow(Error, True)
	LoadConnectionStatus
End Sub
#End Region

Private Sub Purchase(WithDynamicPriceToken As Boolean)
	Dim Request As PoolakeyPurchaseRequest
	Request.ProductId = "ایدی برنامه تون را در اینجا قرار بدید" 
	Request.Payload = "purchasePayload"
	If WithDynamicPriceToken Then
		Request.DynamicPriceToken = ""
	End If
	If PurchaseOrSubscribe Then
		Poolakey.PurchaseProduct("Purchase", Request)
	Else
		Poolakey.SubscribeProduct("Purchase", Request)
	End If
End Sub

Private Sub Purchase_PurchaseFlowBegan
	ToastMessageShow("درحال اتصال به درگاه امن کافه بازار...", False)
End Sub

Private Sub Purchase_PurchaseFailedToBeginFlow (Error As PoolakeyException)
	' bazaar need to update, in this case we only launch purchase without discount
	If Error.IsDynamicPriceNotSupportedException Then
		ToastMessageShow("Dynamic price token not supported in this bazaar version", False)
		Purchase(False)
	Else
		ToastMessageShow("اتصال ناموفق بود: " & Error, False)
	End If
End Sub

Private Sub Purchase_PurchaseSucceed (PurchaseInfo As PoolakeyPurchaseInfo)
	ToastMessageShow("خرید انجام شد", False)
	Msgbox(" تمام منو ها بدون محدودیت باز شد با تشکر از خرید شما","")
    
	Save_IsFullVaserion1("True") >> این یک فایل تکست هست که در صورت موفق بودن خرید در حافظه گوشی ذخیره میشه بعدا میتونید چگ کنید که این فایل وجود داره یانه اگر وجود دشت یعنی خرید انجام شده ومیتونید منو تون یا اون بخش مورد نظرتون را فعال کنید اگر هم وجود نداشت یعنی هنوز خرید انجام نشده
End Sub

Private Sub Purchase_PurchaseCanceled
	ToastMessageShow("Purchase Cancelled", False)
End Sub

Private Sub Purchase_PurchaseFailed (Error As PoolakeyException)
	ToastMessageShow("Purchase failed: " & Error, False)
	Msgbox("متاسفانه خرید با مشکل مواجه شد لطفا دوباره امتحان نمایید درصورت بروز مشکل با ما تماس بگیرید   ","خرید ناموفق")
	Save_IsFullVaserion1("FALSE")
End Sub
#End Region

#Region Consume Purchase
Private Sub ConsumePurchasedItem(PurchaseToken As String)
	Poolakey.ConsumeProduct("Consume", PurchaseToken)
End Sub

Private Sub Consume_ConsumeSucceed
	ToastMessageShow("Consume succeed", False)
End Sub

Private Sub Consume_ConsumeFailed (Error As PoolakeyException)
	ToastMessageShow("Consume failed: " & Error, False)
End Sub
#End Region
Private Sub Query_QuerySucceed (Query As PoolakeyPurchaseQuery)
	If Query.GetByProductId("") == Null Then
		ToastMessageShow("User has not bought this item", False)
	Else
		ToastMessageShow("User has bought this item", False)
	End If
End Sub

Private Sub Query_QueryFailed (Error As PoolakeyException)
	ToastMessageShow("Query failed: " & Error, False)
End Sub
#End Region


 Private Sub Trial_CheckTrialSubscriptionSucceed (Info As PoolakeyTrialSubscriptionInfo)
	ToastMessageShow(Info, False)
End Sub

Private Sub Trial_CheckTrialSubscriptionFailed (Error As PoolakeyException)
	ToastMessageShow(Error, False)
End Sub
#End Region

Private Sub Sku_GetSkuDetailsSucceed (Query As PoolakeySkuDetailsQuery)
	ToastMessageShow(Query, False)
End Sub

Private Sub Sku_GetSkuDetailsFailed (Error As PoolakeyException)
	ToastMessageShow("Get sku detail failed: " & Error, False)
End Sub
#End Region





Sub  BM_PurchaseCompleted ()
	
	
		Msgbox("با تشکر از خرید شما","")
		Save_IsFullVaserion1("True")
 
				
		Msgbox("با تشکر از خرید شما  تمامی قسمت های برنامه بدون محدویت در اختیار شماست امیدواریم برنامه مورد پسند ورضایت شما واقع شده باشد درصورت برزو هرگونه مشکل  ازطریق ایمیل  [email protected] با مکاتبه نمایید  ","خرید موفقعیت امیز بود")

		Msgbox("متاسفانه خرید با مشکل مواجه شد لطفا دوباره امتحان نمایید درصورت بروز مشکل با ما تماس بگیرید  [email protected] ","خرید ناموفق")
		Save_IsFullVaserion1("FALSE")
	
End Sub


  



Sub Save_IsFullVaserion1(bStatus As String )
	File.WriteString( File.DirInternal , "isFullVersion1" , bStatus)
	

End Sub

 باتن پرداخت وقتی این باتن کلیک شود کاربر به درگاه پرداخت برنامه شما هدایت میشود و پرداخت را انجام میدهد 
Sub pay_btn_Click


	If Not(Poolakey.Connection.HasConnected) Then Return
	PurchaseOrSubscribe = True
	Purchase(True)

End Sub

هرکجاش مشکلی داشتید بفرمایید