vb 如何实现结束360进程

如题如何用VB实现结束 360tray.exe这个进程

这个恐怕不太容易，因为360的自我防护功能，连一些进程管理工具都没法结束360的进程，常见的wsyscheck，冰刃均无法结束360的进程。目前为止，我知道能在360运行时结束进程的有狙剑和风云防火墙进程管理模块。
这些专门的进程管理工具通过加载驱动方式获取系统ring0级控制权，有的还不能和360抗衡。更何况是简单的VB程序。

sub Close_Process(ProcessName) On Error Resume Next for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程 if Ucase(ps.name)=Ucase(ProcessName) then ps.terminate end if next end sub Close_Process("QQ.exe")保存扩展名VBS qq.exe换上你想结束的进程

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息