在VB中实现隐藏进程

1.这种方法可以实现在“应用程序”选项卡中隐藏但无法在“进程”选项卡中隐藏。

任务管理器里有三个选项卡吧,第一个就是应用程序,第二个是进程,第三个是性能
例如很多程都做到了这一点,如金山词霸,诺顿等,都只出现在进程里,而不出现在应用程序里,如何实现呢?一句代码就够了:

Private Sub Form_Load()
App.TaskVisible = False
End Sub 

2.完全隐藏进程(理论上是不可能的,只要你想运行它:))

(1)Win9x,ME下比较容易实现,代码如下:

'模块中的代码
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
Public pid

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

'下面代码为恢复隐藏
Public Sub UnMakeMeService()
Dim pid As Long
Dim regserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub

(2)在WinNT,XP中——用远程线程注入进程的办法(隐藏进程)

注:在用户态隐藏进程,一个普遍的做法是使用代码注入(code-injection)技术和在所有进程中拦截ntdll.dll中的ZwQuerySystemInformation函数,具体的我就不太清楚了,还请高手指教。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值