مشکل "پرداخت درون برنامه ای مایکت را درج نمایید."

[s2m 10]

سلام به همه دوستان

من دیشب یه برنامه در مایکت قرار دادم که خرید درون برنامه داره

الان مدیر مایکت میگه: "پرداخت درون برنامه ای مایکت را درج نمایید."

و برنامم رو رد کرده، کسی هست بدونه چه باید بکنم؟

[Negan 1,300]

قسمت کد پرداخت درون برنامه رو بزارید

البته کلد عمومی رو از توش وردارین اول

 

تا بتونیم کمکتون کنیم 

[s2m 10]

ممنون   خدمت شما

Sub Process_Globals

    Private key As String = "key"
    Private oBillingManager As BillingManager3
    End Sub


    Sub Activity_Create(FirstTime As Boolean)
                oBillingManager.Initialize("BillingManager", key)
    End Sub


	    Sub btnBuyStar_Click
oBillingManager.RequestPayment(SKU_Star, "inapp", "Developer Payload")   
    End Sub



		Sub BillingManager_BillingSupported (Supported As Boolean, Message As String)
		   	Log("BillingSupported: " & Supported & ", " & Message)
			Log("Subscriptions supported: " & oBillingManager.SubscriptionsSupported)
			
			If Supported = True Then
		   		blnIsoBillingManagerAvailable = True 
			End If
		   
		    If blnIsoBillingManagerAvailable = True Then

		   		oBillingManager.GetOwnedProducts
			End If
		End Sub


		Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase)
			Log("Is Purchase State: " & Success)
			
			If Success Then 

				ToastMessageShow("خرید موفق",False)
				oBillingManager.ConsumeProduct(Product)
			Else
				Log("PurchaseCompleted: Unsuccess")
				ToastMessageShow("خرید نا موفق",False)
			End If
		End Sub


		Sub BillingManager_ProductConsumed (Success As Boolean, Product As Purchase)
			Log("Product ( " & Product.ProductId & " ) Consume : " & Success )
			If Success = True Then
		  		If Product.ProductId = SKU_Money Then
					AddMoney
				Else If Product.ProductId = SKU_Star Then
					AddStar	
				End If 
			End If
		End Sub


		Sub BillingManager_OwnedProducts(Success As Boolean, purchases As Map)
			Log("Product owned : " & Success)

			If Success Then
			    Log(purchases.Values)
				For Each P As Purchase In purchases.Values
					Log("type : " & P.ItemType & "/" & P.DeveloperPayload) 
					oBillingManager.ConsumeProduct(P)


					Log(P.ProductId & ", Purchased? " & (P.PurchaseState = P.STATE_PURCHASED))
				Next
			End If
		End Sub

	#End Region

[Negan 1,300]

والا الان ک نگاه میکنم مشکلی توی کد نیست مطمئنید کلید عمومی و شناسه محصول رو درست وارد میکنی ؟

[s2m 10]

والا الان ک نگاه میکنم مشکلی توی کد نیست مطمئنید کلید عمومی و شناسه محصول رو درست وارد میکنی ؟

آره الان دوباره چک کردم نمیفهمم منظورش از "پرداخت درون برنامه ای مایکت را درج نمایید." چیه!!!؟؟؟؟

برنامه رو تست کردم و کاملا کار میکنه؟ خرید هم انجام میشه، نمیدونم براچی رد کرده برنامه رو؟

[porya 959]

سلام شما دسترسی زیر رو وارد کردید...

AddPermission(ir.mservices.market.BILLING)

[s2m 10]

سلام

آره در فایل مانیفست وارد کردم برا همین نمیفهمم منظور از این خطا چیه؟!!؟ :wacko1:

[s2m 10]

با سلام خدمت دوستان اومدم بگم که مشکل این بود که در نرم افزارم از پرداخت درون برنامه ای ایران اپس هم همزمان استفاده کرده بودم و مایکت اجازه این کار رو نمیده

با حذفش مشکل رفع شد.