انجام عمل پس از درون پرداخت

[amir386 39]

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

[amir386 39]

در 39 دقیقه قبل، نورنما گفته است :

سلام سلامت باشید

ببینید توی کافه بازار نوع محصول رو خریدنی انتخاب کرده اید ؟ نباید نوع محصولتان اشتراکی و... باشه والا همینطور میشه  

ضمنا در این سطر :

pardakht.requestpayment("testinapp","inapp","testinapp")         نگاه کنید دوتا (testinapp) هست شاید جای ایندو رو باهم اشتباه می نویسید ؟یکی نامی هست که خودتان واسه محصول داخل برنامه  می نویسید ودیگری نامی هست که به کافه بازار ارسال میشه اگه ایندوتارو در دستورات جابجا بنویسید هم این مشکل پیش خواهد آمد.لذا من همیشه ایندوتا رو همنام میذارم تا برنامه پیچیده نشه وبه مشکلی برنخورم  مثلا:

pardakht.requestpayment("testinapp400","inapp","testinapp400")

pardakht.requestpayment("testinapp500","inapp","testinapp500")

pardakht.requestpayment("testinapp600","inapp","testinapp600")

نام سه محصوله

ضمنا یکبار سر خودم آمد وقتی نام ایندو رو جابجا واشتباهی نوشته بودم ، برنامه رو اجرا کردم ، رفت و در هاست کافه بازار اشتباهی ثبت شد و هرچه قدر روش کار کردم همین ارور شما رو میداد به کافه بازار مکاتبه کردم ، نهایت مشکل اینجور حل شد که یک محصول جدید با نام جدید ایجاد کردم و قبلی رو بیخیال شدم وباکدهای صحیح برنامه رو اجرا کردم ومشکل حل شد ، شما هم نام کالا رو عوض کنید  وشناسه ای بانام  جدید برایش درست کنید و اینبار برنامه رو اجرا کنید .ان شاء الله مشکل حل میشه.

باز میگم : شناسه ها ونوع محصول ونام محصول بایکبار اجرای برنامه میره ودر هاست کافه بازار ذخیره میشه وخصوصیات کالا دیگه قابل تغییر هم نیست  

 

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

[نورنما 613]

کدهاتونو بااخرین تغییراتتون بفرستید تا یه نگاهی بیاندازم . 

[amir386 39]

در ۱ ساعت قبل، نورنما گفته است :

کدهاتونو بااخرین تغییراتتون بفرستید تا یه نگاهی بیاندازم . 

 

Sub Globals 

Dim IA As InAppBillingBazaar
	Private Key As String = "MIHNMA0GCSqGSI
end sub



Sub Activity_Create(FirstTime As Boolean)

IA.Initialize("InApp",Key)

end Sub




sub button1_click
	IA.RequestPayment("hooof","inapp","hooof")
end sub




Sub InApp_PurchaseCompleted (Success As Boolean, Product As Purchase)
	
	If Success Then
		If Product.DeveloperPayload = "hooof" Then
		IA.ConsumeProduct(Product)
		ToastMessageShow("با موفقیت پرداخت شد",True)
	File.Writestring(File.DirInternal,"rr.txt","hey")
		
	Else
		ToastMessageShow("خطا در پرداخت",True)
		End If
	End If
End Sub

اینم کد کد RSA بازار تو برنامه کامله ها البت....

[نورنما 613]

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

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals 

Dim IA As BillingManager3
	Private Key As String = "MIHNMA0GCSqGSIb3DQEBA"
	Private button1 As Button
End Sub



Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("pardakht")

IA.Initialize("IA",Key)

End Sub




Sub button1_click
	
	IA.requestpayment("hooof2","inapp","hooof2")
End Sub




Sub IAa_PurchaseCompleted (Success As Boolean, Product As Purchase)
	
	If Success Then
		If Product.DeveloperPayload = "hooof2" Then
		'IA.ConsumeProduct(Product)
		ToastMessageShow("با موفقیت پرداخت شد",True)
	File.Writestring(File.DirInternal,"rr.txt","hey")
		
	Else
		ToastMessageShow("خطا در پرداخت",True)
		End If
	End If
End Sub

 

