重启键看不到的程序

最新推荐文章于 2021-07-15 01:58:11 发布

原创最新推荐文章于 2021-07-15 01:58:11 发布 · 870 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#service #function #command

博客介绍了重启键看不到的程序，即按Ctrl+Alt+DEl键在关闭程序中不可见的程序。给出了隐藏和恢复该程序的代码，包括在按钮点击事件中的代码，以及需加入模块的函数声明和常量定义。

重启键看不到的程序

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

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

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

以下加入模块：

Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0