[eng.khalidvb]

السلام عليكم ورحمه الله وبركاته


تفضـــــــــــــــــــــــل اخي المثال     


[youtube]G2Iyd13J5ik[/youtube]


المثال في المرفقات  ... واسف على التأخير 

[Dr.Virus]

السلام عليكم ورحمة الله وبركاتة أخي 

جرب هذا الكود وإن شاء الله سيعمل معك 

كود :

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 كما في الصورة
   
وتعديل ما يلزم
   
هذا هو الكود

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 مرات في التشغيلة الاولى وفي المرة الثانية شغلت البرنامج فعند الضعط سيتم تثبيط عمل صناديق النص الثلاث