[الكاتب]

تفضل هذا كود اسهل من السابق

ادرج المكتبة

Imports Microsoft.Win32

ومن ثم ضع هذا الكود في اللود او البتن المهم يجب تفعيله عند تشغيل البرنامج !

Dim regKey As String

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

If (regKey Is Nothing) Then

Dim MpTryApi As String = Now.AddDays(30D)
My.Computer.Registry.SetValue("HKEY_CURRENT_USER\MyAppvBsQ", "TRI", MpTryApi)

ElseIf regKey = Date.Now Then

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

ويتم التحكم بالايام من خلال هذا الكود

Dim MpTryApi As String = Now.AddDays(30D)

لاحظ اللون الاحمر هذا عدد الايام ويمكن تعديلها للفترة التي تريدها

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