[الاصيله]

كود :

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