Module Module1
Private Const Key As Integer = &H2003F
Private Const HKEY_CURRENT_USER As Integer = -2147483647
Private Const Enable As Short = 0
Private Const Disable As Short = 1
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKey As Integer, ByVal lpSubKey As String, ByVal ulOptions As Integer, ByVal samDesired As Integer, ByRef phkResult As Integer) As Integer
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Integer, ByVal lpValueName As String, ByVal Reserved As Integer, ByVal dwType As Integer, ByRef lpData As Integer, ByVal cbData As Integer) As Integer
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Integer) As Integer
Public Function SetKey(ByRef Data As Short)
Dim Value, OpenKey, hKey As Integer
OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, Key, hKey)
Value = RegSetValueEx(hKey, "DisableTaskMgr", 0, 4, CInt(Data), 4)
Value = RegCloseKey(hKey)
End Function
Public Function EnableTask()
Dim Req
Req = MessageBox.Show("Do You Want Enable Task Manager?", "Enable Task Manager", MessageBoxButtons.YesNo)
If Req = vbYes Then
Call SetKey(Enable)
Else
End If
End Function
Public Function DisableTask()
Dim Req
Req = MessageBox.Show("Do You Want Disable Task Manager?", "Disable Task Manager", MessageBoxButtons.YesNo)
If Req = vbYes Then
Call SetKey(Disable)
Else
End If
End Function
End Module