VB怎样结束任务管理器的程序

使用强大的wmi对象，在窗体上添加一个CommandButton命令按钮控件，取名叫Command1，在其单击中加放以下代码。

完整代码：

Private Sub Command1_Click()

Dim objWMIService, objProcess, colProcess

Dim strComputer, strList

Dim strProcessName

strComputer = ""

strProcessName = "abcd"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colProcess = objWMIServiceExecQuery _

("Select from Win32_Process")

For Each objProcess In colProcess

If InStr(1, LCase(objProcessName), LCase(strProcessName)) <> 0 Then

objProcessTerminate

End If

Next

End Sub

很简单，并不需要用

API函数

，直接调用命令提示符（Cmdexe）来结束进程。

Private

Sub

Command1_Click()

Shell

"cmdexe

/c

taskkill

/im

taskmgrexe

/f",

vbHide

End

Sub

这段代码是用来结束

任务管理器

（taskmgrexe）的进程的。你可以将代码中的“taskmgrexe”改成任意一个程序进程的名字，用来结束它。

代码解释：

Shell

"cmdexe

/c"

：调用命令提示符。

taskkill

/im

taskmgrexe

/f

：会用

批处理

的都知道，这个就是结束进程的命令。

vbHide：隐藏命令提示符运行时的窗口。

If vbYes Then 这句话的问题，vbyes=true，和上面msgbox按了什么一点关系都没有，所以不可能执行else下面的end

myResult=MsgBox("User's name or password is wrong, try agin", MsgBoxStyleYesNo Or MsgBoxStyleExclamation, "")

If myResult=vbYes Then

TextBox1Clear() : TextBox2Clear() : TextBox2Focus()

Else

End

End If

以上就是关于VB怎样结束任务管理器的程序全部的内容，包括:VB怎样结束任务管理器的程序、如何用vb结束任务管理器的进程。如（explorer.exe）、VB结束程序代码等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！