اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


zahof

الردود الموصى بها

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

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

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

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

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

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

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

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

TestProg.rar

رابط هذا التعليق
شارك

  • 14 years later...

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 أيام

بالتوفيق 

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information