تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اين الخطئ في هد الكود ahmedbezia 4 90 01-06-20, 03:57 PM
آخر رد: Sorax
  تنفيذ استعلام حذف البيانات في جدول قاعدة بيانات سيكوال سيرفر باستخدام الكود في فجوال momani33 4 99 28-05-20, 12:46 AM
آخر رد: اسامه الهرماوي
  ارجو المساعدة developermedo111 5 106 21-05-20, 05:46 AM
آخر رد: developermedo111
  اريد عمل Invoke لهذا الكود لوضعه في BackGroundWorker developermedo111 1 82 14-05-20, 12:00 PM
آخر رد: عبدالله الدوسري
  عايز اعرف السطر اللي بيحصل عنده المشكله في الكود makky 0 45 10-05-20, 08:43 PM
آخر رد: makky
  [كود] ما هو الكود المناسب لصنع برنمج تحويل الصور ل ايقونات محمد ايمن 7 308 08-05-20, 03:12 AM
آخر رد: سعود
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 31 1,208 02-05-20, 08:47 PM
آخر رد: علي سالم
  اريد تحويل الكود developermedo111 2 106 02-05-20, 08:14 AM
آخر رد: developermedo111
  [VB.NET] كيف اقضي على مشاكل الكود البحث ةالاضافة و التعديل بالعربية في فيجوال بيسك rochdi191 5 157 01-05-20, 04:26 PM
آخر رد: rochdi191
  شرح الكود developermedo111 0 62 29-04-20, 12:06 AM
آخر رد: developermedo111

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


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