منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود لجعل برنامجك تجريبي من برمجتي الخاصة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] كود لجعل برنامجك تجريبي من برمجتي الخاصة (/showthread.php?tid=17326)

كود لجعل برنامجك تجريبي من برمجتي الخاصة - 0theghost0 - 16-09-16

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

الكود يحسب على عدد الساعات فقط يمكنك جعله لمدة 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 ساعة

اي سؤال انا حاظر شباب

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - أبو عمر - 16-09-16

(16-09-16, 06:04 PM)0theghost0 كتب : كود قمت بالبحث على ما وجدة شبيه بماذا اريد وقمت بالتعديل عليه ليكون مناسب لما اريده

الكود يحسب على عدد الساعات فقط يمكنك جعله لمدة 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 ساعة

اي سؤال انا حاظر شباب

12+12=؟
ركز الله يحفظك

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - سعود - 16-09-16

............
التطبيق بهذا الشكل ليس مناسبا للفكرة.

الفكرة انك تضع قيمة اولية ثم تزيد عليها ....اما الكود هو يتحقق من الساعة الان وكما تعلم اقصاها 23  واقلها 0. يعني الان بتوقيت مكة سيعمل وغدا سيعمل وبعد غذ ايضا.
جرب عكس التحقق اي اجعلها هكذا
PHP كود :
     If Now.Hour < 48 Then
            MsgBox("End Terial")

            End

        End If 
باختصار now.hour لن تكون اكبر من 23

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - 0theghost0 - 16-09-16

تظهر لي المسج بأن البرنامج توقف

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - سعود - 16-09-16

(16-09-16, 08:04 PM)0theghost0 كتب : تظهر لي المسج بأن البرنامج توقف

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

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - 0theghost0 - 16-09-16

هل يوجد بديل او كود اقوى من هذا ؟؟

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

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - سعود - 16-09-16

إقتباس :هل يوجد بديل او كود اقوى من هذا ؟؟
طبعا اخي الكريم يوجد ومثل ماقلت لك ابسطها الريجستري
وفيه تخزينها بجدول بعيد او حتى ملف نصي بعيد ولو تحب تعقدها بعد احفظها بملف web.config في خادم او موقع على استضافة.
سويت مثال بسيط جدا لكني لم اجربه الا الان يعني يحتاج تجربة غدا
المثال يقوم بحفظ اسم مفتاح وقيمة shortdatestring ثم بالزر الاخر يتحقق هل الفرق بين  اقصى صلاحية بعدد الايام هل هو اقل من ايام الاستخدام بحساب الفرق بين التاريخ الحالي والتاريخ المخزن في الريجستري.

RE: كود لجعل برنامجك تجريبي من برمجتي الخاصة - 0theghost0 - 17-09-16

وجدة كود مخصص للتاريخ بدون رجستري ولا شيء


كود :
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

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