منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كوووود يجعل البرنامج يفتح 5 مرات فقط ومن ثم بعد ذلك تظهر رساله تفعيل البرنامج

السلام عليكم
اولا
اذهب الي اعدادات المشروع
ثم الي خيار settings
ثم في حقل name اكتب nb
وفي حقل type قم باختيار integer
ثم قم باضافة class للمشروع وضع هذا الكود به


Namespace My
Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As

Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
My.Settings.nb += 1
My.Settings.Save()
End Sub
End Class
End Namespace

ثم في Form1 ضع textbox
ثم ضع هذا الكود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ReadOnly = True
TextBox1.Visible = False
TextBox1.Text = My.Settings.nb
If TextBox1.Text > 5 Then
MsgBox("تم انتهاء المدة التجريبية برجاء تفعيل البرنامج")
Me.Enabled = false
Form2.ShowDialog()
End If
End Sub

بإمكانك حفظ عدد مرات فتح البرنامج في الريجستري

(30-07-19, 12:34 PM)mohamedahmed1 كتب : [ -> ]السلام عليكم
اولا
اذهب الي اعدادات المشروع
ثم الي خيار settings
ثم في حقل name اكتب nb
وفي حقل type قم باختيار integer
ثم قم باضافة class للمشروع وضع هذا الكود به


Namespace My
   Partial Friend Class MyApplication

       Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As

Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
           My.Settings.nb += 1
           My.Settings.Save()
       End Sub
   End Class
End Namespace

ثم في Form1 ضع textbox
ثم ضع هذا الكود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.ReadOnly = True
       TextBox1.Visible = False
       TextBox1.Text = My.Settings.nb
       If TextBox1.Text > 5 Then
           MsgBox("تم انتهاء المدة التجريبية برجاء تفعيل البرنامج")
           Me.Enabled = false
           Form2.ShowDialog()
       End If
   End Sub

حبيبي يا كبير الله ينور عليك كل حاجه مشت تمام ماعدا الكلاس فيه مشاكل ممكن توضحلي اكتير اكتب ايه في الكلاس

---

(30-07-19, 12:34 PM)mohamedahmed1 كتب : [ -> ]السلام عليكم
اولا
اذهب الي اعدادات المشروع
ثم الي خيار settings
ثم في حقل name اكتب nb
وفي حقل type قم باختيار integer
ثم قم باضافة class للمشروع وضع هذا الكود به


Namespace My
   Partial Friend Class MyApplication

       Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As

Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
           My.Settings.nb += 1
           My.Settings.Save()
       End Sub
   End Class
End Namespace

ثم في Form1 ضع textbox
ثم ضع هذا الكود

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.ReadOnly = True
       TextBox1.Visible = False
       TextBox1.Text = My.Settings.nb
       If TextBox1.Text > 5 Then
           MsgBox("تم انتهاء المدة التجريبية برجاء تفعيل البرنامج")
           Me.Enabled = false
           Form2.ShowDialog()
       End If
   End Sub

حبيبي يا كبير الله ينور عليك كل حاجه مشت تمام ماعدا الكلاس فيه مشاكل ممكن توضحلي اكتير اكتب ايه في الكلاس

احذف جميع الاكواد الموجودة في الكلاس
وضع الكود

دا

Namespace My
Partial Friend Class MyApplication

Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As

Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
My.Settings.nb += 1
My.Settings.Save()
End Sub
End Class
End Namespace

(30-07-19, 12:58 PM)mohamedahmed1 كتب : [ -> ]احذف جميع الاكواد الموجودة في الكلاس
وضع الكود

دا

Namespace My
  Partial Friend Class MyApplication

      Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As

Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup
          My.Settings.nb += 1
          My.Settings.Save()
      End Sub
  End Class
End Namespace

الله يوفقك يا محمد تم يا كبير ولكن هل من الممكن استثني ليبل معين مايتعملش ليه فولس

ما تحتاجه موجود هنا
http://vb4arb.com/vb/showthread.php?tid=25540

شكرا يا غالي
ممكن في فورم 1
تشيل الكود دا Me.Enabled = false
وتحط براحتك الادوات في الفورم اللي عايز يتعملها فولس
مثلا عندك تسكت بوكس وبوتن عايز الانيبول بتاعهم يبقا فولس
يبقا هتكتب كدا
textbox1.enabled = false
Button1.enabled = false
لكن عند جعل الفورم كلها الانيبول الخاص بها فولس لا يمكن استثناء عناصر في الفورم

(30-07-19, 01:12 PM)mohamedahmed1 كتب : [ -> ]شكرا يا غالي
ممكن في فورم 1
تشيل الكود دا Me.Enabled = false
وتحط براحتك الادوات في الفورم اللي عايز يتعملها فولس
مثلا عندك تسكت بوكس وبوتن عايز الانيبول بتاعهم يبقا فولس
يبقا هتكتب كدا
textbox1.enabled = false
Button1.enabled = false
لكن عند جعل الفورم كلها الانيبول الخاص بها فولس لا يمكن استثناء عناصر في الفورم

انت من النهارده صديقي 

https://www.facebook.com/eng.kareem.mamo

الشباب مشكورين على جهودهم الطيبة ... لكن في خلل في الحل اللي اقترحوه 

جرب انقل ملف ال exe  الى فولدر اخر .... رح يرجع يصفر (يعني يعيد من الأول )

الطريقة الأفضل انك تخزن العدد في الريجستري  يا صديقي