隱藏一個程序的運行最簡單的方法是將窗體的Visible設為False。但是只要用Ctrl+Alt+Del將程序列表呼出就完全露餡了。那么怎樣徹底隱藏正在運行的程序呢？其實很簡單。
我們知道，后臺運行的程序有很多。但是只有一部分出現(xiàn)在程序列表里，多數(shù)系統(tǒng)程序并不出現(xiàn)。實際上，被注冊成為“服務器”的進程不會出現(xiàn)在程序列表里。
所用API函數(shù)：熱點網絡
Private Declare Function GetCurrentProcessId Lib "kernel32" Alias "GetCurrentProcessId" () As Long
這個函數(shù)可以獲得當前進程一個唯一的標識符。
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
這個函數(shù)可以將進程 ID 號為dwProcessID的進程注冊或取消注冊為“服務器”。
所用常量：
這里的常量也就是dwType的值。
Const RSP_SIMPLE_SERVICE = 1
注冊為“服務器”。
Const RSP_UNREGISTER_SERVICE = 0
取消“服務器”注冊。
程序：
Public Sub MakeMeService()
Dim pid As Long, reserv As Long
'獲取當前進程ID
pid = GetCurrentProcessId()
'注冊為服務器
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
Dim pid As Long, reserv As Long
'獲取當前進程ID
pid = GetCurrentProcessId()
'取消服務器注冊 熱點網絡
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
不過用這種方法也不能保證程序運行時不被查到，如用 程序獵手 就可以查出來。

最新評論