کتابخانه کافه بازار 

bazzar_lib

[amir386 39]

در 8 ساعت قبل، نورنما گفته است :

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

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals 

Dim IA As BillingManager3
	Private Key As String = "MIHNMA0GCSqGSIb3DQEBA"
	Private button1 As Button
End Sub



Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("pardakht")

IA.Initialize("IA",Key)

End Sub




Sub button1_click
	
	IA.requestpayment("hooof2","inapp","hooof2")
End Sub




Sub IAa_PurchaseCompleted (Success As Boolean, Product As Purchase)
	
	If Success Then
		If Product.DeveloperPayload = "hooof2" Then
		'IA.ConsumeProduct(Product)
		ToastMessageShow("با موفقیت پرداخت شد",True)
	File.Writestring(File.DirInternal,"rr.txt","hey")
		
	Else
		ToastMessageShow("خطا در پرداخت",True)
		End If
	End If
End Sub

 

کتابخانه کافه بازار 

bazzar_lib

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

(SecurityException) java.lang.SecurityException: Not allowed to bind to service Intent { act=ir.cafebazaar.pardakht.InAppBillingService.BIND pkg = com.farsitel.bazaar }

اینم ارورشه

[نورنما 613]

سلام

کتابخانه قبلیتان رو باید غیرفعال کنید 

این سطر زیر رو هم باید به مانیفست نرم افزارتون طبق مستندات کافه بازار اضافه کنید.

AddPermission("com.farsitel.bazaar.permission.PAY_THROUGH_BAZAAR")

 

[amir386 39]

اون درست شد ابن ارور جدید موقعی که میخواد صفحه پرداختو باز کنه

Unable to buy item (response: 3:Billing Unavailable)

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

[نورنما 613]

دیگه مسئله اینقدرهم پیچیده نیست که! 

اون شناسه محصول hooof2  روقبلا من بایک حساب کاربری دیگه ای استفاده کرده ام ونباید استفاده کنید. اینم سورس که بی عیب کارمیکنه وفقط خریدیکبارانجام میشه

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

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

[RoyaPM 538]

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

میتونی برای امنیت بالا از سریال گوشی و یا imei گوشی با تلفیق چند عبارت دیگه و رمزنگاری کردن اون، چک خرید رو انجام بدی (هنگام خرید اینا باید ذخیره بشه)

[amir386 39]

در 26 دقیقه قبل، RoyaPM گفته است :

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

میتونی برای امنیت بالا از سریال گوشی و یا imei گوشی با تلفیق چند عبارت دیگه و رمزنگاری کردن اون، چک خرید رو انجام بدی (هنگام خرید اینا باید ذخیره بشه)

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

[amir386 39]

در 22 ساعت قبل، نورنما گفته است :

دیگه مسئله اینقدرهم پیچیده نیست که! 

اون شناسه محصول hooof2  روقبلا من بایک حساب کاربری دیگه ای استفاده کرده ام ونباید استفاده کنید. اینم سورس که بی عیب کارمیکنه وفقط خریدیکبارانجام میشه

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

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

از پاسخ های پیاپی ت متشکرم..! مشکلم حل شد جبران میکنم..! آخرین ارور هم بخاطر پکیج نیم بود چون داشتم از سورس تستی استفاده میکردم. باید پکیج نیم برنامه تستی با اونی که تو بازار داری یکی باشه..

[amir386 39]

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

[abbas2142 557]

در در 1396/05/18, 23:58:03، amir386 گفته است :

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

سلام

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

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

یعنی مثلا کتابی درست کردم و کاربر فقط فصل یکش رو رایگان می دید و بقیه فصل هاش پولی بود 

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

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

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

[نورنما 613]

در در 1396/05/18, 23:58:03، amir386 گفته است :

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

سلام 

فرمودید :

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

خب فایل ودیتابیس ازبین بره ! چه اشکالی داره؟

