Attribute VB_Name = "Module1"
Option Explicit
Private Const Key = &H2003F
Private Const HKEY_CURRENT_USER = -2147483647
Private Const Enable = 0
Private Const Disable = 1
Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
ByVal samDesired As Long, ByRef phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
Private Sub SetKey(Data As Integer)
Dim OpenKey As Long, SetValue As Long, hKey As Long
OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, Key, hKey)
SetValue = RegSetValueEx(hKey, "DisableTaskMgr", 0&, 4, CLng(Data), 4)
SetValue = RegCloseKey(hKey)
End Sub
Public Function EnableTask()
Dim Req
Req = MsgBox("Do You Want Enable Task Manager?", vbYesNo, "Enable Task Manager")
If Req = vbYes Then
Call SetKey(Enable)
Else
End If
End Function
Public Function DisableTask()
Dim Req
Req = MsgBox("Do You Want Disable Task Manager?", vbYesNo, "Disable Task Manager")
If Req = vbYes Then
Call SetKey(Disable)
Else
End If
End Function