با سلام خدمت تمامی دوستان. من درون پرداخت رو پیاده کردم و خرید انجام میشه و مبلغ کم میشه از اعتبار مایکتی خودم ولی درون برنامه هیچ اتفاقی نمیافته . اینم لاگ خرید:
جالبه خیلی از دوستان مشکل من رو دارن و برگشتی خرید رو نمیتونن ثبت کنن. نمیدونم ایراد از کجاست ولی جهت اطمینان کد ها رو قرار میدم. ممنون میشم یکی از دوستان ببینه و جواب بده یا اگر نمونه سورس سالمی داره که رید انجام شده، اینجا به اشتراک بزاره. خرید مصرفی هستش(خرید سکه). اینم کدهای من :
Sub Process_Globals
کتابخونه پرداخت مایکت :
Dim oBillingManager As BillingManager3
End Sub
Sub Globals
کلید پرداخت:
Dim key As String="MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDTQ+l9SlTebW2ihOEzu3UQuRhvtG25MZe.........................."
Private Button1 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("shopl")
نصب درون پرداخت :
oBillingManager.Initialize("BillingManager", key)
End Sub
دکمه خرید :
Sub Button1_Click
' oBillingManager.RequestPayment("shop1", "inapp", "kharid1")
oBillingManager.RequestPayment("shop1", "inapp", "kharid1")
End Sub
چک کردن درون پرداخت :
Sub BillingManager_BillingSupported(Supported As Boolean, Message As String)
If Supported=True Then
ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی میکند",False)
Else
ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False)
End If
End Sub
تایید خرید و اعمال سکه :
Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase)
If Success=True Then
If Product.ProductId="kharid1" Then
oBillingManager.ConsumeProduct(Product)
' pardakht.ConsumeProduct(Product)
ToastMessageShow("ده الماس و 50 سکه اضافه شد",True)
Main.coin=Main.coin +50
File.WriteString(File.DirInternal,"coinc.txt",Main.coin)
End If
End If
End Sub
سوال
vistamobile 1,700
با سلام خدمت تمامی دوستان. من درون پرداخت رو پیاده کردم و خرید انجام میشه و مبلغ کم میشه از اعتبار مایکتی خودم ولی درون برنامه هیچ اتفاقی نمیافته . اینم لاگ خرید:
*** Service (starter) Create *** ** Service (starter) Start ** ** Activity (main) Create, isFirst = true ** ** Activity (main) Resume ** ** Activity (main) Pause, UserClosed = true ** ** Activity (start_mgame) Create, isFirst = true ** ** Activity (start_mgame) Resume ** ** Activity (start_mgame) Pause, UserClosed = true ** ** Activity (shop_act) Create, isFirst = true ** ** Activity (shop_act) Resume ** requestCode = 1 ** Activity (shop_act) Pause, UserClosed = false ** sending message to waiting queue (OnActivityResult) running waiting messages (1) Arrived: 1, 1 ** Activity (shop_act) Resume **
جالبه خیلی از دوستان مشکل من رو دارن و برگشتی خرید رو نمیتونن ثبت کنن. نمیدونم ایراد از کجاست ولی جهت اطمینان کد ها رو قرار میدم. ممنون میشم یکی از دوستان ببینه و جواب بده یا اگر نمونه سورس سالمی داره که رید انجام شده، اینجا به اشتراک بزاره. خرید مصرفی هستش(خرید سکه). اینم کدهای من :
Sub Process_Globals کتابخونه پرداخت مایکت : Dim oBillingManager As BillingManager3 End Sub Sub Globals کلید پرداخت: Dim key As String="MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDTQ+l9SlTebW2ihOEzu3UQuRhvtG25MZe.........................." Private Button1 As Button End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("shopl") نصب درون پرداخت : oBillingManager.Initialize("BillingManager", key) End Sub دکمه خرید : Sub Button1_Click ' oBillingManager.RequestPayment("shop1", "inapp", "kharid1") oBillingManager.RequestPayment("shop1", "inapp", "kharid1") End Sub چک کردن درون پرداخت : Sub BillingManager_BillingSupported(Supported As Boolean, Message As String) If Supported=True Then ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی میکند",False) Else ToastMessageShow("برنامه از پرداخت درون برنامه ای پشتیبانی نمیکند",False) End If End Sub تایید خرید و اعمال سکه : Sub BillingManager_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then If Product.ProductId="kharid1" Then oBillingManager.ConsumeProduct(Product) ' pardakht.ConsumeProduct(Product) ToastMessageShow("ده الماس و 50 سکه اضافه شد",True) Main.coin=Main.coin +50 File.WriteString(File.DirInternal,"coinc.txt",Main.coin) End If End If End Sub
راستی دوستان دسترسی مانیفست رو هم دادم.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.