اولا  یک کد رو که مثلا با MD5 رمزنگاری کرده اید داخل فایل یا دیتابیس ذخیره کنید (اون کد می تونه مثلا سریال گوشی یا سیم کارت کاربرباشه به همراه یک کلمه اختیاری خودتان! که کدگذاری میشه ). بعدش داخل برنامه اول شروع برنامه ،برنامه چک میکنه ببینه آیا اون فایله یا اون متن دیتابیس هست یا نه ؟ کد داخل اون چی ؟آیا کد هم صحیح است یانه ؟ اگر صحیح بودکه متغیرتان مثلا برابر عدد یک میشه که بعدش هرجا برابر یک بود برنامه کامل رو ارائه میده والا متغییرتان برابر صفر باشه که دراینصورت دکمه خرید روشن وفعال میشه ، وکاربربا زدن دکمه خرید باحساب کاربریش اگر نتیجه خرید فعلی یاسابقش مثبت بود آنگاه دوباره فایل متنی همراه بامتن کدگذاری شده تان  تولیدیادیتابیستان دوباره تکمیل میشه ومتغیرتان هم برابر یک میشه! طبق فرموده آقا abbas2142 برنامه تان هزاربارهم پاک بشه دوباره کاربربا همان حساب کاربریش دکمه خرید روبزنه بااین روش حتما بدون هیچ پرداخت دوباره ای برنامه اش فعال خواهد شدوفایل دوباره تولیدمیشه.البته کنار این روش یک چندتا آموزش مقابله با هک درون برنامه ای انجمن رو هم ببینید تامنافذامنیتی مارکتهایی همچون کافه بازار رو هم سدکنیدو احتمال هک نزدیک به صفر بشه 

 

[amir386 39]

در 17 ساعت قبل، abbas2142 گفته است :

سلام

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

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

یعنی مثلا کتابی درست کردم و کاربر فقط فصل یکش رو رایگان می دید و بقیه فصل هاش پولی بود 

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

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

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

 

در 7 ساعت قبل، نورنما گفته است :

سلام 

فرمودید :

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

خب فایل ودیتابیس ازبین بره ! چه اشکالی داره؟

اولا  یک کد رو که مثلا با MD5 رمزنگاری کرده اید داخل فایل یا دیتابیس ذخیره کنید (اون کد می تونه مثلا سریال گوشی یا سیم کارت کاربرباشه به همراه یک کلمه اختیاری خودتان! که کدگذاری میشه ). بعدش داخل برنامه اول شروع برنامه ،برنامه چک میکنه ببینه آیا اون فایله یا اون متن دیتابیس هست یا نه ؟ کد داخل اون چی ؟آیا کد هم صحیح است یانه ؟ اگر صحیح بودکه متغیرتان مثلا برابر عدد یک میشه که بعدش هرجا برابر یک بود برنامه کامل رو ارائه میده والا متغییرتان برابر صفر باشه که دراینصورت دکمه خرید روشن وفعال میشه ، وکاربربا زدن دکمه خرید باحساب کاربریش اگر نتیجه خرید فعلی یاسابقش مثبت بود آنگاه دوباره فایل متنی همراه بامتن کدگذاری شده تان  تولیدیادیتابیستان دوباره تکمیل میشه ومتغیرتان هم برابر یک میشه! طبق فرموده آقا abbas2142 برنامه تان هزاربارهم پاک بشه دوباره کاربربا همان حساب کاربریش دکمه خرید روبزنه بااین روش حتما بدون هیچ پرداخت دوباره ای برنامه اش فعال خواهد شدوفایل دوباره تولیدمیشه.البته کنار این روش یک چندتا آموزش مقابله با هک درون برنامه ای انجمن رو هم ببینید تامنافذامنیتی مارکتهایی همچون کافه بازار رو هم سدکنیدو احتمال هک نزدیک به صفر بشه 

 

 

 

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

 

 

این اسکرین اول که اگه پیغامشم نگا کنی نوشته پرداخت با موفقیت . تازمانیم که برنامه نصبه درست کار میکنه . ولی همین که حذف و نصبش کردم بازم همون صد تومن رو ک برای تست وارد کردم خواست که اسکرین اونم زیر میزارم...

 

 

 

 

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

دوستانه خواهشا اگه میتونین کمکم کنید 

[نورنما 613]

خب ظاهرا کدهای درون پرداخت بازار رو اشتباهی گذاشتید! این کدهای منه ودرست کارمیکنه ،طبق این اصلاح فرمایید.

