تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] كود لإنهاء صلاحيات برنامجك التجريبي بعد30 يوماً فقط
#1
كود :
Dim startdate As String
Dim differenceofdate
Dim TRACEDATE As String
Dim newdate
Dim chk
كود PHP:
[CENTER]If GetSetting(App.Title, "Startup", "counter", "") = "" Then
SaveSetting App.Title, "Startup", "counter", 1
SaveSetting App.Title, "Startup", "Started", Format(Date, "mm dd yyyy")
SaveSetting App.Title, "Startup", "Last Used", Format(Date, "mm dd yyyy")
lblcnt.Caption = "1" [/CENTER]
[CENTER]ElseIf GetSetting(App.Title, "Startup", "counter", "") = "31" Then [/CENTER]
[CENTER]MsgBox "شكراً لستخدامك هذا البرنامج " & Chr(10) + Chr(1) & "الرجاء إيقاف عمل هذا البرنامج او سيتم فقدان كل المعلومات التي قمت بإدخالها ", vbCritical, "شكراً لك " [/CENTER]
[CENTER]End [/CENTER]
[CENTER]Else
TRACEDATE = GetSetting(App.Title, "Startup", "Last Used", "")
chk = DateDiff("d", CDate(TRACEDATE), Now)
If chk < 0 Then CHECK IF THE DATE WAS CHANGE which is lesser than the PREVIOUS DATE WHERE THE SYSTEM USED. [/CENTER]
[CENTER]MsgBox "لم يتم العثور على تاريخ النظام لديك !! " & Chr(10) + Chr(13) & " الرجاء تغييرة الأن وإلا لن يكون بإمكانك إستخدام هذا البرنامج لاحقاً", vbCritical, "تاريخ مفقود" [/CENTER]
[CENTER]End
Else
startdate = GetSetting(App.Title, "Startup", "Started", "")
differenceofdate = DateDiff("d", startdate, Now)
If differenceofdate <> 0 Then
lblcnt.Caption = differenceofdate + 1
SaveSetting App.Title, "Startup", "Last Used", Format(Now, "MM DD YYYY")
SaveSetting App.Title, "Startup", "counter", differenceofdate + 1
End If
If differenceofdate = 0 Then
lblcnt.Caption = GetSetting(App.Title, "Startup", "Counter", "")
End If
End If
End If
End Sub
[/CENTER]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Smile [VB.NET] كود لجعل برنامجك فوق الجميع ( النوافذ ) . YousefOkasha 4 1,433 09-06-19, 07:28 AM
آخر رد: black coder
  كود تحديد عدد مرات تشغيل برنامجك !!! أبو عمر 4 2,898 16-06-16, 01:51 PM
آخر رد: محمد سالم المحترف
  [كود] تشغيل برنامج في داخل برنامجك salfig 5 3,769 16-06-16, 01:44 PM
آخر رد: محمد سالم المحترف
  [VB.NET] بشان منح صلاحيات مستخدمين أبو فيصل 2 2,367 28-10-15, 10:03 PM
آخر رد: أبو فيصل

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم