21-06-15, 08:15 PM
22-06-15, 02:32 AM
فيه فكرة انا كنت ب استخدمها و هي كالأتي
تحدد CreationTime الخاص ب فهرس البرنامج فإن كان اقل من فترة TrialPeriod حينها تقوم بتنفيذ ما تريده مثل اغلاق البرنامج او اظهار رسالة للعميل او شئ من مثل هذه الأمور
و الكود التالي يوضح دالة تسترجع منها CreationTime و تحدد من خلالها فترة TrialPeriod و الدالة تسترجع قيمة عبارة عن Boolean
حاول تقوم بتغيير فترة TrialPeriod و تجعل قيمتها تساوي صفرا و سوف تري ان رسالة التنبية سوف تظهر ثم سيقوم البرنامج ب إغلاق نفسه
تحدد 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 و تجعل قيمتها تساوي صفرا و سوف تري ان رسالة التنبية سوف تظهر ثم سيقوم البرنامج ب إغلاق نفسه
22-06-15, 12:31 PM
شكرا لك اخى العزيزلاكن اليس هناك شئ اضعه فى my.stengs
شكرا جزيلا اخى فعلا الدالة شغالة وبسيطة جدا وموفيدة
شكرا جزيلا اخى فعلا الدالة شغالة وبسيطة جدا وموفيدة
22-06-15, 06:53 PM
my settings ليس لها علاقة ب الامر نهائيا عموما لي ملحوظة اضافية يجب ان تضع في اعتبارك أن الدالة ستعمل حتي لو البرنامج الخاص بك تم عمل Activation له و بالتالي انت في حاجة الي تضيف شرطا أخر لكي لا يتم تنفيذ الدالة في حالة Activation للبرنامج
22-06-15, 10:58 PM
اخدت بالى من الموضوع ده وتم الحل والحمد لله