این کد های منه تنها مشکلی که دار اینه که موقعی که میخوام لیست خرید هارو بگیرم تا ببینم قبلا خریده یا نه ارور بالایی رو میده .همون attemp to read ...
Private Sub mypay_onIabSetupFinished(result As IabResult)
If result.isSuccessful = True Then
Try
InAppBilling.launchPurchaseFlow("sku",DeveloperPayload)
Catch
Log(LastException)
End Try
Else
Log(result.ErrorMsg)
End If
End Sub
Private Sub mypay_onIabPurchaseFinished (result As IabResult , purchase As Purchase)
If result.isSuccessful = True And purchase.DeveloperPayload = DeveloperPayload Then
ToastMessageShow("خرید شما با موفقیت انجام شد",True)
Else
InAppBilling.queryInventoryAsync
End If
End Sub
Private Sub mypay_onQueryInventoryFinished (result As IabResult,inventory As Inventory)
If result.isSuccessful = True And purchase.hasPurchase("sku") = True Then
ToastMessageShow("نسخه کامل قبلا خریداری شده است",True)
Else
ToastMessageShow("پرداخت ناموفق بود",True)
End If
End Sub