如何在vb里强制瞬间结束几个玩固进程?急!

来源：百度知道编辑：UC知道时间：2024/05/22 04:22:51

好多同学中了一个病毒,它有几个进程互相监控，用任务管理器结束了，马上回来．想编个程序，瞬间结束几个进程，然后清毒．免去进安全模式的麻烦．
Private Sub Command3_Click() '结束进程
Dim counts As Integer

counts = 0'结束进程数

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcessList
objProcess.GetOwner strUserName, strUserDomain
If LCase(objProcess.Name) = Text3.Text And LCase(strUserName) = Text4.Text Then
objProcess.Terminate
counts = counts + 1

Else
If LCase(objProcess.Name) = Text5.Text And LCase(strUserName) = Text6.Text Then
objProcess.Terminate

counts = counts + 1
Else
If LCase(objProcess.Name) = Text7.Text And LCase(strUserName) = Text8.Text Then
objProcess.Terminate

counts = counts +

Public Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

先禁止创建新的进程
这点不好做,要是个exe的话就改了exe的关联让他用不了
再一个一个的Kill

如何在vb里强制瞬间结束几个玩固进程?急! VB里如何强制定义变量? 如何强制结束进程如果程序在执行过程中无法结束（死机），则如何强制结束 VB如何结束进程 vb如何结束进程？如何无痛苦地瞬间结束生命？帮忙做个VB.exe或批处理(强制结束进程) 如何在瞬间放松? 如何强制用命令结束进程？