كود قمت بالبحث على ما وجدة شبيه بماذا اريد وقمت بالتعديل عليه ليكون مناسب لما اريده
الكود يحسب على عدد الساعات فقط يمكنك جعله لمدة 30 يوم اذا اردت فأنا صممته ليكون ليومين فقط
كود :
If Now.Hour > 48 Then
Dim a = MsgBox("End Terial")
If a = vbOK Then
End
End If
End If
قم بتغيير رقم 48 ليناسب ماتريده
48 لمدة يومين
12+12 = 48 ساعة
اي سؤال انا حاظر شباب
............
التطبيق بهذا الشكل ليس مناسبا للفكرة.
الفكرة انك تضع قيمة اولية ثم تزيد عليها ....اما الكود هو يتحقق من الساعة الان وكما تعلم اقصاها 23 واقلها 0. يعني الان بتوقيت مكة سيعمل وغدا سيعمل وبعد غذ ايضا.
جرب عكس التحقق اي اجعلها هكذا
PHP كود :
If Now.Hour < 48 Then
MsgBox("End Terial")
End
End If
باختصار now.hour لن تكون اكبر من 23
تظهر لي المسج بأن البرنامج توقف
(16-09-16, 08:04 PM)0theghost0 كتب : [ -> ]تظهر لي المسج بأن البرنامج توقف
اخي الكريم ...
تطبيق فكرة الاستخدام المحدد للبرنامج تكون عبر وسيط ثالث والذي اعرف واستطيع عمل مثال عليه هو عن طريق خادم او سمها بروكسي ان شئت.
المهم ان تكون الساعة ليس بامتلاك المستخدم لكي لايعبث بها.
فقط هذا الذي لدي واعرفه اما الامور الاخرى من الريجستري وغيرها فلم اجربها.
هل يوجد بديل او كود اقوى من هذا ؟؟
اذا الكود الذي قمت بصنعه لايفيد على حسب اقوال الاخ الفاضل سعود فهل من بديل بحيث انه يعمل للوقت الذي اريده ؟؟
اريد كود سهل و بسيط للفهم حتى الكل يستفيد فأنا بخبرتي البسيطة قمت بصنع هذ الكود وتفاجئت بانه لايفيد رغم اني تحققت منه عبر الدقائق فقط اما بالساعات لم اتحقق منه بصراحة قلت مدام شغال على الدقائق فيعني بالساعات يعمل صحيح واتت المفاجئة الكبرة لي فهل من تحسين افضل ؟؟
إقتباس :هل يوجد بديل او كود اقوى من هذا ؟؟
طبعا اخي الكريم يوجد ومثل ماقلت لك ابسطها
الريجستري
وفيه تخزينها بجدول بعيد او حتى ملف نصي بعيد ولو تحب تعقدها بعد احفظها بملف web.config في خادم او موقع على استضافة.
سويت مثال بسيط جدا لكني لم اجربه الا الان يعني يحتاج تجربة غدا
المثال يقوم بحفظ اسم مفتاح وقيمة shortdatestring ثم بالزر الاخر يتحقق هل الفرق بين اقصى صلاحية بعدد الايام هل هو اقل من ايام الاستخدام بحساب الفرق بين التاريخ الحالي والتاريخ المخزن في الريجستري.
وجدة كود مخصص للتاريخ بدون رجستري ولا شيء
كود :
Private Sub Form_Open(Cancel As Integer)
If Date > #1/1/2006# Then
MsgBox " انتهاء وقت البرنامج" & vbCrLf & vbCrLf & _
" مع السلامة " & vbCrLf & vbCrLf & _
" اختكم زهره ", vbOKOnly + vbMsgBoxRight + vbExclamation
DoCmd.Quit
Else
x = MsgBox("الوقت المتبقي" & Str(#11/18/2005# - Date) & " هل تريد الاستمرار يوم", vbYesNo, "الوقت المتبقي على البرنامج")
If x = vbNo Then
DoCmd.Quit
End If
End If
End Sub
الكود تبعك مناسب جدا اخي الفاضل لكن اعتقد انه لازم يسجل البيانات المطلوبة ليقوم البرنامج بصنع ملفات داخل الرجستري