Como desativar o gerenciador de tarefas

Question

Prezados,

Gostaria de desativar o gerenciador de tarefas, bem eu consegui desativar varias tecla mais a tecla ctrl + alt + del não pode ser desativada, mais o meu foco não é desativar essas tecla mais sim o usuario não ter acesso ao gerenciador de tarefas como posso fazer isso em vb.net

Answer 1

O máximo que irá conseguir será isso:

Private Sub DisableTaskManager()
	Dim regkey As RegistryKey
	Dim keyValueInt As String = "1"
	Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

	Try
		regkey = Registry.CurrentUser.CreateSubKey(subKey)
		regkey.SetValue("DisableTaskMgr", keyValueInt)
		regkey.Close()
	Catch ex As Exception
		MessageBox.Show(ex.ToString())
	End Try
End Sub

---

Herbert Lausmann

Answer 2

Herbert lausmann

eu coloquei a função, mais deu esse erro 

Access to the registry key 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System' is denied.

Answer 3

Herbert lausmann

eu coloquei a função, mais deu esse erro 

Access to the registry key 'HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System' is denied.

Fiz umas modificações no código, veja se agora funciona:

Private Sub DisableTaskManager()
        Dim rs As New RegistrySecurity()
        rs.AddAccessRule( New RegistryAccessRule( _
            "Administrator", _
            RegistryRights.FullControl, _
            InheritanceFlags.ContainerInherit Or InheritanceFlags.ObjectInherit, _
            PropagationFlags.InheritOnly, _
            AccessControlType.Allow))

	Dim regkey As RegistryKey
	Dim keyValueInt As String = "1"
	Dim subKey As String = "Software\Microsoft\Windows\CurrentVersion\Policies\System"

	Try
		regkey = Registry.CurrentUser.CreateSubKey(subKey, RegistryKeyPermissionCheck.ReadWriteSubTree, _
                         RegistryRights.ChangePermissions Or RegistryRights.ReadKey)
                regkey.SetAccessControl(rs)


                regkey = Registry.CurrentUser.CreateSubKey(subKey, RegistryKeyPermissionCheck.ReadWriteSubTree, _
                         RegistryRights.FullControl)
                regkey.SetAccessControl(rs)

                rs.SetOwner(New NTAccount("Administrator"))

                regkey.SetAccessControl(rs)


		regkey.SetValue("DisableTaskMgr", keyValueInt)
		regkey.Close()
	Catch ex As Exception
		MessageBox.Show(ex.ToString())
	End Try
End Sub

Será necessário colocar os seguintes imports no topo do arquivo que contém o código:

    Imports System.Security
    Imports System.Security.Principal
    Imports System.Security.AccessControl

    Imports Microsoft.Win32

---

Herbert Lausmann