بررسی نمایید : inapp را در این سطر زیر اشتباهی چیزدیگری مثل "subs" وامثال اون ننوشته باشیدومشکل پرداخت یکباره یا خرید سکه از گزینه inapp می تواند باشد.    

pardakht.requestpayment("testinapp","inapp","testinapp")    

Sub Process_Globals
            Dim pard1000 As Int
            Dim pardakht As BillingManager3
            'بررسی بود ونبود بازار 
            Dim bazzar_nasb_ok As Int
End Sub

Sub Globals
	'***********تعریف کتابخانه درون برنامه ای1
    Dim install As AssistantLib
        	     If install.Install("com.farsitel.bazaar") Then'''اگرکافه بازار نصب بود کلید rsa را بررسی کند 
				pardakht.initialize("pardakht",".........کد  RSA  ....................")
	End If
	
End Sub

Sub pardakht_PurchaseCompleted(success As Boolean,product As Purchase)
If bazzar_nasb_ok = 1 Then 
	If success = True Then 
		If product.DeveloperPayload="testinapp" Then '''testinapp=شناسه محصول 
	'نوشتن پرداخت وایجادفایل جدیدنمایانگرپرداخت در گوشی
		If pard1000 <>1 Then	'''pard1000= متغیری که اگربرابر یک بودبرنامه کامل ارائه می شودواگرصفربود برنامه ناقص ارائه میشود
		   File.WriteString(File.DirInternal ,"نام فایل.txt",(pard1000) )
         End If 
			pard1000=1
	        Dim kharid2 As Int
            kharid2 =Msgbox2(" "," ","","از خرید شما متشکرم","",LoadBitmapSample(File.DirAssets,"pardakht1.jpg",45%y,45%x))
		End If
		Else 
	         kharid2 =Msgbox2(" "," ","","متاسفانه پرداخت انجام نشد!","",LoadBitmapSample(File.DirAssets,"pardakht0.jpg",45%y,45%x))
            pard1000=0
	End If
End If	
End Sub

Sub Button2_Click'''پرداخت وخرید  
            'pardakht.requestpayment("شناسه محصول"و"به صورت پیش فرض "و"به عنوان مثال یک اسم بران می نویسیم "واین سه برعکس است ازچپ به راست
        If bazzar_nasb_ok = 1 Then 	
            
					pardakht.requestpayment("testinapp","inapp","testinapp")
            

				''''''	Msgbox("پرداخت درون برنامه ای","نسخه کامل دریافت شد")
            Else
            Msgbox("کافه بازار در دستگاه شمانصب نشده است !کافه بازار رانصب کنیدو برنامه راحتما حذف ودوباره نصب نمایید وسپس دکمه پرداخت را فشار دهید " , "")	

        End If	

End Sub

 

نوشتن کدی که با  md5 رمز نگاری شده رو هم داخل فایل ودیتابیس و... روهم خودتون اضافه کنید

[amir386 39]

در 2 ساعت قبل، نورنما گفته است :

خب ظاهرا کدهای درون پرداخت بازار رو اشتباهی گذاشتید! این کدهای منه ودرست کارمیکنه ،طبق این اصلاح فرمایید.

بررسی نمایید : inapp را در این سطر زیر اشتباهی چیزدیگری مثل "subs" وامثال اون ننوشته باشیدومشکل پرداخت یکباره یا خرید سکه از گزینه inapp می تواند باشد.    

pardakht.requestpayment("testinapp","inapp","testinapp")    

Sub Process_Globals
            Dim pard1000 As Int
            Dim pardakht As BillingManager3
            'بررسی بود ونبود بازار 
            Dim bazzar_nasb_ok As Int
End Sub

