* يجب علي أن تقرا الجزء الأول قبل الخوض في هذا الدرس
إذا كنت تريد الذهاب إلى الجزء الأول أنقر على هذه الوصلة
في هذا الدرس سوف نقوم بإنشاء مفتح في مسجل النظام ونقوم بوضع قيمة له ومن ثم نحذف هذا المفتاح
يجب عليك وضع هذا الكود أعلى محرر الأكواد ( خارج الفئة الرئيسية )
Imports Microsoft.Win32
هيا لنبدأ
أنشاء مفتاح جديد في مسجل النظام :-
' انشاء الكائن
Dim reg As Registry
' أنشاء المفتاح
reg.ClassesRoot.CreateSubKey("arabteam2000")في الكود السابق سوف يقوم بإنشاء مفتاح في مسجل النظام تحت الدليل HKEY_CLASSES_ROOT
وأسمه arabteam2000 أرجوا أن تكون هذه الخطوة مفهومه .
فتح المفتاح السابق وإنشاء قيمة سلسة * داخله :-
' انشاء الكائن
Dim reg As Registry
'إنشاء كائن للتعامل مع المفتاح
Dim regkey As RegistryKey = _
reg.ClassesRoot.OpenSubKey("arabteam2000", True)
'إنشاء مفتاح جديد
regkey.SetValue("vb.net", "top")في الكود السابق قمنا بفتح المفتاح arabteam2000 وأنشئنا قيمة سلسة داخله و جعلنا قيمتها top
ملاحظات /
إذا كانت قيمة سلسة موجود ة مسبقاً فسيقوم البرنامج بإسناد القيمة الجديدة له أي تغيرها
قيمة سلسة : لم أجد لها مسمياً ولذلك أخذت أسمه من مسجل النظام كما ترجمتها مايكروسوفت العربية .
معرفة قيمة سلسة :-
' انشاء الكائن
Dim reg As Registry
'إنشاء كائن للتعامل مع المفتاح
Dim regkey As RegistryKey = _
reg.ClassesRoot.OpenSubKey("arabteam2000", True)
' معرفة قيمة سلسة
MsgBox(regkey.GetValueNames("vb.net"))
'سوف تظهر topأظن الكود واضح
حذف قيمة سلسة :-
' انشاء الكائن
Dim reg As Registry
'إنشاء كائن للتعامل مع المفتاح
Dim regkey As RegistryKey = reg.ClassesRoot.OpenSubKey("arabteam2000", True)
' حذف قيمة سلسة
regkey.DeleteValue("vb.net")أظن الكود واضح
حذف مفتاح :-
يمكنك حذف مفتاح arateam2000 على شرط أن لا يكون متفرع منه مفاتيح أخرى بهذا الكود
' انشاء الكائن
Dim reg As Registry
' حذف مفتاح
reg.ClassesRoot.DeleteSubKey("arabteam2000")أما إذا كان متفرع منه مفاتيح أخرى وتريد حذفها جميعاً فعليك إستعمال DeleteSubKeyTree هكذا
' انشاء الكائن
Dim reg As Registry
' حذف مفتاح مع المفاتيح التي بداخله
reg.ClassesRoot.DeleteSubKeyTree("arabteam2000")هذه الأشياء الأساسية للتعامل مع مسجل النظام يمكنك التعمق أكثر باستخدام تعليمات فيجوال ستديو Net