تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] كيف اعمل برنامجي اصدار تجريبي...
#1
سلام عليكم
اريد من الاخوة ان يقدمي لكي
كود ييجعل البرنامج تجريبي
بعدد مرات تشغيل
وبحيث لايمكن تجاوزة بأي
شكل من الاشكال

وانا وضعت هذا الكود لينتهي عمل برنامج بعد 29 يوم


إقتباس :
كود :
Dim intTime As Integer = 1
   Dim dteLastStart, dteStartDate As Date
   Dim blnFirstTime, blnEnabled As Boolean
   Dim lngTimeLeft As Long

   blnEnabled = True
   If dteStartDate = Nothing Then
       dteStartDate = Now
   End If

   My.Application.SaveMySettingsOnExit = True


   If DateDiff(DateInterval.Day, dteLastStart, Now) < 0 Then
       'First clock change
       If intTime = 1 Then
           MsgBox("FRED has detected that you have changed your system date to an earlier date" & vbCrLf & "As FRED has built-in security," & vbCrLf & "FRED will only run until the next intTime you change your system date", MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "System Date Changed")
           intTime = 2
       ElseIf intTime = 2 Then
           'Second clock change
           blnEnabled = False
           MsgBox("FRED has detected that you have changed your system date to an earlier date" & vbCrLf & "As this is the second warning, FRED will now be disabled", MsgBoxStyle.OkOnly Or MsgBoxStyle.Exclamation, "System Date Changed")
       End If
       'disables app
       If blnEnabled = False Then
           If MsgBox("FRED is disabled", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Disabled") = MsgBoxResult.Ok Then
               For Each form As Form In My.Application.OpenForms
                   form.Close()
               Next
           End If
       End If
   End If

   If DateDiff(DateInterval.Day, dteStartDate, Now) > 29 Then
       blnEnabled = False
       If blnEnabled = False Then
           If MsgBox("FRED has reached the end of it's trial.", MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, "Trial Ended") = MsgBoxResult.Ok Then
               'Close all open forms
               For Each form As Form In My.Application.OpenForms
                   form.Close()
               Next
           End If
       End If
   End If
   dteLastStart = Now
   If blnFirstTime = True Then
       blnFirstTime = False
   End If
   'Saves variable settings
   My.Settings.Save()

   lngTimeLeft = 29 - (DateDiff(DateInterval.Day, dteStartDate, Now))

   MsgBox("This is a 29-day trial version." & vbCrLf & "You have " & CStr(lngTimeLeft) & " days left.", MsgBoxStyle.OkOnly, "FRED Trial")
end sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [نقاش] طريقة لارسال النقود عند شراء برنامجي hoshosgost@yahoo.com 3 58 16-10-17, 02:58 AM
آخر رد: حريف برمجة
  ما هي افضل طريقة لجعل البرنامج تجريبي محمود صالح 3 148 15-10-17, 11:32 PM
آخر رد: hoshosgost@yahoo.com
  [VB.NET] كيف اعمل كومبوبوكس قائم على 2 كمبوبوكس آخرين nassery99 3 84 11-10-17, 05:50 AM
آخر رد: nassery99
Thumbs Up [C#.NET] من فضلكم انا عاوز اعمل برنامج تنفيذ الاوامر الصوتيه والتحدث بالفيجوال بيسك ahmed kamal 0 59 04-10-17, 11:34 PM
آخر رد: ahmed kamal
  [C#.NET] إضافة برنامجي جنب ساعة Anis Gladiator 6 103 30-09-17, 09:41 AM
آخر رد: Anis Gladiator
  عايز اعمل حاجة تخليني اعرف كام جهاز مشغل البرنامج ومواصفات الاجهزة ووالوصول لقاعدة ال hoshosgost@yahoo.com 2 113 28-09-17, 11:41 PM
آخر رد: مصمم الدوادمي
  اخواني ازي اعمل داااا زي دي من الفيجول بيسك vb.net امل عوض 1 133 30-08-17, 12:24 PM
آخر رد: Jounior_P
  كيف اجعل برنامجي يشغل امتدادات خاصة انا اكتبها بالكود سعود 2 139 07-08-17, 02:41 AM
آخر رد: سعود
  [VB.NET] كيف اعمل السابق /previous في هذا الكود + المشروع e-coder 1 111 10-07-17, 11:04 AM
آخر رد: e-coder
  [VB.NET] كيف اجعل برنامجي ما بشتغل الا لشخص واحد e-coder 2 176 28-06-17, 12:29 PM
آخر رد: silverlight

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


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