ورود

View Full Version : سوال: تعیین تارخ انقضاء برای برنامه بعد از 5 روز



msaeedd
شنبه 03 مرداد 1388, 20:18 عصر
می خواستم بدونم چطور میشه برای برنامه تارخ انقضاء تعیین کنیم تا اینکه بعد از 5 روز دیگه برنامه اجرا نشه؟!!!؟
(5 روز بعد از نصب و اولین اجرای برنامه)

saeedzx
شنبه 03 مرداد 1388, 20:37 عصر
سلام
شما میتونید یک کلک به برنامه بزنید
یک text رو تاریخ قرار دهید و text2 را برای ثبت تاریخ
بعد در یک تایمر بذارید


Private Sub Timer1_Timer()
If Text1.Text = "" Then
Text2.Text = Text1.Text
Else
If Text1.Text = Text2.Text Then
MsgBox ("وقت برنامه تمام شده است")
End If
End If
End Sub

saeedzx
شنبه 03 مرداد 1388, 20:40 عصر
البه دوست من شما باید text2 را در حافظه کلیبرد ذخیره کنید کدش هم هست


Private Sub Command1_Click()
SaveSetting App.Title, "Setting", "Value", Text1.Text
End Sub
Private Sub Form_Load()
Text1.Text = GetSetting(App.Title, "Setting", "Value", "Hello")
End Sub

butterfly8528
شنبه 03 مرداد 1388, 21:32 عصر
سلام دوست عزیز . این ساده ترین روش هست که البته به راهتی میشه دورش زد .


Public Sub putElapsedDayes_InRegistry(MaxAllowableDays As Long)
Dim i As Double
Dim j As String
i = Val(GetSetting(App.EXEName, "PW", "Day", "0"))
If i >= MaxAllowableDays Then
MsgBox "You Are Using The Trial Version Of This Program." + vbCrLf + "Get Its Latest Version at -> www.1120.blogfa.com (http://www.1120.blogfa.com/) ", vbExclamation, "Sorry !"
End
End If
j = GetSetting(App.EXEName, "PW", "Date", "")
If j <> Date Then _
SaveSetting App.EXEName, "PW", "Day", i + 1
SaveSetting App.EXEName, "PW", "Date", Date
End Sub


این هم روش استفاده :


Private Sub Form_Load()
putElapsedDayes_InRegistry 5
End Sub


موفق باشید .

HjSoft
یک شنبه 04 مرداد 1388, 08:29 صبح
دو راه براي دور زدن اين نوع قفل است :
اول : يكي آنتي ويروس Macafee نصب كنيد تا به محض تغييري در ريجستري مسير رو نشون بده و كاربر از اونجا مقدار هاي ثبت شده رو تغيير بده
دوم : ساده ترين راه ))) تاريخ سيستم رو به عقب برگردونيم

msaeedd
سه شنبه 06 مرداد 1388, 18:42 عصر
نه من نمیخوام که با تغییر تاریخ سیستم بتونن از انقضای برنامه جلوگیری کنن یا اینکه اونو ویروس بشناسه

vahid_visualbasic
سه شنبه 06 مرداد 1388, 19:37 عصر
دو راه براي دور زدن اين نوع قفل است :
اول : يكي آنتي ويروس Macafee نصب كنيد تا به محض تغييري در ريجستري مسير رو نشون بده و كاربر از اونجا مقدار هاي ثبت شده رو تغيير بده
دوم : ساده ترين راه ))) تاريخ سيستم رو به عقب برگردونيم
دوست عزیز
بنده این کد رو تست کردم با تغییر تاریخ سیستم عکس العمل نشون میده و حد اقل در این مورد نمیشه دورش زد.

HjSoft
سه شنبه 06 مرداد 1388, 20:21 عصر
حرف شما متينه ، اما از ريجستري هم نميشه دورش زد ؟؟؟؟؟؟

vahid_visualbasic
سه شنبه 06 مرداد 1388, 23:46 عصر
حرف شما متينه ، اما از ريجستري هم نميشه دورش زد ؟؟؟؟؟؟
100% میشه دور زد . منظور من دستکاری تاریخ در کنار ساعت ویندوز بود. برای کاربران معمولی
با مک کافی هم من تست کردم همون طور که فرمودین به راحتی دورش زدم.

sa.mousavi
چهارشنبه 07 مرداد 1388, 03:05 صبح
یه راه هست که مدت استفاده بذاری برای برنامه ات. یعنی وقتی برنامه اجرا میشه زمان رو بذاری تو یه متغیر. وقتی که بسته میشه، زمان فعلی رو از زمان ثبت شده کم میکنی و مدت رو رو توی یه فایل تو یه دراوی و مسیر تو در توی گیج کننده:لبخند: سیو کنی. بعد هم هر وقت برنامه اجرا میشه ببینی مدت زمان که توی فایل نوشتی گذشته یا نه.

یکی اینکه زمان رو با ایننترنت چک کنی. آخه الان همه ADSL دارند دیگه با سرعت 3MB در ثانیه :لبخند:.

دیگه چیزی به ذهنم نمی رسه.:لبخند::متفکر::افسرده::لب خند:

mmssoft
چهارشنبه 07 مرداد 1388, 06:41 صبح
شاید این راه خیلی حرفه نباشه ولی می تونی تاریخ اولین بازدید رو در یک فایل Text با فرمت exe در یک مسیر دور ذخیره کنی. مثلا در system32 و بعد کدی رو بدی که وقتی 5 روز یا هرچی از اون گذشته بود پیامی بیاد و برنامه بسته بشه.