نسخة للعرض تعمل لمدة معينة

سبق أن طرح الأخ مسافر مثالا على انشاء نسخه للعرض باستخدام عدد السجلات لا باستخدام التاريخ ، والمثال على الوصلة التالية :

http://arabteam.nicmatic.com/vb/showthread...3?threadid=3753

نعم لقد استفدت من المثال ولكننى ابحث عن نسخة عرض بأستخدام التاريخ

ولكم جزيل الشكر

السلام عليكم

قم بتسجيل الوقت فى ملف TXT

قم بقرائة الوقت كلما فتحت البرنامج

إذا مر 30 يوم لا تسمح بالعمل

عفوا يأأستاذنا الفاضل فهمت قصدت ولكن أن كان ممكن

أن تكتب الطريقة بالتفصيل

ولك كل الشكر على اهتمامك ومعلوماتك

السلام عليكم

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

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

سنوات مثلا عن تاريخ اعداد البرنامج وبهذا يكون البرنامج صالح

لمدة ثلاث سنوات وشهر ... هذ حاله .

والحالة الثانيه ان يقوم المستخدم بتأخير وقت البرنامج حين

تشغيله ( واجراء التأكد من التاريخ من طرف برنامجك ) وبعد

تنفيذ البرنامج يقوم بإرجاع التاريخ كما هو وبهذا يعمل البرنامج

على اكمل وجه ...

على العموم فكرة الحماية هذه فكره اصبحت عقيمه مع وجود محترفين

في كسر البرامج فمن باب اولى ان يقوم الشخص بالتعرف على تقنيات

هؤلاء المحترفين في كسر البرامج ويقوم بإستخدام تقنيه جديده

عليهم ( وفي النهاي الصراع مستمر ) .

هذا مثال من الHELP علي الكتابة و القراءة من ملف

و بالنسبة لتقديم التاريخ ، فيمكن التغلب عليه بأنه لا تقبل تاريخ أقل من تاريخ معين و لا تقبل تاريخ اقل من أي تاريخ تم تسجيله سابقاً

Input # Statement Example
This example uses the Input # statement to read data from a file into two variables. This example assumes that TESTFILE is a file with a few lines of data written to it using the Write # statement; that is, each line contains a string in quotations and a number separated by a comma, for example, ("Hello", 234).

Dim MyString, MyNumber
Open "TESTFILE" For Input As #1    ' Open file for input.
Do While Not EOF(1)    ' Loop until end of file.
    Input #1, MyString, MyNumber    ' Read data into two variables.
    Debug.Print MyString, MyNumber    ' Print data to the Immediate window.
Loop
Close #1    ' Close file.

'---------------

This example uses the Write # statement to write raw data to a sequential file.

Open "TESTFILE" For Output As #1    ' Open file for output.
Write #1, "Hello World", 234    ' Write comma-delimited data.
Write #1,    ' Write blank line.

Dim MyBool, MyDate, MyNull, MyError
' Assign Boolean, Date, Null, and Error values.
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' Boolean data is written as #TRUE# or #FALSE#. Date literals are 
' written in universal date format, for example, #1994-07-13# 
 'represents July 13, 1994. Null data is written as #NULL#. 
' Error data is written as #ERROR errorcode#.
Write #1, MyBool ; " is a Boolean value"
Write #1, MyDate ; " is a date"
Write #1, MyNull ; " is a null value"
Write #1, MyError ; " is an error value"
Close #1    ' Close file.

الأخوة الأفاضل

بعد التحية :

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

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

تحياتي

الأخوة الأفاضل

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

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

تحياتي

وصلة المثال المذكور غير موجودة

أرجو ممن لديه المثال أن يضعه

وين وصلة البرنامج

السلام عليكم

الرجاء شرح طريقة عمل ديمو يعمل مع عدد معين من السجلات مرة اخرى لان الرابط http://arabteam.nicmatic.com/vb/showthread...3?threadid=3753 لايعمل

انظر الرابط:

http://www.arabteam2000.com/vb/showthread....&threadid=12711

وهو يحتوي على الوصلة التالية من الأخ سعودي :

http://mypage.ayna.com/kou_kuo/20DEMO.zip

(انقر بالزر الأيمن واختر حفظ الهدف باسم)