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

واجهت مشكلة في الكود هذا
صورة المشكلة


الكود
PHP كود :
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        If My
.Application.Deployment.IsFirstRun Then ' المشكلة هنا
            My.Settings.Expiration_Date = Now.Date
            My.Settings.Save()
        End If
        If DateDiff(DateInterval.Day, Now, My.Settings.Expiration_Date) > 3 Then '
3 is the expiration date
            Dim Response 
As String "~"
 
           While Response <> "Password here" And Response <> Nothing
                Response 
InputBox("The 3 day trial is up! Please enter a password to continue using this software!""Trial")
 
           End While
 
           If Response Nothing Then End 'A crude, but effective, way of forcing a close
        End If
        Me.Hide()
        Form2.Show() '
If it passes all the testsstart the main program
    End Sub 
المشروع بالمرفقات


الملفات المرفقة
.rar   فتره تجريبة.rar (الحجم : 75.05 ك ب / التحميلات : 31)
الرد
تم الشكر بواسطة:
#2
كود :
انشئ متغيران احدهما  SDate  والاخر NDate  من نوع Date'
If My.Settings.SDate = Nothing Then

               My.Settings.SDate = Now.Date
               My.Settings.Save()
           End If

           Dim sdate As Date = My.Settings.SDate
           Dim Ndate As Date = Now.Date

           Dim Diff As Integer = DateDiff(DateInterval.Day, sdate, Ndate)

           If Diff > 3 Then
               MsgBox("عفواً انتهت الفتره التجريبيه للبرنامج برجاء الاتصال بالمبرمج")

               End
           Else
               MsgBox("لقد مر علي استخدام البرنامج  :   " & Diff & "   يوم   ")
           End If
الرد
تم الشكر بواسطة:
#3
جزاء الله خيراً ولكن اريد تعديل بحيث يضع المستخدم كلمة سر لعمل البرنامج بشكل نهائي
PHP كود :
    Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        
If My.Settings.SDate Nothing Then
            My
.Settings.SDate Now.Date
            My
.Settings.Save()
        End If
        Dim sdate As Date My.Settings.SDate
        Dim Ndate 
As Date Now.Date

        Dim Diff 
As Integer DateDiff(DateInterval.DaysdateNdate)

        If Diff 3 Then
            MsgBox
("عفواً انتهت الفتره التجريبيه للبرنامج برجاء الاتصال بالمبرمج")
            Dim Response As String "~"
            While Response <> "Password here" And Response <> Nothing
                Response 
InputBox("The 3 day trial is up! Please enter a password to continue using this software!""Trial")
            End While
            If Response Nothing Then End 'A crude, but effective, way of forcing a close
            Me.Hide()
            Form2.Show()
        Else
            MsgBox("لقد مر علي استخدام البرنامج  :   " & Diff & "   يوم   ")
          
        End If

    End Sub 

ولكن المشكلة لا يختفي الفورم الاول ويظهر الفورم الثاني !!!
والمشكلة الثانية كل مره تظهر للمستخدم انتهت فتره استعمال البرنامج ع رغم انه وضع الباسورد الصحيح 
يعني اريد ان الغي ايقونه انه انتهت عمليت استعمال البرنامج بمجرد المستخدم ان يضع الكملة السر الصحية ولا تظهر مره اخري
وشكراً
الرد
تم الشكر بواسطة:
#4
هذا يعني أن المشروع لم تعمل له ( Clickonce Deployment )  أو ( Publish Application )
من هنا :
   

إستخدم الكود التالي للتأكد : ApplicationDeployment.IsNetworkDeployed
تحتاج إلى إضافة فضاء الأسماء :Imports System.Deployment.Application )
كود :
       If ApplicationDeployment.IsNetworkDeployed Then
           If My.Application.Deployment.IsFirstRun Then ' المشكلة هنا
               My.Settings.Expiration_Date = Now.Date
               My.Settings.Save()
           End If
       End If

   
الرد
#5
لم تنجح معي
الرد
تم الشكر بواسطة:
#6
(16-03-18, 01:56 AM)e-coder كتب : لم تنجح معي

معليش عطها فرصة , يمكن تنجح في الدور الثاني  Big Grin

ممكن أعرف في أي مادة لم تنجح ؟

صور لي الشهادة على الأقل !!
الرد
تم الشكر بواسطة:
#7
ممكن تشوف الملف المرفق!
فكرة شبيهة


الملفات المرفقة
.zip   Testing_App.zip (الحجم : 66.99 ك ب / التحميلات : 38)
الرد
تم الشكر بواسطة:
#8
اخي انت عامل الكود فتره تجريبة ليوم واحد قمت بتقديم التاريخ ولم تنجح العملية
الرد
تم الشكر بواسطة:
#9
إقتباس :قمت بتقديم التاريخ 
تاريخ الجهاز ام ماذا؟
الرد
تم الشكر بواسطة:
#10
اكتب الشفرة Me.Close و ليس me.hide اذا كنت تريد اغلاق النافذة
هَٰٓؤُلَآءِ قَوْمُنَا ٱتَّخَذُوا۟ مِن دُونِهِۦٓ ءَالِهَةً لَّوْلَا يَأْتُونَ عَلَيْهِم بِسُلْطَٰنٍۭ بَيِّنٍ فَمَنْ أَظْلَمُ مِمَّنِ ٱفْتَرَىٰ عَلَى ٱللَّهِ كَذِبًا
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله عدم ارجاع قيمه feras.mohy 4 211 28-03-21, 06:59 PM
آخر رد: feras.mohy
  مشكله غريبه جداااا اليوم السابع 0 123 11-03-21, 03:47 AM
آخر رد: اليوم السابع
  [سؤال] عندي مشكله بالبحث بالتاريخ حسن الجلب 3 197 10-03-21, 01:28 AM
آخر رد: علي بنيان
  عندي مشكله في قواعد البيانات اليوم السابع 1 225 13-02-21, 01:40 AM
آخر رد: Jounior_P
  السلام عليكم اخوكم واقع في مشكله بسبب متغير ومحتاج منقشتكم اليوم السابع 6 368 07-02-21, 03:25 AM
آخر رد: اليوم السابع
Exclamation [VB.NET] مشكله حذف البيانات من تلقى نفسها ali bajmmal 0 292 03-02-21, 06:20 PM
آخر رد: ali bajmmal
  مشكله فى التنقل بين السجلات من خلال الداتاجريد فيو سلام و محبه 0 328 29-01-21, 11:15 PM
آخر رد: سلام و محبه
  مشكله فى حفظ سجل جديد سلام و محبه 7 557 13-01-21, 06:43 PM
آخر رد: moosa_alabri
  مشكله بالبكيتشر بووكس اليوم السابع 4 351 01-01-21, 08:55 AM
آخر رد: اليوم السابع
  انا عندي مشكله ممكن المساعده اريد كود يجلب لي اخر id moahmed.abdelmohsen 1 272 29-12-20, 11:25 PM
آخر رد: moahmed.abdelmohsen

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


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