Procesos y Aplicaciones

Symetrix
07 de Marzo del 2004
Tengo u pequeño problema, he diseñado una aplicacion de control para Cabinas de Internet... el problema es que los usuarios logran cerrar mi aplicacion usando el administrador de tareas e windows el "Terminar Proceso" y deseo agregar u codigo a mi aplicacion de tal manera que no se pueda cerrar a travez del administrador de procesos y/o lanzar automaticamente mi apliacion tras cerrarla... por favor responder a [email protected]

marcelo
07 de Marzo del 2004
hola yo hice algo parecido pero en windows xp pero en xp no se puede bloquear las teclas (ctrl + alt + del) lo que hice fue una funcion que busque constantemente la ventana "administrador de tareas y si estaabierto cerrarlo" no se si te sirva pero te dejo el codigo.
Public Declare Function FindWindow Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
Private Sub Timer1_Timer()
Dim winHwnd As Long
winHwnd = FindWindow _(vbNullString, "Administrador de tareas de windows")
If winHwnd Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error enviando mensaje."
End If
SendKeys "{enter}"
End If
End sub