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

[amiro72 17]

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

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

 

Sub list_select (ParentEventName As String,position As Int)
	
idd=l7.Get(position)

idd1 = l6.Get(position)



If File.Exists(File.DirInternal,idd&"_Success-pay-dastanak.txt") = False Then


		If l8.Get(position) = 0 Then
					StartActivity(ph.OpenBrowser(l6.Get(position)))	

		Else If l8.Get(position) = 1 Then
				pay.RequestPayment(l7.Get(position),"inapp",ph1.GetDeviceId)
						ToastMessageShow("تشکر از خرید شما",False)
'							StartActivity(ph.OpenBrowser(l6.Get(position)))	
										File.WriteString(File.DirInternal,idd&"_Success-pay-dastanak.txt","paysuccess")

								
		Else
				ToastMessageShow("eror",False)
		End If
										
Else
	StartActivity(ph.OpenBrowser(l6.Get(position)))		
End If

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

[Negan 1,300]

در 43 دقیقه قبل، amiro72 گفته است :

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

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

 

Sub list_select (ParentEventName As String,position As Int)
	
idd=l7.Get(position)

idd1 = l6.Get(position)



If File.Exists(File.DirInternal,idd&"_Success-pay-dastanak.txt") = False Then


		If l8.Get(position) = 0 Then
					StartActivity(ph.OpenBrowser(l6.Get(position)))	

		Else If l8.Get(position) = 1 Then
				pay.RequestPayment(l7.Get(position),"inapp",ph1.GetDeviceId)
						ToastMessageShow("تشکر از خرید شما",False)
'							StartActivity(ph.OpenBrowser(l6.Get(position)))	
										File.WriteString(File.DirInternal,idd&"_Success-pay-dastanak.txt","paysuccess")

								
		Else
				ToastMessageShow("eror",False)
		End If
										
Else
	StartActivity(ph.OpenBrowser(l6.Get(position)))		
End If

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

کد اشتباهه توی ساب های کتابخونه بگردید و success رو پیدا کنید

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

[amiro72 17]

در 14 دقیقه قبل، محمد فرجی گفته است :

کد اشتباهه توی ساب های کتابخونه بگردید و success رو پیدا کنید

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

کتاب خونه پرداخت ؟؟؟

 

بعد این که اینو نمیدونم کارش چیه 

 

Sub Globals
	Dim pay As BillingManager3
	Dim Pardakht As Boolean
End Sub



Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	Pardakht=Supported
End Sub

اون ساب دوم منظورمه

[Negan 1,300]

در 7 دقیقه قبل، amiro72 گفته است :

کتاب خونه پرداخت ؟؟؟

 

بعد این که اینو نمیدونم کارش چیه 

 

Sub Globals
	Dim pay As BillingManager3
	Dim Pardakht As Boolean
End Sub



Sub pardakht_BillingSupported (Supported As Boolean, Message As String)
	Pardakht=Supported
End Sub

اون ساب دوم منظورمه

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

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

[amiro72 17]

در 14 دقیقه قبل، محمد فرجی گفته است :

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

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

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

نمونه ای اموزشی  چیزی ندارید که از روش بفهمم ؟

 

این  عکس از کتابخونه 

[amiro72 17]

در 7 دقیقه قبل، amiro72 گفته است :

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

نمونه ای اموزشی  چیزی ندارید که از روش بفهمم ؟

بعد این کتابخونه رو ندارید ؟  

EtechInApp

[amiro72 17]

در 45 دقیقه قبل، محمد فرجی گفته است :

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

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

داداش واقعااا ممنونم  اسم  success  که اوردی  یه سرچ کردم همه چی اومد دستم   دمت گرم

[Negan 1,300]

در 45 دقیقه قبل، amiro72 گفته است :

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

نمونه ای اموزشی  چیزی ندارید که از روش بفهمم ؟

 

این  عکس از کتابخونه 

عجیبه انگاری ناقصه کتابخونه :|