none
Como desativar o gerenciador de tarefas RRS feed

  • Pergunta

  • 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

    quarta-feira, 16 de abril de 2014 16:39

Respostas

  • 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

    • Sugerido como Resposta Giovani Cr quinta-feira, 17 de abril de 2014 19:04
    • Marcado como Resposta Jonnathanvb terça-feira, 22 de abril de 2014 16:02
    quinta-feira, 17 de abril de 2014 14:48

Todas as Respostas

  • 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

    • Sugerido como Resposta Giovani Cr quarta-feira, 16 de abril de 2014 18:39
    quarta-feira, 16 de abril de 2014 18:31
  • 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.

    quinta-feira, 17 de abril de 2014 14:32
  • 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

    • Sugerido como Resposta Giovani Cr quinta-feira, 17 de abril de 2014 19:04
    • Marcado como Resposta Jonnathanvb terça-feira, 22 de abril de 2014 16:02
    quinta-feira, 17 de abril de 2014 14:48