فكرة مشروع حماية بسيط

:o الاخ محمد طاهر اعتذر عن تاخري في الرد لاسباب خارجة عن الارادة و ارجو ان تقبل شكري على تعاونك معي .

ام بالنسبة للموضوع السابق فقد تمكنت و الحمد لله من قطع شوط كبير فيه و انا حاليا اقوم بتجربته لمعرفة نقاط الضعف فية بحيث اصبح اكثر من فكرة مشروع حماية بسيط ليصبح اداة تسجيل للبرنامج او نسخة تجريبية و لكن واجهتني بعص المشاكل بالنسبة لعمل بعض الاكواد و توافقيتها مع اكسس 97 و اكسس xp فالكود اللي في الرابط لم يعمل معي في 97 بل فيxp و كما تعلم هناك قواعد بيانات مصممة للعمل في 97 لا تعمل في xp حتى بعد ترجمة الوحدات النمطية المحملة لذا اكون شاكرا لو ساعدتني فس تعديله وامر اخر وجدت في احد المنتديات كود لجعل النسخة تجريبة اي لها مدة 30 يوم و لا تتاثر بتغير الوقت ولكن للاسف لم يعمل معي جيدا ولو تكرمت ان تعيد صياغته لنتمكن من طرحه في المنتدى لجميع المشتركين .

وهذه هو الكود

Option Explicit

Public Function DateGood(NumDays As Integer) As Boolean

'The purpose of this module is to allow you to place a time

'limit on the unregistered use of your shareware application.

'This module can not be defeated by rolling back the system clock.

'Simply call the DateGood function when your application is first

'loading, passing it the number of days it can be used without

'registering.

'

'Ex: If DateGood(30)=False Then

' CrippleApplication

' End if

'Register Parameters:

' CRD: Current Run Date

' LRD: Last Run Date

' FRD: First Run Date

Dim TmpCRD As Date

Dim TmpLRD As Date

Dim TmpFRD As Date

TmpCRD = Format(Now, "m/d/yy")

TmpLRD = GetSetting(App.EXEName, "Param", "LRD", "1/1/2000")

TmpFRD = GetSetting(App.EXEName, "Param", "FRD", "1/1/2000")

DateGood = False

'If this is the applications first load, write initial settings

'to the register

If TmpLRD = "1/1/2000" Then

SaveSetting App.EXEName, "Param", "LRD", TmpCRD

SaveSetting App.EXEName, "Param", "FRD", TmpCRD

End If

'Read LRD and FRD from register

TmpLRD = GetSetting(App.EXEName, "Param", "LRD", "1/1/2000")

TmpFRD = GetSetting(App.EXEName, "Param", "FRD", "1/1/2000")

If TmpFRD > TmpCRD Then 'System clock rolled back

DateGood = False

ElseIf Now > DateAdd("d", NumDays, TmpFRD) Then 'Expiration expired

DateGood = False

ElseIf TmpCRD > TmpLRD Then 'Everything OK write New LRD date

SaveSetting App.EXEName, "Param", "LRD", TmpCRD

DateGood = True

ElseIf TmpCRD = Format(TmpLRD, "m/d/yy") Then

DateGood = True

Else

DateGood = False

End If

End Function

'Usage

Private Sub Form_Activate()

If Not DateGood(30) Then

MsgBox "Trial Period Expired!", vbExclamation, "Unregistered application"

Unload Me

End If

End Sub

__________

ام بالنسبة للبرنامج الذي اقوم بعمله فقد واجهتني مشكلة ارجو من المساعدة فيها و هي بعد تسجيل البرنامج اريد ان اوقف عمل بعض النماذج المتعلقة بالتسجيل اذا كان التسجيل صحيحا و لكن للاسف لم استطع ، فقد كنت اعرف قاعدة معينة في الاكسس 97 باستخدام dim dbs as database ولكن هذا التعريف لم يعمل معي في xp ارجو منك اذا كان هناك طريقة لايقاف نموذج ما عن العمل عند تحقق شروط معينه ان تساعدني فيه و انا من ناحيتي بعد تطبيق التعديلات على البرنامج إن شاء الله ساقوم بوضع نسخة منه في المنتدى شاكرا لكم سعة صدركم و السلام عليكم (clock)