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

[Milad-Mohammadi 401]

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

	Dim p As Phone
		If p.sdkversion <23 Then
			Try
						If pr.Security = True Then
							If Success=True Then
								File.WriteString(File.DirInternal,"kharidam.txt","kharid anjam shod")
								toastmessageshow("خرید انجام شد",true)
							Else
								toastmessageshow("خرید انجام نشد",true)
							End If
						Else
							toastmessageshow("برای هک تلاش نکنید",true)
						End If
			Catch
				ToastMessageShow(LastException,True)
			End Try
		Else
							If Success=True Then
								File.WriteString(File.DirInternal,"kharidam.txt","kharid anjam shod")
								toastmessageshow("خرید انجام شد",true)
							Else
								toastmessageshow("خرید انجام نشد",true)
							End If
		End If

End Sub

حالا برنامه رو تو اندروید 6 که تست میکنم بدون ارور و ایرادی انجام میشه. اما تو اندروید پایینتر از 6 وقتی رو پرداخت کلیک میکنم این ارور رو توست میکنه(LastException):

java.lang.NullPointerException

 

میخواستم بدونم مشکل کجاست؟

[مهدی ایزدی 9,203]

سلام

خب بدون شک میتونه مشکل به if pr.security = true برگرده 

کدهای قبلیش رو که تعریف کردید رو بررسی کنید