الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكله اضافه قيمه من نوع binary في الرجيستري

بدأه silent-sa في 5 أغسطس 2010 · 2 رد · 496 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

هذا المشروع

Public Class Form1
    Dim key As Microsoft.Win32.RegistryKey

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        key = Microsoft.Win32.Registry.CurrentUser 

        key = key.OpenSubKey("Software\vb4arab", True)

    Dim b() As Byte = {1, 2, 3, 4, 5, 6}

        key.SetValue("test", b, Microsoft.Win32.RegistryValueKind.Binary)

    End Sub

عندما ادخل القميه "6F,8D,6A,8B,D6,71,D5,FF" في المصفوفه b من نوع byte لا يقبل

فهل ممكن تساعدوني في وضع القميه لاني اريد انشاء ملف باينري بهذه القيم وشكرا

#2

الكود بعد التعديل

    Dim key As Microsoft.Win32.RegistryKey

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        key = Microsoft.Win32.Registry.CurrentUser

        key = key.CreateSubKey("Software\vb4arab", Microsoft.Win32.RegistryKeyPermissionCheck.Default)

        Dim b() As Byte = {&H6F, &H8D, &H6A, &H8B, &HD6, &H71, &HD5, &HFF}

        key.SetValue("test", b, Microsoft.Win32.RegistryValueKind.Binary)

    End Sub

الخطأ الأول أن المفتاح غير موجود فى الريجيسترى لذلك عند محاولة فتحه فى هذا السطر

key = key.OpenSubKey("Software\vb4arab", True)

تكون النتيجة Nothing

الخطأ الثانى فى القيم التى تريد إدخالها أنها مكتوبة بالنظام السداسى عشر لذلك لابد من وضع &H قبلها

تم تعديل هذه المشاركة بواسطة GHOST2010 في 5 أغسطس 2010 في 17:36

إن قلت قال الله قال رسولـه همزوك همز المنكر المتعالي
أو قلت قد قال الصحابة والألـى تبعاً لهم بالقول والأعمال
أو قلت قـال الشافعي وأحمد و أبو حنيفة والإمام الغالي
صدوا عن وحي الإله ودينـه واحتالوا على حرام الله بالإحلال
يا أمةً لعبت بدين نبيها كتلاعب الصبيان في الأوحال
حاشا رسول الله يحكم بالهوى تلك إذاً حكومة الضلال

feed.1.gif

#3
GHOST2010 كتب:

الكود بعد التعديل

    Dim key As Microsoft.Win32.RegistryKey

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        key = Microsoft.Win32.Registry.CurrentUser

        key = key.CreateSubKey("Software\vb4arab", Microsoft.Win32.RegistryKeyPermissionCheck.Default)

        Dim b() As Byte = {&H6F, &H8D, &H6A, &H8B, &HD6, &H71, &HD5, &HFF}

        key.SetValue("test", b, Microsoft.Win32.RegistryValueKind.Binary)

    End Sub

الخطأ الأول أن المفتاح غير موجود فى الريجيسترى لذلك عند محاولة فتحه فى هذا السطر

key = key.OpenSubKey("Software\vb4arab", True)

تكون النتيجة Nothing

الخطأ الثانى فى القيم التى تريد إدخالها أنها مكتوبة بالنظام السداسى عشر لذلك لابد من وضع &H قبلها

اشكرك عزيزي GHOST2010 على المعلومه والله يجزاك خير

تم الحل

مواضيع مشابهة