Import
Function
Usage
Less code. Same function. Just saying..
Code:
Imports Microsoft.Win32
Function
Code:
Function ToggleTaskManager(ByVal State As Integer)
If Not State = 0 Or State = 1 Then
Try
Dim systemRegistry As RegistryKey = Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Policies\System")
systemRegistry.SetValue("DisableTaskMgr", State)
systemRegistry.Close()
Return True
Catch ex As Exception
Return False
End Try
Else
Return False
End If
End Function
Usage
Code:
ToggleTaskManager(1/0)
Less code. Same function. Just saying..