Sub Button1_Click
oBillingManager.RequestPayment("50coin", "inapp", "kharid1")
' گفتم بیاد 50 تا سکه بخره
End Sub
5 - بعد هم اومدم چک کردم خرید موفق بود سکه اضافه بشه:
Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success=True Then
If Product.ProductId="kharid1" Then
oBillingManager.ConsumeProduct(Product)
Main.coin = Main.coin + 51
File.WriteString(File.DirInternal,"sekke.txt",Main.sekke)
Msgbox("تبریک","انجام شد")
end if
End If
end sub
تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر
سوال
vistamobile 1,700
سلام. من طبق آموزشها جلو رفتم واسه درون پرداخت مایکت تو b4a:
1 - اولش تو مانیفست دسترسی دادم :
AddPermission(ir.mservices.market.BILLING)
2 - بعدش معرفیش کردم تو global :
' درون پرداخت مایکت Dim key As String="MIGfMA0GCSqGSIb3DQEBAQ......" Dim oBillingManager As BillingManager3
3 -بعد نصبش کردم تو activty create :
oBillingManager.Initialize("BillingManager", key) '
4 - و بعد تو کلید خریدم دستور پرداخت رو گذاشتم :
Sub Button1_Click oBillingManager.RequestPayment("50coin", "inapp", "kharid1") ' گفتم بیاد 50 تا سکه بخره End Sub
5 - بعد هم اومدم چک کردم خرید موفق بود سکه اضافه بشه:
Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then If Product.ProductId="kharid1" Then oBillingManager.ConsumeProduct(Product) Main.coin = Main.coin + 51 File.WriteString(File.DirInternal,"sekke.txt",Main.sekke) Msgbox("تبریک","انجام شد") end if End If end sub
تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
2 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.