[RaggiTech]

الوظيفة GetValue Function

وظيفتها إعادة القيمة التي يحملها ال Value أو اسم القيمة الذي نمرره إليها

كود :

Function GetValue(ByVal name As String, ByVal defaultValue As Object) As Object

هذه الوظيفة تقبل معاملين


الأول name من نوع String ونضع فيه اسم القيمة التي نريد معرفة قيمتها

الثاني defaultValue من نوع Object ونضع فيه قيمة افتراضية يتم إرجاعها في حال عدم وجود اسم القيمة المطلوبة ويمكننا عدم التعامل مع هذا المعامل

المثال التالي سنحاول معرفة القيمة التي يحملها مدخل قيمة موجود في المسار التالي

HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control

المدخل اسمه SystemStartOptions

سنقوم بإعادة قيمته في مربع نص TextBox، وفي حال عدم وجود هذا المدخل فإن القيمة العائدة ستكون "notihng"

مثال

كود :

Dim Key As Microsoft.Win32.RegistryKey
Key = Microsoft.Win32.Registry.LocalMachine
Key = Key.OpenSubKey("SYSTEM\ControlSet001\Control", True)
TextBox1.Text = Key.GetValue("SystemStartOptions", "nothing")

======================================



الإجراء DeleteSubKey Sub

وظيفة هذا الإجراء حذف مفتاح من الريجستري وحذف كل القيم التي بداخله، ولكن يشترط أن لا يحتوي هذا المفتاح على أي مفاتيح فرعية منه لأنه في هذه الحالة سيكون عليك استخدام الإجراء DeleteSubKeyTree

الصيغة المستخدمة للتعامل مع الاجراء

كود :

Sub DeleteSubKey(ByVal subkey As String, ByVal throwOnMissingSubKey As Boolean

)


يمرر لهذا الاجراء معاملين

المعامل subkey من نوع String وهو المفتاح الذي نريد حذفه

المعامل الثاني throwOnMissingSubKey من نوع Boolean ويكون True في حالة الرغبة بإظهار رسالة خطأ عند عدم وجود المفتاح المراد حذفه - وتكون False في حالة الرغبة بعدم إظهار رسالة الخطأ

يمكننا تجاهل المعامل الثاني تماماً وسيتم التعامل على أنه يحمل القيمة True

مثال

كود :

Dim Key As Microsoft.Win32.RegistryKey
Key = Microsoft.Win32.Registry.CurrentUser
Key = Key.OpenSubKey("Software", True)
Key.DeleteSubKey("XXX", False)

المثال السابق نقوم بحذف المفتاح XXX والموجود في المسار التالي HKEY_CURRENT_USER\Software .. طبعاً هذا المفتاح لم يكن موجوداً ولكننا قمنا بإنشائه سابقاً

ينتيه للحذف لكى لا يتم حذف أي مفاتيح أو قيم مهمة للنظام