+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : كود لجعل البرنامج نسخه تجريبيه (/showthread.php?tid=15441)
كود لجعل البرنامج نسخه تجريبيه - ghaner joseph - 10-04-16
كود لجعل البرنامج نسخه تجريبيه
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()
RE: كود لجعل البرنامج نسخه تجريبيه - محمد كريّم - 10-04-16
يمكن تجاوزه بكل سهولة عن طريق تعديل ملف config
RE: كود لجعل البرنامج نسخه تجريبيه - AbdoSoft - 12-04-16
جزاك الله خيرا يا اخى