重启键看不到的程序

就是按Ctrl+Alt+DEl键在关闭程序中看不到该程序！

Private Sub Command1_Click()'下面代码为隐藏Dim pid As LongDim reserv As Longpid = GetCurrentProcessId()regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)End Sub

Private Sub Command2_Click()'恢复隐藏Dim pid As LongDim reserv As Longpid = GetCurrentProcessId()regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)End Sub

 

以下加入模块：

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