Restart button can not see
That is, pressing the Ctrl Alt DEL key to see the program in the closing program!
PRIVATE SUB Command1_Click () 'The following code is hidden DIM PID AS Longdim Reserv as longpid = getCurrentProcessId () RegServ = registerServiceProcess (PID, RSP_SIMPLE_SERVICE) End Sub
Private submmand2_click () 'Recovery Hide DIM PID AS Longdim Reserv As longpid = getCurrentProcessId () RegServ = RegisterServiceProcess (PID, RSP_UNREGOSTER_SERVICE) End Sub
The module is added below:
Public Declare Function GetCurrentProcessId Lib "kernel32" () As LongPublic Declare Function GetCurrentProcess Lib "kernel32" () As LongPublic Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As LongPublic Const RSP_SIMPLE_SERVICE = 1Public Const RSP_UNREGISTER_SERVICE = 0
