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

ولكن المشكلة لا يختفي الفورم الاول ويظهر الفورم الثاني !!!
والمشكلة الثانية كل مره تظهر للمستخدم انتهت فتره استعمال البرنامج ع رغم انه وضع الباسورد الصحيح 
يعني اريد ان الغي ايقونه انه انتهت عمليت استعمال البرنامج بمجرد المستخدم ان يضع الكملة السر الصحية ولا تظهر مره اخري
وشكراً
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: مشكله في كود " الفترة التجريبة " - بواسطة e-coder - 14-03-18, 07:32 PM


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


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