Hi lo prometido:
1- pega dos commands
2- coloca el siguiente codigo en el formulario
3-ejecuta
4-presiona Ctrl +Alt Sup y veras que no esta en el listado
Option Explicit
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Dim CPID As Long
Dim l As Long
Public Sub QuitarDeCrAlSu()
CPID = GetCurrentProcessId()
l = RegisterServiceProcess(CPID, RSP_SIMPLE_SERVICE)
End Sub
Public Sub PonerEnCrAlSu()
CPID = GetCurrentProcessId()
l = RegisterServiceProcess(CPID, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Command1_Click()
QuitarDeCrAlSu
End Sub
Private Sub Command2_Click()
PonerEnCrAlSu
End Sub
' ya lo probe y funciona (cualquier cosa escribeme):
[email protected]