كيفية عمل فترة تجربية مثل منتجات البرامج الغربية

اخي الفاضل

الحوت المضيء

السلام عليكم ورحمة الله وبركاتة

هناك العديد والعديد من الطرق لجعل البرنامج يعمل لفترة تجريبية سواء بتاريخ محدد بعدها ينتهي البرنامج أو بعدد مرات استخدام البرنامج أو بعدد الادخالات

وعلي سبيل المثال 

هذا مثال يقوم بعد عدد مرات استخدام البرنامج تقوم في كل مرة فتحة حتي 25 مرة وعاده يتم وضع هذا الكود في حدث تحميل الفورم وهو أول فورم يظهر للمستخدم وليكن فورم الدخول للبرنامج

Dim retvalue As String = GetSetting("A", "0", "Runcount")

        Dim GD As String = Val(retvalue) + 1
        SaveSetting("A", "0", "RunCount", GD)

        If GD > 25 Then
            MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
            Me.Dispose()
        Else

            MsgBox(GD & "هذه المره رقم من عدد مرات فتح البرنامج", MsgBoxStyle.Information, "تنبيه")
            '  Login.Show()
            Me.Close()
        End If

بالتوفيق

وايضا هذا الكود اخي محمد فؤاد

لكن المشكلة iهنا  يستطيع المستخدم  حذف او تعطيل Registry

regKey = My.Computer.Registry.GetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", Nothing)

If (regKey Is Nothing) Then

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", 0)

ElseIf regKey = 30 Then

MsgBox("انتهت الفترة التجريبية للبرنامج")
Me.Close()

Else
regKey = regKey + 1
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", regKey)
End If

هل طريقتك تستعمل Registry

وماالحل برايك وشكر لك اخي الكريم

,

شكر لك استاذنا الفاضل  نعم كلام صحيح لا يوجد حمايه مطلقة