|
|
本帖最后由 乔丹二世 于 2010-4-27 19:47 编辑
看MJ0011像疯子一样在网上乱叫，但发现他的本事确实不赖，连IceSword、SnipeSword、RkUnhooker都结束不了360的进程，请问这里的高人有办法结束吗？
还有为啥这份代码杀不死360啊？连KV2008都能杀的代码却杀不死360？
- Option Explicit
- Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
- Private Declare Function ZwDuplicateObject _
- Lib "NTDLL.DLL" (ByVal SourceProcessHandle As Long, _
- ByVal SourceHandle As Long, _
- ByVal TargetProcessHandle As Long, _
- ByRef TargetHandle As Long, _
- ByVal DesiredAccess As Long, _
- ByVal HandleAttributes As Long, _
- ByVal Options As Long) As Long
- Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessID As Long) As Long
- Function FcOpenProcess&(p&)
- Dim ProcessHandle As Long
- Dim Rtn As Long
- ProcessHandle = OpenProcess(&H400, 0, p)
- If ProcessHandle <> 0 Then
- Rtn = ZwDuplicateObject(-1, ProcessHandle, -1, VarPtr(ProcessHandle), &H1F0FFF, 0, 1)
- FcOpenProcess = ProcessHandle
- End If
- End Function
- Private Sub Command1_Click()
- Dim ProcessHandle As Long
- ProcessHandle = FcOpenProcess&(进程PID)
- TerminateProcess ProcessHandle, 0
- End Sub
|
|
发表于 2010-4-27 19:45:34
发表于 2010-4-27 20:11:10
发表于 2010-5-1 00:35:03
