[mr3omr]

السلام عليكم
العنوان واضع , لو سمحتو اريد صناعة برنامج يعمل لشهر واحد ثم يتوقف عن العمل
حاولت كثير مع التاريخ ولم استطع ..

[abdulrahman]

تفضل اخي



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 abdulrahman As Microsoft.Win32.RegistryKey
abdulrahman = Microsoft.Win32.Registry.CurrentUser
Dim S As String() = abdulrahman.GetSubKeyNames
For Each A As String In S
If A = "smp3" Then
T = True
End If
Next

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