Sub Globals
	'***********تعریف کتابخانه درون برنامه ای1
    Dim install As AssistantLib
        	     If install.Install("com.farsitel.bazaar") Then'''اگرکافه بازار نصب بود کلید rsa را بررسی کند 
				pardakht.initialize("pardakht",".........کد  RSA  ....................")
	End If
	
End Sub

Sub pardakht_PurchaseCompleted(success As Boolean,product As Purchase)
If bazzar_nasb_ok = 1 Then 
	If success = True Then 
		If product.DeveloperPayload="testinapp" Then '''testinapp=شناسه محصول 
	'نوشتن پرداخت وایجادفایل جدیدنمایانگرپرداخت در گوشی
		If pard1000 <>1 Then	'''pard1000= متغیری که اگربرابر یک بودبرنامه کامل ارائه می شودواگرصفربود برنامه ناقص ارائه میشود
		   File.WriteString(File.DirInternal ,"نام فایل.txt",(pard1000) )
         End If 
			pard1000=1
	        Dim kharid2 As Int
            kharid2 =Msgbox2(" "," ","","از خرید شما متشکرم","",LoadBitmapSample(File.DirAssets,"pardakht1.jpg",45%y,45%x))
		End If
		Else 
	         kharid2 =Msgbox2(" "," ","","متاسفانه پرداخت انجام نشد!","",LoadBitmapSample(File.DirAssets,"pardakht0.jpg",45%y,45%x))
            pard1000=0
	End If
End If	
End Sub

Sub Button2_Click'''پرداخت وخرید  
            'pardakht.requestpayment("شناسه محصول"و"به صورت پیش فرض "و"به عنوان مثال یک اسم بران می نویسیم "واین سه برعکس است ازچپ به راست
        If bazzar_nasb_ok = 1 Then 	
            
					pardakht.requestpayment("testinapp","inapp","testinapp")
            

				''''''	Msgbox("پرداخت درون برنامه ای","نسخه کامل دریافت شد")
            Else
            Msgbox("کافه بازار در دستگاه شمانصب نشده است !کافه بازار رانصب کنیدو برنامه راحتما حذف ودوباره نصب نمایید وسپس دکمه پرداخت را فشار دهید " , "")	

        End If	

End Sub

 

نوشتن کدی که با  md5 رمز نگاری شده رو هم داخل فایل ودیتابیس و... روهم خودتون اضافه کنید

 

 

ممنون از پاسخ هاتون ..

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

 

 

اینم سه بار تستی رو یکی از برنامه های قبلیم...

[نورنما 613]

سلام سلامت باشید

ببینید توی کافه بازار نوع محصول رو خریدنی انتخاب کرده اید ؟ نباید نوع محصولتان اشتراکی و... باشه والا همینطور میشه  

ضمنا در این سطر :

pardakht.requestpayment("testinapp","inapp","testinapp")         نگاه کنید دوتا (testinapp) هست شاید جای ایندو رو باهم اشتباه می نویسید ؟یکی نامی هست که خودتان واسه محصول داخل برنامه  می نویسید ودیگری نامی هست که به کافه بازار ارسال میشه اگه ایندوتارو در دستورات جابجا بنویسید هم این مشکل پیش خواهد آمد.لذا من همیشه ایندوتا رو همنام میذارم تا برنامه پیچیده نشه وبه مشکلی برنخورم  مثلا:

pardakht.requestpayment("testinapp400","inapp","testinapp400")

pardakht.requestpayment("testinapp500","inapp","testinapp500")

pardakht.requestpayment("testinapp600","inapp","testinapp600")

نام سه محصوله

ضمنا یکبار سر خودم آمد وقتی نام ایندو رو جابجا واشتباهی نوشته بودم ، برنامه رو اجرا کردم ، رفت و در هاست کافه بازار اشتباهی ثبت شد و هرچه قدر روش کار کردم همین ارور شما رو میداد به کافه بازار مکاتبه کردم ، نهایت مشکل اینجور حل شد که یک محصول جدید با نام جدید ایجاد کردم و قبلی رو بیخیال شدم وباکدهای صحیح برنامه رو اجرا کردم ومشکل حل شد ، شما هم نام کالا رو عوض کنید  وشناسه ای بانام  جدید برایش درست کنید و اینبار برنامه رو اجرا کنید .ان شاء الله مشکل حل میشه.

باز میگم : شناسه ها ونوع محصول ونام محصول بایکبار اجرای برنامه میره ودر هاست کافه بازار ذخیره میشه وخصوصیات کالا دیگه قابل تغییر هم نیست