مشکل در دستور شرطی if

[sajadakbari 163]

سلام دوستان.

من این شرط ها رو برای درون پرداخت گذاشتم. با استفاده از کتابخونه ضد هک علیرضا غفاری . اما متاسفانه فکر کنم توی شرط ها اشتباه کردم.

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

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	Try
	If pr.Security = True Then
If Product.DeveloperPayload="pardakht1" Then
	File.WriteString(File.DirInternal,"l1.txt","")
	Msgbox("با تشکر از خرید شما.","خرید انجام شد")
	Else
ToastMessageShow("شما از حمایت منصرف شدید. با تشکر از سعی تان برای کمک به ما",False)
	End If
Else
	Msgbox("متاسفانه شما از نرم افزار هک برای پرداخت استفاده کرده اید. و این پرداخت مورد تایید نمی باشد. لطفا نرم افزار هک را حذف کنید. و پرداخت را دوباره تکرار کنید","تایید نشد")
	End If
Catch
End Try
End Sub

[sajadakbari 163]

دوستان لطفا یه کمک بکنید.

[afraz aa 478]

 

سلام دوستان.

من این شرط ها رو برای درون پرداخت گذاشتم. با استفاده از کتابخونه ضد هک علیرضا غفاری . اما متاسفانه فکر کنم توی شرط ها اشتباه کردم.

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

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)
	Try
	If pr.Security = True Then
If Product.DeveloperPayload="pardakht1" Then
	File.WriteString(File.DirInternal,"l1.txt","")
	Msgbox("با تشکر از خرید شما.","خرید انجام شد")
	Else
ToastMessageShow("شما از حمایت منصرف شدید. با تشکر از سعی تان برای کمک به ما",False)
	End If
Else
	Msgbox("متاسفانه شما از نرم افزار هک برای پرداخت استفاده کرده اید. و این پرداخت مورد تایید نمی باشد. لطفا نرم افزار هک را حذف کنید. و پرداخت را دوباره تکرار کنید","تایید نشد")
	End If
Catch
End Try
End Sub

If hack.Security=True Then


	If Success Then
	ToastMessageShow("تشکر از خرید شما",False)
	File.WriteString(File.DirInternal,"payok.txt","payok")
	
	Else
	ToastMessageShow("متاسفانه خرید ناموفق بود",False)
	End If
Else
	ToastMessageShow("میخوای برنامه رو هک کنی شیطون خخخخ",True)
End If

حالا کدتو با این مقایسه کن ببن کجا مورد داره خیلی واضع میفهمی

امیدوارم مفید باشه

[sajadakbari 163]

سلام خب عزیز منم همین کار رو کردم. دیگه.

 

If Success Then

 

مال کتابخونه شماست. واسه من اینه.

 

If Product.DeveloperPayload="pardakht1" Then

 

خب.

 

بعد من امدم گفتم یه فایل ایجاد کن و یه پیام نشون بده. نشد بگو انجام نشد. و واسه if اولی امدم. گفتم. غیر این بود . بیا بگو برنامه هک و...

 

اینارم گذاشتم توی یه catch که اگه بازار نداشتن ارور نده.

 

حالا فرقش گجاست؟؟  منکه فرقی توش نمیبینم

[afraz aa 478]

سلام خب عزیز منم همین کار رو کردم. دیگه.

 

If Success Then

 

مال کتابخونه شماست. واسه من اینه.

 

If Product.DeveloperPayload="pardakht1" Then

 

خب.

 

بعد من امدم گفتم یه فایل ایجاد کن و یه پیام نشون بده. نشد بگو انجام نشد. و واسه if اولی امدم. گفتم. غیر این بود . بیا بگو برنامه هک و...

 

اینارم گذاشتم توی یه catch که اگه بازار نداشتن ارور نده.

 

حالا فرقش گجاست؟؟  منکه فرقی توش نمیبینم

 

دوست عزیز کجایه کدهای شما شبیه کد هایه منه آخه

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

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

 

از این کد استفاده کن عزیز

Sub pardakht_PurchaseCompleted (Success As Boolean, Product As Purchase)

If pr.Security = True Then
If Success=True Then
	File.WriteString(File.DirInternal,"l1.txt","")
	Msgbox("با تشکر از خرید شما.","خرید انجام شد")
	Else
ToastMessageShow("شما از حمایت منصرف شدید. با تشکر از سعی تان برای کمک به ما",False)
End If
Else
	Msgbox("متاسفانه شما از نرم افزار هک برای پرداخت استفاده کرده اید. و این پرداخت مورد تایید نمی باشد. لطفا نرم افزار هک را حذف کنید. و پرداخت را دوباره تکرار کنید","تایید نشد")
	End If

End Sub