Te puedo audar con una sola cosa para que puedas usar el aministrador de tareas, viste q te dice esta desavilitado y todo eso bueno ahi va la explicacion no es dificil
Primero en tu casa o cualquier lado abri el vb y crea un exe comun.
En general ponemos:Const HWND_NOTOPMOST = -2 'Vuelve al estado normal
Const SWP_NOSIZE = &H1 'SWP_NOSIZE y SWP_NOMOVE se usan juntas en la constante SWP_FLAGS para que el form no cambie de tamaño ni de lugar
Const SWP_NOMOVE = &H2
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE 'Para que no cambie el tamaño ni la posición
Const REG_DWORD = 4 ' Número de 32 bits
Const HKEY_CURRENT_USER = &H80000001
Dim strString As String
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueExLong Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Long, ByVal cbData As Long) As Long
Despues creamos un Sub asi:Sub SaveStringLong(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
RegCreateKey hKey, strPath, Ret
RegSetValueExLong Ret, strValue, 0&, REG_DWORD, CByte(strData), 4&
RegCloseKey Ret
End Sub
Despues creamos 2 botones (Command1 y Command2)
Caption del Command1 = Habilitar
Caption del command2 = DeshabilitarCodigo del command1:Private Sub Command1_Click()
strString = "0"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub
Codigo del command2:Private Sub Command2_Click()
strString = "1"
SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", CByte(strString)
End Sub
Luego lo copilas lo pones en un diskete vas al ciber y pones habilitar y listo
!!! ya podes usar el administrador de tareas.