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 Functions - Module1.bas

Module1.bas

Caricato da:
Scarica il programma completo

  1. Attribute VB_Name = "Module1"
  2. Option Explicit
  3. Private Const Key = &H2003F
  4. Private Const HKEY_CURRENT_USER = -2147483647
  5. Private Const Enable = 0
  6. Private Const Disable = 1
  7. Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" ( _
  8. ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, _
  9. ByVal samDesired As Long, ByRef phkResult As Long) As Long
  10. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" ( _
  11. ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
  12. ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  13. Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long
  14. Private Sub SetKey(Data As Integer)
  15. Dim OpenKey As Long, SetValue As Long, hKey As Long
  16. OpenKey = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", 0, Key, hKey)
  17. SetValue = RegSetValueEx(hKey, "DisableTaskMgr", 0&, 4, CLng(Data), 4)
  18. SetValue = RegCloseKey(hKey)
  19. End Sub
  20. Public Function EnableTask()
  21. Dim Req
  22. Req = MsgBox("Do You Want Enable Task Manager?", vbYesNo, "Enable Task Manager")
  23. If Req = vbYes Then
  24. Call SetKey(Enable)
  25. Else
  26. End If
  27. End Function
  28. Public Function DisableTask()
  29. Dim Req
  30. Req = MsgBox("Do You Want Disable Task Manager?", vbYesNo, "Disable Task Manager")
  31. If Req = vbYes Then
  32. Call SetKey(Disable)
  33. Else
  34. End If
  35. End Function