Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Task Manager Function - Module1.vb

Module1.vb

Caricato da:
Scarica il programma completo

  1. Module Module1
  2.     Private Const Key As Integer = &H2003F
  3.     Private Const HKEY_CURRENT_USER As Integer = -2147483647
  4.     Private Const Enable As Short = 0
  5.     Private Const Disable As Short = 1
  6.     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
  7.     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
  8.     Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Integer) As Integer
  9.     Public Function SetKey(ByRef Data As Short)
  10.         Dim Value, OpenKey, hKey As Integer
  11.         OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, Key, hKey)
  12.         Value = RegSetValueEx(hKey, "DisableTaskMgr", 0, 4, CInt(Data), 4)
  13.         Value = RegCloseKey(hKey)
  14.     End Function
  15.     Public Function EnableTask()
  16.         Dim Req
  17.         Req = MessageBox.Show("Do You Want Enable Task Manager?", "Enable Task Manager", MessageBoxButtons.YesNo)
  18.         If Req = vbYes Then
  19.             Call SetKey(Enable)
  20.         Else
  21.         End If
  22.     End Function
  23.     Public Function DisableTask()
  24.         Dim Req
  25.         Req = MessageBox.Show("Do You Want Disable Task Manager?", "Disable Task Manager", MessageBoxButtons.YesNo)
  26.         If Req = vbYes Then
  27.             Call SetKey(Disable)
  28.         Else
  29.         End If
  30.     End Function
  31. End Module