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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اتمنى المساعده لمن يعرف حل هذي المشكلة Hussain1995 1 90 22-10-20, 02:51 AM
آخر رد: سعود
  ارجو تعديل فى جملة SELECT new_programer 3 153 14-10-20, 11:50 PM
آخر رد: new_programer
  ارجو المساعدة في كود حذف فاتورة بيع sofiane-phy 1 142 11-10-20, 12:12 AM
آخر رد: محمد كريّم
  [VB.NET] ارجو المساعدة مشكل les boucles fohah 2 153 04-10-20, 06:19 PM
آخر رد: fohah
  من فضلكم نوع الخطأ في الكود sofiane-phy 4 211 26-09-20, 08:57 PM
آخر رد: sofiane-phy
Rainbow [كود] ماهو الخطا في الكود الموضح لكم محمد مسافر 2 189 23-09-20, 01:09 AM
آخر رد: محمد مسافر
  عندي مشكلة بخصوص الكود هدا The program '[13020] MainProj.exe' has exited with code 0 ٍOfelas 1 172 21-09-20, 12:27 AM
آخر رد: Anas Mahmoud
  [سؤال] ارجو الرد سريعا مايسترو 2 214 19-09-20, 04:12 PM
آخر رد: عبد الرؤوف
  [VB.NET] ارجو المساعدة في برنامج لتشغيل الملفات الصوتية لنطق الارقام eman kh 5 504 13-09-20, 06:05 PM
آخر رد: eman kh
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 211 09-09-20, 01:33 PM
آخر رد: momani33

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


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