المشاركات : 21
المواضيع 7
الإنتساب : Aug 2013
السمعة :
0
الشكر: 0
تم شكره 0 مرات في 0 مشاركات
السلام عليكم
العنوان واضع , لو سمحتو اريد صناعة برنامج يعمل لشهر واحد ثم يتوقف عن العمل
حاولت كثير مع التاريخ ولم استطع ..
المشاركات : 1
المواضيع 0
الإنتساب : May 2014
السمعة :
0
الشكر: 0
تم شكره 1 مرات في 1 مشاركات
تفضل اخي
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