تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] شباب جعل البرنامج يعمل 7 ايام فقط وبعد ذلك يظهر نموذج السريال
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب
ارجو منكم طريقة لجعل البرنامج يظهر رسالة السريال بعد اسبوع
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#2
فيه فكرة انا كنت ب استخدمها و هي كالأتي

تحدد 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 و تجعل قيمتها تساوي صفرا و سوف تري ان رسالة التنبية سوف تظهر ثم سيقوم البرنامج ب إغلاق نفسه
الرد }}}}
تم الشكر بواسطة: محمود رغمان , ربيع
#3
شكرا لك اخى العزيزلاكن اليس هناك شئ اضعه فى my.stengs

شكرا جزيلا اخى فعلا الدالة شغالة وبسيطة جدا وموفيدة
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:
#4
my settings ليس لها علاقة ب الامر نهائيا عموما لي ملحوظة اضافية يجب ان تضع في اعتبارك أن الدالة ستعمل حتي لو البرنامج الخاص بك تم عمل Activation له و بالتالي انت في حاجة الي تضيف شرطا أخر لكي لا يتم تنفيذ الدالة في حالة Activation للبرنامج
الرد }}}}
تم الشكر بواسطة: ربيع
#5
اخدت بالى من الموضوع ده وتم الحل والحمد لله
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 10 4,992 25-05-17, 08:04 AM
آخر رد: hatem555
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 93 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  يظهر خطاء بعد تنصيب البرنامج ساعدوني samawi 5 120 15-05-17, 04:08 AM
آخر رد: samawi
  [SQL] التاريخ في البرنامج العواد الصغير 7 190 14-05-17, 06:17 PM
آخر رد: العواد الصغير
  اخطاء في البرنامج zinab ali 1 49 08-05-17, 12:44 AM
آخر رد: zinom
  [VB.NET] كيفية فتح البرنامج اكتر من مرة بشروط معينة الماجيك مسعد 6 129 07-05-17, 04:15 AM
آخر رد: الماجيك مسعد
  كود حماية البرنامج من النسخ والسرقة ramimohammed 2 122 01-05-17, 03:39 PM
آخر رد: أسامة السالمي
  كيفية ربط البرنامج مع الاكسس اللي موجود علي ال Share point khaled12345 0 48 17-04-17, 05:55 PM
آخر رد: khaled12345
  عند ملامسة اداة اداة اخرى يظهر Msgbox Basil Abdallah 2 92 14-04-17, 11:48 PM
آخر رد: Basil Abdallah
  كيف اجعل برنامجي هو البرنامج الافتراضي؟ Incubus 2 147 07-04-17, 12:36 AM
آخر رد: Ratchinko

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


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