ببینید عزیز من ایده کلی رو بهتون میدم شما دیگه خودتون تکمیلش کنید و بالا پایین کردناشو انجام بدین
اول یه کلاس به اسم Payment ایجاد کنید
Sub Class_Globals
Private poolakey As Poolakey
Private myketBill As MyketBilling
Private eventName As String="billing"
Private publicKey As String="......."
Private market As String
Private connected As Boolean=False
Private module As Object
End Sub
Public Sub Initialize(mMarket As String,mModule As Object)
market=mMarket
module=mModule
If market="bazaar" Then
setupPoolakey
Else
setupMyket
End If
End Sub
Private Sub setupPoolakey
poolakey.init(publicKey,eventName)
poolakey.connect
End Sub
Private Sub setupMyket
myketBill.initialize(eventName,publicKey)
End Sub
Public Sub purchase(productId As String,payload As String)
If connected==False Then
ToastMessageShow("ارتباط با مارکت برقرار نشد",False)
Return
End If
If market="bazaar" Then
poolakey.purchaseProduct(productId,payload)
Else
myketBill.launchPurchaseFlow(productId,payload)
End If
End Sub
Private Sub billing_connectionSucceed
connected=True
End Sub
Private Sub billing_onIabSetupFinished(result As IabResult)
connected = result.isSuccessful
End Sub
Private Sub billing_purchaseSucceed(purchaseInfo As PurchaseInfo)
CallSubDelayed3(module,"handlePurchase",True,purchaseInfo.purchaseToken)
End Sub
Private Sub billing_purchaseFailed(error As String)
CallSubDelayed3(module,"handlePurchase",False,Null)
End Sub
Private Sub billing_onIabPurchaseFinished(r As IabResult,p As Purchase)
CallSubDelayed3(module,"handlePurchase",r.isSuccessful,p.Token)
End Sub
حالا کافیه توی اکتیویتی به شکل زیر استفاده کنید
Dim paymant As Payment
paymant.Initialize("bazaar",Me)
paymant.purchase("productId","payload")
Public Sub handlePurchase(success As Boolean,token As String)
End Sub