10-04-16, 07:07 PM
كود لجعل البرنامج نسخه تجريبيه
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim GD As String Dim retvalue As Object retvalue = GetSetting("A", "0", "Runcount") GD = CStr(Val(retvalue) + 1) SaveSetting("A", "0", "RunCount", GD) If CDbl(GD) > 10 Then ' الرقم ) 01 ( يحذد عذد مراث الخشغيل
MsgBox("انخهج مذة حشغيل البرنامج ،،، قم بشراء النسخت الكاملت من المنخج ") Me.Close()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim GD As String Dim retvalue As Object retvalue = GetSetting("A", "0", "Runcount") GD = CStr(Val(retvalue) + 1) SaveSetting("A", "0", "RunCount", GD) If CDbl(GD) > 10 Then ' الرقم ) 01 ( يحذد عذد مراث الخشغيل
MsgBox("انخهج مذة حشغيل البرنامج ،،، قم بشراء النسخت الكاملت من المنخج ") Me.Close()