السلام عليكم ورحمه الله وبركاته
تفضـــــــــــــــــــــــل اخي المثال
[youtube]G2Iyd13J5ik[/youtube]
المثال في المرفقات ... واسف على التأخير
السلام عليكم ورحمة الله وبركاتة أخي
جرب هذا الكود وإن شاء الله سيعمل معك
كود :
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
' زيادة قيمة الملف المتحقق منه بقيمة 1
Try
'التحقق من وجود الملف ام لا
If Not IO.File.Exists(Application.StartupPath & "\Run.inf") Then
' اذا لم يتم إيجاد الملف للتحقق منه
a = 1
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Run.inf", a, False)
Else
'إذا تم إيجاد الملف
'-------------------------
'قراءة القيمة الموجودة في الملف
a = My.Computer.FileSystem.ReadAllText(Application.StartupPath & "\Run.inf")
' التحقق من قيمة الملف
' لو القيمة اكبر من او تساوي 10
If a >= 10 Then
' لو القيمة اكبر من او تساوي 10
'إظهار رساله تفيد بأن المدة التجريبية انتهت ويتم تعطيل الزر
MsgBox("The Trial Time Has Been End")
Button2.Enabled = False
Else
' إذا لم تكون القيمة اكبر من او تساوي 10 يتم زيادة القيمة بمقدار 1
My.Computer.FileSystem.WriteAllText(Application.StartupPath & "\Run.inf", a + 1, False)
End If
End If
Catch ex As Exception
' هذا لاظهار رسالة بالخطا ورقمه اذا وجد
MessageBox.Show(ex.Message, "Error NO.: " & Err.Number, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
والسلام عليكم ورحمة الله وبركاتة
جرب هذا الكود
عرف المتغير a عام لكي يحتفظ باخر قيمة لة
[ Dim a As Integer
Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseClick
a = a + 1
If a >= 10 Then
("تم تعطيل الادخال") MsgBox
TextBox1.Enabled = False
TextBox1.Text ="لقد استخدمت مربع النص 10 مرات هذة النسخة من البرنامج غير مرخصة"
End If]
اما افضل طريقة لتعلم العميل بأن البرنامج غير مجاني
هي ان تعمل اكوادك الخاصة بفحص النسخة اذا مجانية او غير مجانية
عند عملية تشغيل النظام
السلام عليكم
الموضوع مأخوذ من الأخ سعود مشكورا في المنتدى القديم
تبقى فكرة كيف ترجع الازرار الى ما كانت عليه هذا يبقى عليك
اذهب الى My Project كما في الصورة
[
attachment=2132]
وتعديل ما يلزم
[
attachment=2132]
هذا هو الكود
PHP كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
My.Settings.myval += 1
My.Settings.Save()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Val(My.Settings.myval) >= 10 Then
'الهدف المطلوب بعد 10 ازرار
'على سبيل المثال عدد الضغطات
MsgBox("البرنامج مجاني")
'الغاء التحكم بصناديق النص
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
Else
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
End If
End Sub
ملاحظة
على افتراض ان الزر عند الضغط عليه يتم احتساب عدد الضغطات حتى ولو كانت بعد اغلاق البرنامج
يعني مثلا لو ضغطت 9 مرات في التشغيلة الاولى وفي المرة الثانية شغلت البرنامج فعند الضعط سيتم تثبيط عمل صناديق النص الثلاث