منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - نسخة قابلة للطباعة

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



شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - احمد عبد الحكيم - 21-06-15

بسم الله الرحمن الرحيم
السلام عليكم شباب
ارجو منكم طريقة لجعل البرنامج يظهر رسالة السريال بعد اسبوع


RE: شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - silverlight - 22-06-15

فيه فكرة انا كنت ب استخدمها و هي كالأتي

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

و الكود التالي يوضح دالة تسترجع منها CreationTime و تحدد من خلالها فترة TrialPeriod و الدالة تسترجع قيمة عبارة عن Boolean


كود :
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       If CheckTrialPeriod(Application.StartupPath, 7) Then
           MessageBox.Show("you are in trial period ", "Information")
           Me.Close()
       End If
   End Sub

   Private Function CheckTrialPeriod(projectDirectory As String, tryPeriod As Integer) As Boolean
       Try
           Dim dt As DateTime = System.IO.Directory.GetCreationTime(projectDirectory)
           If DateTime.Now.Subtract(dt).TotalDays > tryPeriod Then
               Return True
           End If
       Catch ex As Exception
           Return False
       End Try
       Return False
   End Function


حاول تقوم بتغيير فترة TrialPeriod و تجعل قيمتها تساوي صفرا و سوف تري ان رسالة التنبية سوف تظهر ثم سيقوم البرنامج ب إغلاق نفسه


RE: شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - احمد عبد الحكيم - 22-06-15

شكرا لك اخى العزيزلاكن اليس هناك شئ اضعه فى my.stengs

شكرا جزيلا اخى فعلا الدالة شغالة وبسيطة جدا وموفيدة


RE: شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - silverlight - 22-06-15

my settings ليس لها علاقة ب الامر نهائيا عموما لي ملحوظة اضافية يجب ان تضع في اعتبارك أن الدالة ستعمل حتي لو البرنامج الخاص بك تم عمل Activation له و بالتالي انت في حاجة الي تضيف شرطا أخر لكي لا يتم تنفيذ الدالة في حالة Activation للبرنامج


RE: شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال - احمد عبد الحكيم - 22-06-15

اخدت بالى من الموضوع ده وتم الحل والحمد لله