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

最新評(píng)論