رفتن به مطلب
  • 0

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


sajadakbari

سوال

سلام دوستان.

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

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

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

4 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

 

سلام دوستان.

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

If Success Then

 

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

 

If Product.DeveloperPayload="pardakht1" Then

 

خب.

 

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

 

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...