Programación General > Visual Basic 6.0 e inferiores
Ocultar Aplicacion
piyey:
Hola a todos los colegas de este foro.
Me dirijo a ustedes esta ves para preguntar si alguien por casualidad tiene el codigo para evitar que la aplicacion aparezca en el administrador de tareas, quiero que no puedan cerrar mi programa si no cumplen con una condicion, pero, he buscado como bloquear si presionan Ctrl+Alt+Supr pero en NT no funciona del todo bien, y por ahi escuche que se puede evitar que la aplicacion aparezca en el administrador de tareas en cualquier version de windows.
Espero una respuesta porfa...
:devil:
:scream:
Gracias...
y Salu-2 a todos.
Piyey.
Bopo:
--- Cita de: "piyey" --- Hola a todos los colegas de este foro.
Me dirijo a ustedes esta ves para preguntar si alguien por casualidad tiene el codigo para evitar que la aplicacion aparezca en el administrador de tareas, quiero que no puedan cerrar mi programa si no cumplen con una condicion, pero, he buscado como bloquear si presionan Ctrl+Alt+Supr pero en NT no funciona del todo bien, y por ahi escuche que se puede evitar que la aplicacion aparezca en el administrador de tareas en cualquier version de windows.
Espero una respuesta porfa...
:devil:
La imaginacion es mas poderosa que la realidad, la realidad te limita lo que puedes hacer mientras que con la imaginacion puedes hacer todo lo que se te ocurra.
:scream:
Gracias...
y Salu-2 a todos.
Piyey.
--- Fin de la cita ---
quiere hacer un virus, quiere hacer un virus :lol:
Saludos :hola:
piyey:
No mi querido "Bopo", el objetivo que persigo con esto no es para crear un virus, sino que quiero hacer un programa de control de PC's y que se apague en un tiempo predederminado, pero no quiero que sea cerrado por el usuario.
Muchas gracias por tu aporte de todos modos...
Gracias...
y Salu-2 a todos.
Piyey.
Brroz:
--- Código: Text --- Private Const RSP_SIMPLE_SERVICE = 1Private Const RSP_UNREGISTER_SERVICE = 0 Private Declare Function GetCurrentProcessId Lib "kernel32" () As LongPrivate Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long Public Sub HideApp(Hide As Boolean) Dim lngPID As Long, lngRc as long lngPID = GetCurrentProcessId() If Hide Then lngRc = RegisterServiceProcess(lngPID, RSP_SIMPLE_SERVICE) Else lngRc= RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE) End IfEnd Sub
Oculta: HideApp True
Muestra: HideApp false
piyey:
Hola Brroz, te agradezco mucho que hayas tenido la amabilidad de leer mi mensaje y contestarlo, probe el codigo que pusiste y me da el siguiente error:
Error '453' en tienpo de ejecución :
No se puede encontrar el punto de entrada de la DLL
RegisterServiceProcess en kernel32.
Lo probe en windows 2000, no se si sera por el sistema operativo, en que sistema operativo lo probaste?...
Thank's...
Salu2...
Piyey!!!
Navegación
[#] Página Siguiente
Ir a la versión completa