Private Sub KillTaskManager() 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 MsgBox(ex.Message, MsgBoxStyle.Critical, "Registry Error!") End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)