رفتن به مطلب
  • 0

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


afshin006

سوال

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

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

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

3 پاسخ به این سوال تاکنون داده شده است

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

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

oBillingManager.ConsumeProduct(Product)
لینک ارسال
به اشتراک گذاری در سایت های دیگر

 

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

oBillingManager.ConsumeProduct(Product)

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

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

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

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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