[dr.programming]

السلام عليكم و رحمة الله وبركاته
زملائى الأفاضل 
و أساتذتنا الأعزاء
أريد كود بفجوال بيسيك دوت نت لاغلاق الريجيسترى أو بمعنى ادق منع أى مستخدم للويندوز من تشغيل Regedit أى فتح الريجيسترى

[الاصيله]

كود :

Imports Microsoft.Win32


Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Try
           Dim regKey As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System")
           regKey.SetValue("DisableRegistryTools", 1, RegistryValueKind.DWord)
           regKey.Close()
           MsgBox("تم تعطيل Regedit بنجاح")
       Catch ex As Exception
           MsgBox("حدث خطأ أثناء تعطيل Regedit")
       End Try
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           Dim regKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System", True)
           If regKey IsNot Nothing Then
               regKey.DeleteValue("DisableRegistryTools", False)
               regKey.Close()
               MsgBox("تم تمكين Regedit بنجاح")
           Else
               MsgBox("لم يتم العثور على القيمة")
           End If
       Catch ex As Exception
           MsgBox("حدث خطأ أثناء تمكين Regedit")
       End Try
   End Sub
End Class

[أبو خالد الشكري]

السلام عليكم
لو تقومين بشرح الكود ، يكون أفضل !
وشكرا .

[الاصيله]

عمل الكود اعلاه

من هذا الجزء يقوم بفتح مفتاح التسجيل 
Software\Microsoft\Windows\CurrentVersion\Policies\System 
في قسم  CurrentUser
يضيف قيمة جديدهالى المفتاح ويعينه الى 
DisableRegistryTools ويتم تعطيل Regedit
تظهر رسالة تم التعطيل بنجاح
في Button2
يكون عمل الكود كالتالي
يقوم بفتح مفتاح التسجيل والسماح له بالكتابة CurrentUser

ثم يتحقق من وجود المفتاح DisableRegistryTools فاذا كان المفتاح موجودا يقوم بحذف قيمة Regedit
ثم يغلق مفتاح التسجيل ويعرض لك رسالة تفيد بتمكينه بنجاح

[أبو خالد الشكري]

شكرا لك الأخت الاصيله على توضيح عمل الكود