كود :
[align=right]
Public Class Form1
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 ' الرقم (10) يحدد عدد مرات التشغيل
MsgBox("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
Me.Close()
End If
End Sub
End Class[/align]
[/align[/align]]
اسف اخي لكن من السهل جدا تجاوزها لجعل البرنامج يشتغل بشكل عادي
اخي كيف يتم تجاوزها اذا كان البرنامج قد تم حزمه
(02-05-14, 02:43 AM)الاصيله كتب : [ -> ]اخي كيف يتم تجاوزها اذا كان البرنامج قد تم حزمه
يمكن تجاوزها عن طريق الدخول الی الرجستري وحذف الملف الي مسمي A او التلاعب بالعداد المخزون فيه
يستحسن التغيير من عدد المرات الي ايام
فرضا لو حملت برنامج وفتحته عده مرات او اشتغل البرنامج مع بدء تشغيل ويندوز في كل عمليه تشغيل يشتغل ، وانتهت المهله ولم اتمكن من معرفه مزاياه واتمعن فيه ماذا ستفعل ؟؟؟
سلة المهملات قريبه هههههههههه
الموضوع أخي أصعب مما تتوقع، أولاً ربما عليك عمل برنامج لتوليد الـSerial-Numbers وتخزينها في قاعدة بيانات في موقع تمت استضافته مسبقاً
وعندما يطلب أحد البرنامج تعطيه السيريال.
ويكون هناك جزء من البرنامج يطلب من المستخدم السيريال ثم يقوم بإختبار وجوده في قاعدة البيانات على الموقع، فإذا كانت صائبة يسمح لك بإستخدام البرنامج ويمسح
هذا السيريال من قاعدة البيانات
والله أعلم
(25-01-16, 11:19 AM)Aban Salah كتب : [ -> ]الموضوع أخي أصعب مما تتوقع، أولاً ربما عليك عمل برنامج لتوليد الـSerial-Numbers وتخزينها في قاعدة بيانات في موقع تمت استضافته مسبقاً
وعندما يطلب أحد البرنامج تعطيه السيريال.
ويكون هناك جزء من البرنامج يطلب من المستخدم السيريال ثم يقوم بإختبار وجوده في قاعدة البيانات على الموقع، فإذا كانت صائبة يسمح لك بإستخدام البرنامج ويمسح
هذا السيريال من قاعدة البيانات
والله أعلم
هههه هادا اللي بدي اعرفه كيف اخليه يطلب ادخال السيريال و عندها يذهب لقاعدة البيانات في الجدول المحدد مثلا serials و اذا وجد يفتح و اذا لم لا يفتح تعرف تفيدني ؟