[samee119485r]

اخي الكريم تفضل هاذا الكود

لمنع تشغيل البرنامج اكثر من نسخة

وهوه يعتمد على الرجستري في حفظ قمة المتغير X بحيث يزيد واحد على قيمته عند كل تشغيله للبرنامج الى ان يصل

قيمة المتغير الى العدد الذي تحدده انت وانا هنا حددت الرقم 4
الذي يوجد في الداله IF والتي تحمل ايضا شرط اذا وصل عدد المتغير X الى 4

اضهري رساله للمستخدم تخبره بأنتهاء المده التجريبيه والخروج من البرنامج


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



Dim X As String

Private Sub Form_Load()
On Error Resume Next
X = GetSetting(App.Title, "Settings", "SaveInX")


If X = "" Then

X = "0"

End If

If X >= "4" Then
MsgBox "لقد نفذت المدة التجريبية", , "النهايه"

End

End If
X = X + 1
End Sub


Private Sub Timer1_Timer()
SaveSetting App.Title, "Settings", "SaveInX", Trim(X)
End Sub