هدية ZAHOF لكم (كيفية جعل البرنامج تجريبي)

[zahof]

الاخوة الاعزاء من مشرفين واعضاء للمنتدى تحية طيبة وبعد

تعلمون انه يفضل البعض عرض برامجه لفترة معينه كاسبوع او شهر او حسب الرغبة

ولكن يستطيع المستخدم التحايل على المصمم بتأخير تاريخ الجهاز فيعمل البرنامج معه من جديد

وهذه هديتي لكم في هذا الشهر الكريم عسى ان تحوز على رضاكم واستحسانكم (كيفية جعل البرنامج تجريبي) وفي هذا المثال يقوم البرنامج بتسجيل الوقت الذي بدا فيه البرنامج في الجهازبتسجيل ذلك في رجستري الجهاز ومن ثم استعادة هذا الوقت من جديد والحساب عليه

فان كان تاريخ الجهاز عدل فان البرنامج يتوقف ويطلب منه اعادة وقت الجهاز الى التاريخ السابق

وعند انتهاء الفترة التجريبية المحددة فانه ينتهي ايضا

ارجوا للجميع الفائدة والاستفادة كما يسرني ابداء ارائهم واقتراحاتهم

اخوكم في الله ZAHOF

TestProg.rar

[عبد القادر ابو]

السلام عليكم

هذا البرنامج لي اكسس هل يوجد برنامج لي اكسل

وشكراً

[zahof]

لم افهم الطلوب !!!!!

على العموم انا ليس لي دراية بالاكسل ولا اعمل عليه فقط الشئ البسيط في الاكسس

ZAHOF

[rudwan]

الفكرة جيدة أخ zahof

لكن بالنسبة للدالة GetSetting حقيقة لم استخدمها من قبل , و لكن عند فتح البرنامج تظهر رسالة خطأ بأن القيمة خالية

تأكد من الكود

[zahof]

بكتابة ON EROOR RESUME NEXT

وكانت على البال ولكن نسيت كتابتها في المثال

تستطيع الغاء رسالة الخطأ هذه

تم تعديل أكتوبر 3, 2006 بواسطه zahof

[zahof]

البرنامج بعد تعديل الخطأ الذي اشار اليه الاخ رضوان

TestProg.rar

[KHALED SLEEM]

Private Sub Form_Open(Cancel As Integer)
Me.FF.Visible = False
Dim RR As Date                        'تسجيل بداية تشغيل البرنامج في رجستري الجهاز
RR = GetSetting(" ", " ", "form", WW)
If IsNull(RR) Then
MsgBox "مرحبا بك  للبرنامج  "
Me.WW = Date
Else
Me.WW = RR
End If
Dim Exp As Date                     ' VVVVVVVVVVVVVVVVVVVVVVVV'صلاحية البرنامج
Exp = DateAdd("d", 5, RR)
If Date < RR Then                'التاكد من عدم تغيير تاريخ الجهاز
Me.TimerInterval = 400
Me.FF.Visible = True
Me.FF.Caption = ("تم التلاعب في تاريخ الجهاز يجب اعادته الى تاريخ " & vbCrLf & RR & vbCrLf & " كي يعمل البرنامج ") & vbCrLf & "ZAHOF"
Me.FF.SetFocus
ElseIf Date >= Exp Then
Me.TimerInterval = 700
Me.FF.Visible = True
Me.FF.Caption = "انتهت المدة التجريبية للبرنامج اتصل بالمبرمج اذا اردت النسخة الكاملة " & vbCrLf & "ZAHOF"
Me.FF.SetFocus
Else
MsgBox ("اخي الفاضل  عدد الايام المتبقية لصلاحية البرنامج هي  " & Exp - Date & " يوم ")
End If
End Sub

 

من فضل حضرتك ..  وضح لنا  صلاحية الفتح كام يوم ..  هل تقصيد   me.timerinterval=400   هل هذا هو الوقت المحدد  والقصد من هذا 400 ساعة مثلا 

 

[أ / محمد صالح]

9 دقائق مضت, KHALED SLEEM said:

من فضل حضرتك ..  وضح لنا  صلاحية الفتح كام يوم

يبدو أن حضرتك لم تقرأ هذا السطر

Exp = DateAdd("d", 5, RR)

وهو يعني بعد تاريخ أول فتح البرنامج ب 5 أيام

بالتوفيق