مشکل با درون پرداخت مایکت

[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

 

 

تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر

 

 

 

 

 

 

 

[ali mo 264]

در 4 ساعت قبل، vistamobile گفته است :

سلام. من طبق آموزشها جلو رفتم واسه درون پرداخت مایکت تو 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

 

 

تراکنش انجام میشه و خرید صورت میگیره ولی وقتی برمیگرده تو بازی ، سکه ها اضافه نمیشه. من چند ساله با درون پرداخت کافه بازار مشکلی ندارم ولی تو مایکت اولین بارمه و خیلی عجیبه. خواستم از دوستان کمک بگیرم ببینم دلیلش چیه که بعد تراکنش هیچ اتفاقی نمیافته. تشکر

 

 

 

 

 

 

 

سلام و درود

oBillingManager.RequestPayment("50coin", "inapp", "kharid1")

 

دقیق یادم نیست ولی برو داخل خود سایت مایکت مستندات نگاه کن

پارمتر inapp باید یه چی دیگه بشه برای محصولات مصرفی(شاید)

اگر مشکلی از این نبود

If Product.ProductId="kharid1" Then

 

قبل از این کدت یه لاگ بگیر ببین اصلا داخل ساب میاد و مقدار ترو بر می گردونه

[vistamobile 1,700]

در 2 ساعت قبل، alimo1999 گفته است :

سلام و درود

oBillingManager.RequestPayment("50coin", "inapp", "kharid1")

 

دقیق یادم نیست ولی برو داخل خود سایت مایکت مستندات نگاه کن

پارمتر inapp باید یه چی دیگه بشه برای محصولات مصرفی(شاید)

اگر مشکلی از این نبود

If Product.ProductId="kharid1" Then

 

قبل از این کدت یه لاگ بگیر ببین اصلا داخل ساب میاد و مقدار ترو بر می گردونه

سلام. واسه نکته اولت :

oBillingManager.RequestPayment("gas", "inapp", "DeveloperPayload")

این کد پیشنهادی واسه محصولات مصرفی و subs برای محصولات اشتراکیه. و اینکه لاگ نگرفتم وای الان میرم تست کنم ببینم میشه یانه