مشکل در پرداخت درون برنامه ای
سلام خدمت همه اساتید .
برای برنامم پرداخت درون برنامه ای گذاشتم ولی زمانیکه برای تست برنامه و عملکردش رو گزینه مربوطه کلیک میکنم که پرداخت انجام بگیره یک پیغام از طرف بازار میاد و نوشته لطفا صبر کنید . البته این پیغام در حد یک ثانیه میاد و میره و بعدشم هیچ اتفاقی نمیوفته و تو قسمت لُگ برنامه بیسیک همچین چیزی مینویسه . کسی میدونه مشکل کجاست ؟
**requestCode = 1~i:** Activity (buy) Pause, UserClosed = false
sending message to waiting queue (OnActivityResult)running waiting messages (1)Arrived: 1, 1
اینم کدی که تو برنامه موجوده :
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ ۲۷ ۲۸ ۲۹ ۳۰ ۳۱ ۳۲ |
Sub Process_Globals Dim bm As BillingManager3 Dim key As String = "MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBr......" End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("buylayout") bm.Initialize("bm", key) If File.Exists(File.DirInternal,"k.txt")=True Then ' bsbanner.DisableBannerAds ' Else ' bsbanner.EnableBannerAds ' End If End Sub Sub Label6_Click Try bm.RequestPayment("full","inapp","test") ' Catch ' Msgbox("لطفا مارکت بازار را نصب و سپس اقدام نمایید","مارکت بازار") ' End Try End Sub Sub bm_PurchaseCompleted (Success As Boolean, Product As Purchase) If Success=True Then ToastMessageShow("با موفقیت پرداخت شد",True) File.Writestring(File.DirInternal,"k.txt","as") bsbanner.DisableBannerAds Else ToastMessageShow("خطا در پرداخت",True) End If End Sub |
پاسخ ها ( 3 )
سلام.
میشه پارامترهایی که توی این خط نوشتی رو توضیح بدی؟
full که شناسه برنامه ای هست که تو پنل برنامه نویسان بازار خودم براش مشخص کردم و اون inapp که ثابته و برای خرید کردن باید همین عبارت نوشته بشه و اون testام که مقدار developer payload هستشه
این خط رو ببینید:
اولین پارامترو که درست زدی.
دومیش هم ظاهرا درسته.
اما سومین پارامتر باید آی دیه دستگاه طرف باشه که این مسئله امنیت برنامه رو بالا میبره و شخص نمیتونه تقلب کنه
اما من نمیدونم این پارامتر test که فرستادید، چی بوده.
شاید مشکل از این باشه.
اصلاح کنید، ببینید بازم مشکل داره.
این اخریه که مشخص کردین مقداریه که برنامه نویس برای بالا بردم امنیت پرداخت درون برنامه ای میزاره و یکی میاد سریال گوشیا میگیره مثه همین مثال یا یکی میاد ی جمله ای میفرسته به سمت سرور بازار و یا اصلا میشه از این گزینه استفاده نکرد .
مشکل از این نیست متاسفانه
پس شما یه بریک پوینت بگیر، ببین ساب Sub bm_PurchaseCompleted اجرا میکنه یا نه.