قفل کردن ریجستری

[niko2008]

سلام حضرات محترم حذف کنندگان تاپیک و دوستان محترم چطوری میشه با کد نویسی ریجستری رو در حال اجرای برنامه از کار انداخت؟

[saied_hacker]

با این مد می تونی رجیستری رو غیر فعال کنی نه غفل:

Private Sub Command1_Click()

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

' Disible Registery

Reg.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools", 1, "REG_DWORD"
End Sub




Private Sub Command2_Click()

Dim Reg As Object

Set Reg = CreateObject("wscript.shell")

' Enable Registery

Reg.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Pol icies\System\DisableRegistryTools"
End Sub



قفل نمی دونم چطوریه!:خجالت: