گذاشتن محدودیت استفاده برای اتوران

[shahkam]

سلام عذر میخوام

من میخواستم یه محدودیت برای اتورانم بذارم ، البته اینو دارم فقط نمیدونم چطوری میشه با سریال ریستش کرد ؟ یعنی مثلا طرف دوبار نرم افزارو باز کرده بعد محدود میشه میره صفحه دوم که مثلا توضیح میده نرم افزار دمو هست برای ادامه استفاده سریال رو خریداری کنید ، من فقط نمیدونم وقتی این کد محدود کننده رو روی صفحه میذارم چطوری با سریال ریست بشه




LoadVariable("limit","xx")
xx=xx+1
DisplayValue("used","xx")
SaveVariable("limit","xx")
If (xx>3) Then
Page("Page 2")
End
If (xx<9) Then
Show("Run")
End


پیشاپیش ممنون

 

[m javad]

اگر نرم افزار تون براتون اهمیت داره استفاده از کد بالا براتون هیچ دردی رو دوا نمیکنه
ریسورس کردن فایل های بیلدر کمتر از 1 دقیقه کار داره
معنیش میشه اینکه بعد از ریسورس، اون کد ابتدای برنامتون رو برمیدارن و مجددا کامپایل میکنن
حالا برنامه مثل روز اولش و بدون اون به اصلاح قفل کار میکنه
ابن در مورد ضعف بیلدر بود ...
*************************
اما در مورد جواب سوالتون
شما باید دوتا متغیر رو چک کنید
یکی وجود کد رجیستر (حالا یا فایل هست که اطلاعاتی توش هست و یا کدی هست که مثلا تو رجیستری ثبت میشه)
و یکی تعداد اجرای برنامه
هر دو رو بهتره توی رجیستری ثبت و چک کنید
ابتدای اجرا چک میکنید کد رجیستر موجود هست یا نه
اگر بود که برنامه اجرا میشه
اگر نبود میرید سراغ چک کردن تعداد اجرا ها
اگر کمتر از روز های مجاز بود، برنامه اجرا و یکی به تعداد اجرا ها اضافه میشه
اگر بیشتر یا مساوی بود هم برنامه اجرا نمیشه و پیغام میده
موفق باشید

 

[shahkam]

اشکال نداره اگه اون کارو کردن که حلالشو باشه زیاد مهم نیست ، اگه میشه اون سریالی رو که گفتم رو توضیح بدین حسابی ممنون میشم

 

[MahmoodM30]

برای ریست اون کد میتونید این کد رو بنویسید

xx=0
SaveVariable("limit","xx")

 

[m javad]

و البته یه شرط هم بزارید که اگه صفر بود دیگه چک نکنه (در تکمیل صحبت محمود عزیز، چون مثلا تو اون کدتون صفر کوچکتر از 9 هست !! )

 

[omid.berooz]

سلام شما این نمونه رو نگاه کن