كود لجعل برنامجك تجريبيا

[القيصر]

​
كود لجعل برنامجك تجريبيا




كود:

Public Class Form1
Dim T As Boolean
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T = False
Dim RegX As Microsoft.Win32.RegistryKey
RegX = Microsoft.Win32.Registry.CurrentUser
Dim S As String() = RegX.GetSubKeyNames
For Each A As String In S
If A = "smp3" Then
T = True
End If
Next

If T = True Then
RegX = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("smp3", True)
Dim x As Integer = RegX.GetValue("val")
x = x + 1
RegX.SetValue("val", x)
If x = 5 Or x > 5 Then
MsgBox("لقد انتهت مدتك لاستخدام البرنامج , يرجى الاتصال بفريق الدعم لمعرفة كيفية الشراء")
Application.Exit()
End If
Else
RegX = Microsoft.Win32.Registry.CurrentUser.CreateSubKey("smp3")
RegX.SetValue("val", 1)
End If
End Sub
End Class