برای من مشکلی وجود نداره و من تا به حال خودم به چنین مشکلی برنخوردم. اما بعضی از کاربران توی نظرات برنامه میگن سکه خریدیم واریز نشد.
از لحاظ برنامه نویسی هم مشکلی نداره بعد خرید اگه اون تابع onIabPurchaseFinished صدا زده بشه باید سکه براشون واریز بشه ولی فکر کنم این تابع صدا زده نمیشه...
Private Sub myket_onIabPurchaseFinished(result As IabResult,purchase As Purchase)
Try
If purchase.IsInitialized Then
If result.isSuccessful=True Then
CallSubDelayed2(Me,"consumeAsync",purchase)
Else
MyToast.ToastMessage("پرداخت ناموفق بود",False)
End If
End If
Catch
MyToast.ToastMessage("خطایی رخ داد",False)
End Try
End Sub
Sub consumeAsync(purchase As Purchase)
Try
adp.creat_map.Clear
adp.creat_map.Put("ac",5)
adp.creat_map.Put("acc",2)
adp.creat_map.Put("orderId",purchase.orderId)
adp.creat_map.Put("productId",purchase.Sku)
adp.creat_map.Put("purchaseTime",purchase.purchaseTime)
adp.host(Me,panelmain,panelmain,True,"hd1","puy_eshterak","update1/sign",adp.creat_map)
myket.consumeAsync(purchase)
Catch
MyToast.ToastMessage("پرداخت ناموفق بود",False)
End Try
End Sub