کمک برای خرید سکه درون برنامه ای

[afshin006 6]

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

dim key As String = ""
Dim GAS As String = ""
Dim oBillingManager As BillingManager3

-----------
oBillingManager.RequestPayment(GAS, "app", "pardakht")
-----------

Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase)
    If Success =True Then 
          Msgbox("Movafagh","")
    Else
         Msgbox("Na Movafagh","")
    End If
End Sub

[امین شاهدی 5,765]

کد زیر رو به ساب PurchaseCompleted اضافه کنید تا محصول مصرفی شه :

oBillingManager.ConsumeProduct(Product)

[afshin006 6]

 

کد زیر رو به ساب PurchaseCompleted اضافه کنید تا محصول مصرفی شه :

oBillingManager.ConsumeProduct(Product)

میشه لطفا توضیح بدین به کدام قسمتش اضافه کنم ؟

اگه ممکنه لطفا کد کامل را بنویسید ممنون میشم

[امین شاهدی 5,765]

Sub BillingManager_PurchaseCompleted(Success As Boolean, Product As Purchase)

    If Success =True Then 

		oBillingManager.ConsumeProduct(Product)

          Msgbox("Movafagh","")

    Else

         Msgbox("Na Movafagh","")

    End If

End Sub