اريد عمل برنامج عمل لفترة محددة

عليك حفظ تاريخ فتح هذا البرنامج لأول مرة في سجل في الريجيستري أو في ملف ما في مكان خفي ضمن مجلدات ويندوز، ثم قراءة هذا التاريخ في كل مرة يريد المستخدم فتح البرنامج وطرحه من التاريخ الحالي، فإذا كان قد مضى أسبوع تظهر رسالة وجوب شراء نسخة كاملة من البرنامج، أو يعمل البرنامج بشكل طبيعي مع تذكير المستخدم بوجوب شراء البرنامج.

يتوقف مدى تعقيد آلية هذا العمل على مدى معرفة المستخدم بهذه الأمور، حتى لا يستطيع قرصنة برنامجك.

السلام عليكم

اهلا بك اخ "ابراهيم "

جرب الكود ادناه باذن الله ينفع معك " تشغيل البرنامج عدد معين "

Private Sub Form_Load()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "Runcount", GD$
If GD$ > 14 Then   '  الرقم 14 هو عدد مرات تشغيل البرنامج المسموح بها
    MsgBox "انتهت الفترة التجريبية ...قم بشراء النسخة الكاملة من البرنامج", , ""
    Unload Me
End If
End Sub

-----------------------------------------

او

لإنهاء صلاحيات برنامجك التجريبي بعد30 يوماً فقط :-

Dim startdate As String 
Dim differenceofdate 
Dim TRACEDATE As String 
Dim newdate 
Dim chk 

If GetSetting(App.Title, "Startup", "counter", "") = "" Then 
SaveSetting App.Title, "Startup", "counter", 1 
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy") 
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy") 
lblcnt.Caption = "1" 

ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then 

MsgBox "شكراً لستخدامك هذا البرنامج " & Chr(10) + Chr(1) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك " 

End 

Else 
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "") 
chk = DateDiff("d", CDate(TRACEDATE), Now) 
If chk < 0 Then 'CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED. 

MsgBox "لم يتم العثور على تاريخ النظام لديك !! " & Chr(10) + Chr(13) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود" 

End 
Else 
startdate = GetSetting(App.Title, "Startup", "Started", "") 
differenceofdate = DateDiff("d", startdate, Now) 
If differenceofdate <> 0 Then 
lblcnt.Caption = differenceofdate + 1 
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY") 
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1 
End If 
If differenceofdate = 0 Then 
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "") 
End If 
End If 
End If 
End Sub

:)