|
TheProgrammingZone's front page. All the latest programming and game development news, as well as this week's feature game project! |
|
Game projects under development by members of the TheProgrammingZone Community. Show them your support, and check out their games! |
|
A forum to interact with your fellow programmers. |
|
TheProgrammingZone's products. Check out some of our in house products that we made. |
|
You want to contact the guy behind TheProgrammingZone? Here's where to do it! |
|
|
|
|
pages:
prev | 1 | next
In a form Add two Command Buttons
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
pages:
prev | 1 | next |
|