پرداخت درون برنامه ای

[alizareking75 1]

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

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

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

لطفا راهنماییم کنید

Sub Globals
    Dim inapp As BillingManager3
    Dim issupport As Boolean=False
    Dim Volley As AriaVolley
    Dim publicuu As String="کلید"
    Dim msequr As M_Secure_SharedPrefrence
    Dim rr As RuntimePermissions

    Private partext As Label
    Private Butto As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("pay")
    inapp.Initialize("bazarinapp",publicuu)
    Volley.Initialize("Volley")
    msequr.initialize("mypasss")
    rr.CheckAndRequest("com.farsitel.bazaar.permission.PAY_THROUGH_BAZAAR")
    Dim isactive As Boolean=msequr.getsecurBoolean("ispurchase",False)

    updateui(isactive)
End Sub

Sub bazarinapp_PurchaseCompleted (Success As Boolean, Product As Purchase)
    If Success Then
        Try
            Volley.AddQueue(Volley.CreateJsonRequest(getlink(Product),Volley.GET))
            Volley.Start
        Catch
            ToastMessageShow("error : " & LastException,False)
        End Try
    Else
        ToastMessageShow("پرداخت انجام نشد",False)
    End If
End Sub
Sub bazarinapp_BillingSupported (Supported As Boolean, Message As String)
    If Supported Then
        issupport=True
        ToastMessageShow("supoort",False)
    End If
End Sub
Sub Volley_OnError (Error As String)
    ToastMessageShow("لطفا برای هک برنامه تلاش نفرمایید :)",False)
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
    If Result Then inapp.Initialize("bazarinapp",publicuu)
End Sub
Sub getlink(Product As Purchase) As String
    Dim jo As JavaObject = Product
    Dim raw As String = jo.RunMethod("getOriginalJson", Null)
    Dim parser As JSONParser
    parser.Initialize(raw)
    Dim getelement As Map = parser.NextObject
    Dim packageName As String = getelement.Get("packageName")
    Dim purchaseToken As String = getelement.Get("purchaseToken")
    Dim productId As String = getelement.Get("productId")
    Dim accesstoken As String = "توکن"
    Dim link As String= "https://pardakht.cafebazaar.ir/devapi/v2/api/validate/"&packageName&"/inapp/"&productId&"/purchases/"&purchaseToken&"/?access_token="&accesstoken
    Return link
End Sub

Sub Volley_OnJsonResponse (JSON As AriaJsonObject)
    If JSON.Get("purchaseState")=0 Then
        ToastMessageShow("پرداخت انجام شد",False)
        msequr.savesecurBoolean("ispurchase",True)
        aaa=True
        updateui(True)
    Else
        ToastMessageShow("پرداخت انجام نشد !!",False)
    End If
End Sub

Sub updateui(isactive As Boolean)
    If isactive Then partext.Text="Active"
End Sub

Sub btn_Click
    If issupport Then
        inapp.RequestPayment("myporch","inapp","kingoff")
    End If
End Sub
 

اگه بخوام دوتا خرید جداگانه در دو اکتیویتی دیگه انجام بدم باید چکار کنم

لطفا رواهنماییم کنید

[ali mo 262]

در 5 ساعت قبل، alizareking75 گفته است :

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

سلام وقت بخیر

خیلی راحت دوست عزیز

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

				File.MakeDir(File.DirInternal,"name_posh")

که name_posh می تونه هر چی باشه

بعد برای تست کافیه ابتدا ساب زیر رو یه جای پروژه تون اضافه کنید داخل همون اکتویتی

Sub test_boy1 As Boolean
		Return File.Exists(File.DirInternal,"name_posh")
End Sub

بعد به راحتی برای بررسی خرید بیایید چک کنید که تست بوی true یا false

	
	If tools.test_boy1 = True Then
		'پرداخت صورت گرفته
		
	End If

اگه true بود کار مورد نظر تون انجام بدید

موفق باشید

[Ali103 4]

سلام

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

بعد باید بگین وقتی که خرید انجام شد یک فایل در dirinteral ایجاد بشه.

برای هر خرید یک اکتویتی جداگانه بسازین و همین کدها را با کلید عمومی مشترک توش کپی کنین و فقط شناسه رو عوض کنین و بگین که اگه توی این اکتویتی هم یک فایل در dirinteral ایجاد کنه و سپس به رویداد کلیک دکمه یا دکمه های مورد نظر بگین که اگه این فایل هایی که پس از خرید ایجاد شد وجود داشت بیا محتوا رو نشون بده در غیر اینصورت به اکتویتی خرید برو تا کاربر خریدش رو انجام بده!

در صورت نیاز به راهنمایی بیشتر در خدمتون هستم!

[alizareking75 1]

در 19 ساعت قبل، Ali103 گفته است :

سلام

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

بعد باید بگین وقتی که خرید انجام شد یک فایل در dirinteral ایجاد بشه.

برای هر خرید یک اکتویتی جداگانه بسازین و همین کدها را با کلید عمومی مشترک توش کپی کنین و فقط شناسه رو عوض کنین و بگین که اگه توی این اکتویتی هم یک فایل در dirinteral ایجاد کنه و سپس به رویداد کلیک دکمه یا دکمه های مورد نظر بگین که اگه این فایل هایی که پس از خرید ایجاد شد وجود داشت بیا محتوا رو نشون بده در غیر اینصورت به اکتویتی خرید برو تا کاربر خریدش رو انجام بده!

در صورت نیاز به راهنمایی بیشتر در خدمتون هستم!

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

[alizareking75 1]

در 15 ساعت قبل، ali mo گفته است :

سلام وقت بخیر

خیلی راحت دوست عزیز

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

				File.MakeDir(File.DirInternal,"name_posh")

که name_posh می تونه هر چی باشه

بعد برای تست کافیه ابتدا ساب زیر رو یه جای پروژه تون اضافه کنید داخل همون اکتویتی

Sub test_boy1 As Boolean
		Return File.Exists(File.DirInternal,"name_posh")
End Sub

بعد به راحتی برای بررسی خرید بیایید چک کنید که تست بوی true یا false

	
	If tools.test_boy1 = True Then
		'پرداخت صورت گرفته
		
	End If

اگه true بود کار مورد نظر تون انجام بدید

موفق باشید

ممنون از کمکتون