VBcoders Guest



Don't have an account yet? Register
 


Forgot Password?



Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing)

by BrijMohan.K (3 Submissions)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 3rd December 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)

Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing)

Rate Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing)



Add the following Code lines


Dim b As Object
Dim s As String

Private Sub Form_Load()
Command1.Caption = "Disable RegEdit"
Command2.Caption = "Enable RegEdit"
End Sub

Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s= "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
b.regwrite s, 1, "REG_DWORD"
End Sub

Private Sub Command2_Click()
Set b = CreateObject("wscript.shell")
s= "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools"
b.regdelete s
End Sub



Download this snippet    Add to My Saved Code

Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing) Comments

No comments have been posted about Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing). Why not be the first to post a comment about Enable/Disable Regedit With 8 lines Of Code(NO API Calls) (Restrict Registry Editing).

Post your comment

Subject:
Message:
0/1000 characters