الإرشادات التفصيلية: إنشاء مفتاح التسجيل و تغيير قيمه

توضح هذه معاينة كيفية إنشاء تطبيق يستعرض مفاتيح التسجيل في الكمبيوتر بحيث يمكن للمستخدمين إنشاء و حذف المفاتيح بالإضافة إلى القراءة و الحصول و تعيين و حذف القيم.

لإنشاء نموذج رئيسي

1. حددمشروع جديد في قائمة ملف و انقر فوق تطبيق ال Windows.

2. قم بإضافةTextBox المسمى Value إلى النموذج. في نافذة خصائص في الزاوية السفلية اليسرى في حقل (الاسم) ، اكتب القيمة.

3. قم بإضافةListBox المسمى History إلى النموذج. في نافذة خصائص في الزاوية السفلية اليسرى في حقل (الاسم) ، نوع التاريخ.

4. قم بإنشاء متغير إضافي و أضفه عليه مباشرةً بعد تعريف الفئة.

   Dim tempKey As Microsoft.Win32.RegistryKey
   

لاستعراض مفاتيح التسجيل في مربع التحرير و السرد

1. قم بإضافة ComboBox يسمى selectHive إلى النموذج ، و التي سوف تعرض خلايا السجل كما تتيح لك تحديد أحدها . و قم بملءها بواسطة إضافة التعليمات البرمجية التالية إلى حدث التحميل الخاص بالنموذج.

   selectHive.Items.Add("ClassesRoot")
   selectHive.Items.Add("CurentConfig")
   selectHive.Items.Add("CurrentUser")
   selectHive.Items.Add("LocalMachine")
   selectHive.Items.Add("PerformanceData")
   selectHive.Items.Add("Users")
   

2. قم بإرفاق التعليمات البرمجية التالية بعد تعريف الفئة .

   Dim registryObject As Microsoft.Win32.RegistryKey = Nothing
   

3. قم بإضافة التعليمات البرمجية التالية إلى الحدث selectHive SelectedIndexChanged .

   Select Case selectHive.Text
     Case "ClassesRoot"
       registryObject = My.Computer.Registry.ClassesRoot
     Case "CurrentConfig"
       registryObject = My.Computer.Registry.CurrentConfig
     Case "CurrentUser"
       registryObject = My.Computer.Registry.CurrentUser
     Case "LocalMachine"
       registryObject = My.Computer.Registry.LocalMachine
     Case "PerformanceData"
       registryObject = My.Computer.Registry.PerformanceData
     Case "Users"
       registryObject = My.Computer.Registry.Users
   End Select
   

قراءة القيمة في مفتاح التسجيل

1. قم بإضافة Button يسمى ReadValueButton إلى النموذج مع نص "قراءة القيمة".

2. أضف TextBox يسمى showSubKey إلى النموذج مع نص "إدخال مفتاح فرعي".

3. قم بإضافة التعليمات البرمجية التالية إلى الحدث ReadValueButton Click .

   tempKey = registryObject
   If tempKey Is Nothing Then
     MsgBox("Please select a registry hive.")
     Return
   End If
   Value.Text = CStr(tempKey.GetValue(ShowSubKey.Text))
   History.Items.Add("Read Value " & selectHive.Text & 
                     "\" & ShowSubKey.Text)
   

4. اختبر التطبيق الخاص بك و ذلك بإدخال الاسم الفرعي الموجود في مربع النص showSubKey . و عند النقر فوق ReadValueButton ، مربع النص Value يعرض القيمة .

لتعيين القيمة في مفتاح التسجيل

1. قم بإضافة زر باسم SetValueButton إلى النموذج مع نص "تعيين القيمة".

2. قم بإضافة التعليمات البرمجية التالية إلى معالج الحدث الخاص بها Click :

   tempKey = registryObject
   If tempKey Is Nothing Then
     MsgBox("Please select a registry hive.")
     Return
   End If
   If Value.Text Is Nothing Then
     MsgBox("Please enter a value.")
     Return
   End If
   tempKey.SetValue(showSubKey.Text, Value.Text)
   tempKey.Close()
   History.Items.Add("Set Value " & selectHive.Text & 
                     "\" & showSubKey.Text)
   

3. اختبر التطبيق الخاص بك و ذلك بإدخال قيمة جديدة للمفتاح فرعي في مربع النص القيمة و من ثم تأكيد أنه تم تغيير القيمة بواسطة زر باسم ReadValueButton.

لإنشاء أحد مفاتيح التسجيل

1. قم بإضافة زر باسم CreateButton إلى النموذج مع نص "إنشاء المفتاح".

2. قم بإضافة التعليمات البرمجية التالية إلى معالج الحدث الخاص بها Click :

   registryObject.CreateSubKey(showSubKey.Text)
   History.Items.Add("Create Key " & selectHive.Text & 
                     "\" & showSubKey.Text)
   

3. اختبر التطبيق الخاص بك بواسطة إدخال اسم المفتاح الجديد في مربع النص showSubKey و استخدم محرر السجل لتأكيد إنشاء المفتاح الخاص بك.

لحذف مفتاح التسجيل :

1. قم بإضافة زر إلى نموذج يُسمى DeleteButton مع نص "حذف المفتاح".

2. قم بإضافة التعليمات البرمجية التالية إلى معالج الحدث الخاص بها Click :

   tempKey = registryObject
   If tempKey Is Nothing Then
     MsgBox("Please select a registry hive.")
     Return
   End If
   If showSubKey.Text Is Nothing Then
     MsgBox("Please enter a subkey.")
     Return
   End If
   registryObject.DeleteSubKey(showSubKey.Text)
   History.Items.Add("Delete Key " & selectHive.Text & 
                     "\" & showSubKey.Text)
   

3. اختبر التعليمات البرمجية الخاصة بك عن طريق حذف المفتاح فرعي و استخدام محرر السجل للتأكيد أنه تم حذف المفتاح.

راجع أيضًا:

المهام

استكشاف الأخطاء و إصلاحها : معالجة السجل

المبادئ

المهام السجل الشائعة

السجل و الأمان

القراءة من و الكتابة إلى السجل باستخدام الأجزاء التالية الخاصة بي

القراءة من و الكتابة إلى السجل باستخدام مساحة الاسم Microsoft.Win32