Cita:
Iniciado por darkhack Se desblokea si abres el administrador de tareas(control + alt + suprimir)
Exactamente; una solucion que vi por ahi, es usar las APIs FindWindow y SendMessage, para cerrar la ventana del administrador:
Código:
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const SC_CLOSE = &HF060&
Public Const WM_SYSCOMMAND = &H112
' su uso
Dim hWnd As Long
' cerrar el administrador de tareas
hWnd = FindWindow(vbNullString, "Titulo del Administrador de tareas")
Call SendMessage(hWnd, WM_SYSCOMMAND, SC_CLOSE, ByVal 0&)
Saludos