مشکل با ثبت محصولات مصرفی (درون پرداخت انجمن)

[vistamobile 1,700]

سلام. من یه کد مصرفی دارم که اینجوریه و خیلی هم سادست :

Sub Button4_Click

sharjesh.RequestPayment("sharj4","inapp","kharid4")
End Sub

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
 
	If Success=True Then
	
	If Product.DeveloperPayload = "kharid1" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +500
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True
End If
end sub

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

دوستان لطفا کمک کنین الان آخرای کاره و فقط گیر همینم :made by Laie:     

 

[vistamobile 1,700]

بصورت خنده داری حل شد!! نمیتونم چه سریه ولی اسم kharid4 رو با charger4 عوض کردم درست شد و همچنین در خود کافه بازار اسم id ها رو تغییر دادم. یعنی از  sharj4  به pardakht4 . مجبور شدم دوباره یک ساعت کدها رو و خریدهای مصرفی بازار رو تغییر بدم. ممنون از همه !!   

[vistamobile 1,700]

up

[shahab.es 5,429]

سلام

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

امتیاز هشدار گرفتید...

[امین شاهدی 5,773]

برادر شما داری kharid4 رو انجام میدی بعد شرط گذاشتی اگه kharid1 بود فلان کار انجام شه

[vistamobile 1,700]

داداش اون کد رو الان زدم. من پنجتا خرید دارم. بالا خلاصه کدها رو نوشتم بزرگوار!!  اینم اصل کد خرید :

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
 
	If Success=True Then
	
	If Product.DeveloperPayload = "kharid1" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +500
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True
End If
		
	If Product.DeveloperPayload = "kharid2" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +1000
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True
End If

	If Product.DeveloperPayload = "kharid3" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +3000
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True
End If

	If Product.DeveloperPayload = "kharid4" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +5000
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True
End If

	If Product.DeveloperPayload = "kharid5" Then
	sharjesh.ConsumeProduct(Product)
			Main.sharger = Main.sharger +10000
File.WriteString(File.DirInternal,"charg_emti.txt",Main.sharger)
Panel1.Visible=True

End If
Else 
Msgbox ("چی شد؟","لطفا دوباره تلاش کنید")
End If
End Sub

م پنجتا باتون دارم که هرکدوم میره واسه یه محصول مصرفی. 

 

شهاب جان زحمت دوماهم داره میپره. مجبورم شرمنده