تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعده في هذا الكود
#1
ارجو المساعده في هذا الكود ضروررررررررري
 انا بحثت ووجدت كود يجعل البرنامج يعمل لعدد مرات معينه وبعد ذلك يطلب سريال معين علشان البرنامج يتفعل
ولكن الكود لا يعمل فارجو المساعده لمن عندي الحل ضروري
وهذا هو الكود

Dim a = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "")
    Dim a_ = Microsoft.Win32.Registry.GetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")

    Private Sub fORM1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If a_ Is Nothing Then
            Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
        End If
        If a_ = "OFF" Then
            If a Is Nothing Then
                Microsoft.Win32.Registry.CurrentUser.CreateSubKey("ahmedsalah")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", "3")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "s", "xxxx")
                Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "A", "OFF")
            Else
                If a = "0" Then
                    Me.Hide()
                    MsgBox("انتهت فتره استخدامك للبرنامج")
                    frmSerialNumber.Show()

                Else
                    a = a - 1
                    Microsoft.Win32.Registry.SetValue("HKEY_CURRENT_USER\ahmedsalah", "t", a)
                    MsgBox("باقي لك علي استخدامك للبرنامج  " & a & "مره")
                End If

            End If
        Else
        End If
    End Sub
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهو الخطأ في الكود muad 2 60 15-11-19, 07:31 PM
آخر رد: muad
  [VB.NET] حدثت مشكله بالكود ارجو المساعده اليوم السابع 0 42 12-11-19, 01:01 PM
آخر رد: اليوم السابع
  [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه اليوم السابع 16 304 12-11-19, 03:23 AM
آخر رد: اليوم السابع
  [VB.NET] سؤال بخصوص webclint ارجو الدخول والمشاركه اليوم السابع 1 60 10-11-19, 06:36 PM
آخر رد: AbdoDabak
  ممكن تحويل الكود لحلقة تكرار m.n.hakami 2 98 10-11-19, 12:25 AM
آخر رد: m.n.hakami
  [VB.NET] اين الخطاء في الكود اليوم السابع 0 45 08-11-19, 11:37 PM
آخر رد: اليوم السابع
  [VB.NET] المكان المناسب لي هذا الكود اليوم السابع 0 52 08-11-19, 10:26 PM
آخر رد: اليوم السابع
  [سؤال] اريد المساعده بخصوص التعرف علي اللغه العربيه في صفحه HTML اليوم السابع 2 75 08-11-19, 03:20 AM
آخر رد: اليوم السابع
  [VB.NET] مساعده في الكود اليوم السابع 1 89 02-11-19, 09:20 PM
آخر رد: CrazyMe
  ارجو المساعده فى عمل كود تفعيل يفعل ايبي جهاز واحد فقط على زهران 0 64 01-11-19, 05:55 PM
آخر رد: على زهران

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم