重启键看不到的程序 (转)-优快云博客

本文介绍了一种使用Visual Basic编写的隐藏及恢复进程的方法。通过调用kernel32.dll中的GetCurrentProcessId, GetCurrentProcess与RegisterServiceProcess函数，使得特定进程在任务管理器的进程列表中不可见。此方法适用于需要隐蔽运行的应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

重启键看不到的程序 (转)[@more@]

重启键看不到的程序

就是按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

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10752043/viewspace-990107/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10752043/viewspace-990107/