السلام عليكم و رحمة الله وبركاته
زملائى الأفاضل
و أساتذتنا الأعزاء
أريد كود بفجوال بيسيك دوت نت لاغلاق الريجيسترى أو بمعنى ادق منع أى مستخدم للويندوز من تشغيل 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
ثم يغلق مفتاح التسجيل ويعرض لك رسالة تفيد بتمكينه بنجاح
شكرا لك الأخت الاصيله على توضيح عمل الكود