رفتن به مطلب

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


s2m

ارسال های توصیه شده

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...