Disable CMD or Regedit or anything TUTORIAL

'How disable CMD, Regedit or Task Manager dynamiclly with VB.NET (using policy reg keys)
'What you want to do is goto RUN > type gpedit.msc > Administrative Templates > System > Prevent Access to the command 'prompt (are choose which one you want to disable (eg. command prompt, registry tools)

'You are probably thinking "this isn't dynamic". Hold up we aren't finished.

'Now you want to edit your chosen one, eg command prompt and enable it.

'Now goto Run > type regedit > CTRL + F (for find box) and type in "DisableCMD". This will take you to the subkey in 'which the value is stored for the policy.

'Now you want right click the subkey folder which contains the value "DisableCMD" and click "Export". We aren't 'exporting anything, we are simply getting the path which is located at the bottom. copy that link and close out of 'regedit.

'Go back to gpedit.msc and disable the setting you made before to command prompt and apply and exit out it.

'Now you need to create a global variable, let's say...

  Private CMDblockKey As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Policies\Microsoft\Windows", True)
'The link you would have pasted in the quotes would have excess "HKEY parents" you want to remove that up until the 'Software as we use ...currentuser.opensubkey("and the path") instead of ...HKEY_CURRENT_USER\Software....

'Now I chose to create private sub for disabling and enable the key/value (create and delete).

I put...

Private Sub disableCMD()

End Sub

'and...

private sub enableCMD()

End Sub

'Before we add the code, let's create the boolean setting.
'Goto Project > %appname% Properties > Settings > Create a setting like "disableCMD" and choose boolean for the type 'and set the value to 'True'.

'Create a 'Checkbox' to control our boolean.
'Double click to get checkchanged event for the checkbox and type..

If checkbox1.checked then
disableCMD()
Else
enableCMD()
End If

'Now let's get back to them subs

'So when checked we will... (write what I do)

Private Sub disableCMD()

 My.Settings.disableCMD = True 'When we check the box to disable, we set it to true
 Dim Systemkey As RegistryKey = CMDblockKey.CreateSubKey("System", False) ' make a variable as registry key and make 'it equal to what CMDblockkey is plus a subkey which we create now. Make it "system" because that is what computer 'does when it makes it. and just set permission to false.
 Systemkey.SetValue("DisableCMD", "2", Microsoft.Win32.RegistryValueKind.DWord)'now we can put a value in systemkey 'which is essentially (Software\Policies\Microsoft\Windows\System --> value).
'Make the value called "DisableCMD" and set the data to "2" or num "1" if you want to block scripts" and the type of 'value it is, and it must be that "Dword" or it won't work (I don't think)
'That is all for that sub now let's go to the 'enableCMD' sub.
End Sub

Private Sub enable CMD
My.Settings.disableCMD = False 'Now we make it false
        Dim deletekey As RegistryKey = CMDblockKey 'Make a varible and set it to 'CMDblockKey (like before).
        Try
            deletekey.DeleteSubKey("System") 'We delete the subkey 'system' so it removes the policy. I have in Try Catch so incase it isn't to be found for some reason it won't crash, bit of a lazy way but it works.
        Catch 'catch only because i dont want to display errors, so no need for "ex as exception".
        End Try
End Sub

'Now we need to make it so when the 'form_loads' it will read whatever the setting was last set to. so it doesn't keep 'reverting, that would be frustrating.


'I will finish this soon and also supply the code without the all the text in between it.

'Night.