في البداية فإننا نقوم بإنشاء كائن من الفئة
Class Registrykey كالتالي:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
بعد ذلك سيكون كل تعاملنا مع هذا الكائن Key والذي قمنا باشتقاقه من الفئة
Class Registrykey بسطر الكود السابق.
والآن الخطوة التالية هي اختيار المفتاح الرئيسي الذي نريد التعامل معه، وسنقوم باختيار هذا المفتاح من خلال الفئة
Class Registry ويكون ذلك كالتالي:
كود :
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
كما ترى فإننا قمنا باختيار المفتاح الرئيسي ( HKEY_CURRENT_USER ) ولاحظ أنه في أثناء كتابتك للكود السابق يقوم محرر الكتابة بإظهار المفاتيح الرئيسية لاختيار واحدة منها.
بعد أن نختار المفتاح الرئيسي سيكون علينا تحديد ما إذا كنا سنتعامل مع هذا المفتاح الرئيسي نفسه، أو أننا سنتعامل مع مفاتيح متفرعة عن هذا المفتاح الرئيسي.
في الحالة الأولى سيكون بإمكاننا البدء باستخدام الوظائف ما بين قراءة وكتابة وحذف، وسيتم تنفيذ ذلك على المفتاح الرئيسي.
وأما في الحالة الثانية فسيكون علينا أولاً تحديد المفتاح الفرعي الذي سنتعامل معه ويكون ذلك عن طريق الوظيفة
Function OpenSubKey كالتالي:
كود :
[color=blue]Function OpenSubKey[/color](name As String, writable As Boolean) As Microsoft.Win32.RegistryKey
ولاحظ أن هذه الوظيفة تقبل معاملين:
المعامل الأول:
name من نوع
String ونحدد فيه اسم ومسار المفتاح الفرعي الذي نريد التعامل معه.
المعامل الثاني:
writable من نوع
Boolean ونحدد فيه ما إذا كنا سنسمح بالقراءة من والكتابة في هذا المفتاح
True ، أو أننا سنسمح بالقراءة فقط دون الكتابة
False. ويمكننا تجاهل المعامل الثاني، وفي هذه الحالة سيتم التعامل مع المفتاح على أنه للقراءة فقط
ReadOnly.
صيغة المثال:
كود :
Key = Key.OpenSubKey("Software", [color=blue]True[/color])
هنا اخترنا المفتاح الفرعي ( Software ) والموجود تحت المفتاح الرئيسي ( HKEY_CURRENT_USER ) تمهيداً للتعامل معه.
خصائص الفئة: (Class Registrykey )
تحتوي الفئة (
Class Registrykey ) على ثلاث خصائص هي:
الخاصية الأولى (
Name ): وتقوم بإعادة اسم المفتاح الذي يتم التعامل معه حالياً.
الخاصية الثانية (
SubKeyCount ): وتقوم بإعادة عدد المفاتيح داخل المفتاح الذي يتم التعامل معه حالياً.
الخاصية الثالثة (
ValueCount ): وتقوم بإعادة عدد القيم الموجودة داخل المفتاح الذي يتم التعامل معه حالياً.
كما هو ظاهر فإن هذه الخصائص الثلاثة للقراءة فقط (
ReadOnly )، ولا يمكن الكتابة إليها.
وظائف وإجراءات الفئة: ( Class Registrykey )
تحتوي الفئة (
Class Registrykey )على وظائف وإجراءات عديدة، سنتناول فيما يلي أهمها بالشرح والتفصيل:
الوظيفة: (
CreateSubKey Function )
وتقوم هذه الوظيفة بإضافة مفتاح جديد إلى الريجستري، كالتالي:
كود :
[align=left]
Function CreateSubKey(subkey As String) As Microsoft.Win32.RegistryKey[/align]
وتقبل هذه الوظيفة معامل واحد فقط وهو: المعامل (
subkey ) من نوع (
String) ونحدد فيه اسم المفتاح الجديد الذي نريد إنشائه.
ولكن أين سيتم إضافة هذا المفتاح ؟
لا أعتقد أنه بإمكانك أن تسأل هذا السؤال بعد كل التوضيح الذي ذكرناه بالأعلى.
لقد قمنا سابقاً باستخدام الوظيفة (
OpenSubKey ّ) لتحديد المفتاح الذي سنتعامل معه، ومن البديهي هنا أنه سيتم إنشاء هذا المفتاح الجديد بداخله.
صيغة المثال:
كود :
[align=left]Key.[color=blue]CreateSubKe[/color]y("vb4arab")[/align]
هنا سيتم إضافة المفتاح الفرعي (
vb4arab) إلى المفتاح الذي نتعامل معه حاليا.
الإجراء: (
SetValue Sub )
ويقوم هذا الإجراء بإضافة قيمة جديدة إلى الريجستري، كالتالي:
كود :
[align=left][color=blue]Sub SetValue[/color](name As String, value As Object)[/align]
يقبل هذه الإجراء معاملين:
المعامل الأول (
name ): من نوع (
String ) ونحدد فيه اسم القيمة الجديدة التي نريد إنشائها.
المعامل الثاني (
value ): من نوع (
Object ) ونحدد فيه القيمة نفسها.
صيغة المثال:
كود :
Dim key As Microsoft.Win32.[color=blue]RegistryKey[/color]
key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
key = key.[color=blue]OpenSubKey[/color]("Software\Microsoft\Windows\Current Version\Run", True)
key.[color=blue]SetValue[/color]("Calc", "calc.exe")
يقوم هذا المثال بإضافة القيمة (
Calc = calc.exe ) إلى المفتاح (
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run )، ويؤدي ذلك إلى تشغيل الآلة الحاسبة عند تسجيل الدخول إلى المستخدم الحالي.ويمكن الاستفادة من هذا المثال في إمكانية وضع البرنامج الخاص بك في وضيعة (
StartUp ) بحيث يتم تشغيله مع بدء تشغيل النظام.
الوظيفة: (
GetValue Function )
وتقوم هذه الوظيفة بإعادة القيمة التي يحملها ال Value أو اسم القيمة الذي نمرره إليها، على النحو التالي:
كود :
Function [color=blue]GetValue[/color](name As String, defaultValue As Object) As Object
ومن الواضح أن هذه الوظيفة تقبل معاملين:
المعامل الأول
name : من نوع
String ونحدد فيه اسم القيمة التي نريد معرفة قيمتها.
المعامل الثاني
defaultValue : من نوع
Object ونحدد فيه قيمة افتراضية يتم إرجاعها في حال عدم وجود اسم القيمة المطلوب، ويمكننا التغاضي عن هذا المعامل وعدم ذكره.
في المثال التالي سنحاول معرفة القيمة التي يحملها مدخل قيمة موجود في المسار التالي
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control هذا المدخل اسمه
SystemStartOptions وسنقوم بإعادة قيمته في مربع نص
TextBox، وفي حال عدم وجود هذا المدخل فإن القيمة العائدة ستكون "
notihng"
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]LocalMachine[/color]
Key = Key.[color=blue]OpenSubKey[/color]("SYSTEM\ControlSet001\Control", True)
TextBox1.Text = Key.[color=blue]GetValue[/color]("[color=red]SystemStartOptions[/color]", "[color=red]nothing[/color]")
الإجراء:
DeleteSubKey Sub
ويقوم هذا الإجراء بحذف مفتاح من الريجستري وحذف كل القيم التي بداخله، ولكن يشترط أن لا يحتوي هذا المفتاح على أي مفاتيح متفرعة منه؛ لأنه في هذه الحالة سيكون عليك استخدام الإجراء
DeleteSubKeyTree Sub والذي سيأتي شرحه لاحقاً.
صيغة الإجراء:
كود :
[align=left]
Sub [color=blue]DeleteSubKey[/color](subkey As String, throwOnMissingSubKey As Boolean)[/align]
وكما نرى فإن هذا الإجراء يحتاج إلى تمرير معاملين:
المعامل الأول
subkey : من نوع
String وهو المفتاح الذي نريد حذفه.
المعامل الثاني
throwOnMissingSubKey : من نوع
Boolean ويكون True في حال الرغبة بإظهار رسالة خطأ عند عدم وجود المفتاح المراد حذفه، وتكون
False في حال الرغبة بعدم إظهار رسالة الخطأ هذه. ملحوظة: يمكننا تجاهل المعامل الثاني تماماً وسيتم التعامل على أنه يحمل القيمة
True.
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software", True)
Key.[color=blue]DeleteSubKey[/color]("[color=red]XXX[/color]", [color=red]False[/color])
ففي المثال السابق نقوم بحذف المفتاح
XXX والموجود في المسار التالي
HKEY_CURRENT_USER\Software طبعاً هذا المفتاح لم يكن موجوداً ولكني قمت بإنشائه سابقاً.
ملاحظة : توخى الحذر في الأوامر الخاصة بالحذف لئلا يتم حذف أي مفاتيح أو قيم مهمة للنظام .
الإجراء:
DeleteSubKeyTree Sub
ويقوم هذا الإجراء بحذف مفتاح من الريجستري وحذف كل القيم التي بداخله وكذلك حذف كل المفاتيح المتفرعة منه، ويجب التأكد قبل استخدام هذا الإجراء لأنه من الممكن أن يؤدي إلى حذف مفاتيح مهمة من الريجستري عن طريق الخطأ.
صيغة الإجراء:
كود :
Sub [color=blue]DeleteSubKeyTree[/color](subkey As String)
وهنا نجد أن الإجراء يحتاج إلى معامل واحد فقط وهو المعامل
subkey من نوع
String ويحتوي على المفتاح الذي نريد حذفه.
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software", True)
Key.[color=blue]DeleteSubKeyTree[/color]("[color=red]XXX[/color]")
وفي المثال السابق نقوم بحذف المفتاح
XXX والموجود في المسار التالي
HKEY_CURRENT_USER\Software طبعاً سيتم حذف كل المفاتيح والقيم المتفرعة عن هذا المفتاح.
ملاحظة: يمكن ايضا استخدام المعامل
throwOnMissingSubKey وهو يقوم بنفس العمل مع الإجراء
DeleteSubKey Sub .
الإجراء
DeleteValue Sub:
ويقوم هذا الإجراء بحذف مسمى قيمة من الريجستري، مع ما تحمله من قيمة .
صيغة الإجراء:
Sub
DeleteValue(name As String)
هذا الإجراء يحتاج إلى تمرير معامل واحد فقط هو
name من نوع
String وهو مدخل القيمة الذي نريد حذفه .
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software\XXX", True)
Key.[color=blue]DeleteValue[/color]("[color=red]Color[/color]")
في هذا المثال نقوم بحذف القيمة المسماه
Color مع ما تحمله من قيمة من المسار التالي
HKEY_CURRENT_USER\Software\XXX .
الوظيفة
GetSubKeyNames Function:
وتقوم هذه الوظيفة بإعادة أسماء المفاتيح المتفرعة من المفتاح الذي نتعامل معه، ويتم إرجاع هذه المفاتيح الفرعية في شكل قيم نصية داخل مصفوفة، على النحو التالي:
كود :
Function [color=blue]GetSubKeyNames[/color]() As String()
وكما هو واضح فإن هذه الوظيفة لا تقبل أية معاملات وإنما هي تتعامل مع المفتاح المفتوح حالياً، وفي المثال التالي سنقوم بمعرفة المفاتيح الفرعية الموجودة في المفتاح
HKEY_CURRENT_USER\Software وسنقوم بإضافة هذه المفاتيح في مربع قائمة
ListBox
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software", True)
Dim [color=red]i[/color] As Byte
For i = 0 To Key.[color=blue]GetSubKeyNames[/color].Length - 1
[color=red]ListBox1[/color].Items.Add(Key.[color=blue]GetSubKeyNames[/color]([color=red]i[/color]))
Next
الوظيفة
GetValueNames Function:
وتقوم هذه الوظيفة بإعادة أسماء القيم المتفرعة من المفتاح الذي نتعامل معه، ويتم إرجاع هذه القيم الفرعية في شكل قيم نصية داخل مصفوفة، على النحو التالي:
كود :
Function [color=blue]GetValueNames[/color]() As String()
وكما هو واضح فإن هذه الوظيفة لا تقبل أية معاملات وإنما هي تتعامل مع المفتاح المفتوح حالياً، وفي المثال التالي سنقوم بمعرفة القيم الفرعية الموجودة في المفتاح
HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Run وهو المفتاح الذي يحتوي على برامج بدء التشغيل، ثم نقوم بإضافة هذه القيم في مربع قائمة
ListBox.
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software\Microsoft\Windows\Current Version\Run", True)
Dim [color=red]i[/color] As [color=red]Byte[/color]
For i = 0 To Key.[color=blue]GetValueNames[/color].Length - 1
[color=red]ListBox1[/color].Items.Add(Key.[color=blue]GetValueNames[/color]([color=red]i[/color]))
Next
الإجراء
Close Sub:
ويقوم هذا الإجراء بإغلاق المفتاح الذي كنا نتعامل معه والذي قمنا بفتحه سابقاً باستخدام الوظيفة
OpenSubKey، وبذلك نستطيع أن نقول أن هذا الإجراء هو المقابل العكسي للوظيفة
OpenSubKey، ويتم الاستفادة من هذا الإجراء كالتالي:
كود :
Sub [color=blue]Close[/color]()
وواضح جداً أن هذا الإجراء لا يقبل أية معاملات ولا يُعيد أي قيم .
وفي المثال التالي سنقوم بمحاولة إنشاء قيمة جديدة في المسار التالي
HKEY_CURRENT_USER\Software ولكن المحاولة ستفشل لأننا سنقوم بإغلاق المفتاح قبل محاولة إنشاء القيمة.
صيغة المثال:
كود :
Dim Key As Microsoft.Win32.[color=blue]RegistryKey[/color]
Key = Microsoft.Win32.Registry.[color=blue]CurrentUser[/color]
Key = Key.[color=blue]OpenSubKey[/color]("Software", True)
Key.[color=blue]Close[/color]()
Key.[color=blue]SetValue[/color]("New Value", "Value")
وبالفعل فشلت المحاولة وحصلنا على رسالة الخطأ: (
Cannot access a closed registry key لا يمكن الوصول إلى المفتاح المغلق )، والتي تعني عدم إمكانية إنشاء القيمة في المسار الذي حددناه قبل فتحه.
