السلام عليكم وجدت هذا الكود حتى يمكننى تشغيل البرنامج لعدد معين من المرات ثم يتوقف البرنامج وقمت بتجربته ويعمل تمام
اريد ان اعرف هل هذا الكود قوى ام يمكن التحايل عليه او شىء من هذا القبيل
ونصيحتكم لى فى هذا الشأن
Dim retvalue As String = GetSetting("A", "0", "Runcount")
Dim GD As String = Val(retvalue) + 1
SaveSetting("A", "0", "RunCount", GD)
If GD > 25 Then
MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Else
MsgBox(GD & "هذه المره رقم من عدد مرات فتح البرنامج", MsgBoxStyle.Information, "تنبيه")
login.Show()
Me.Close()
End If
