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

'

'模 块 名：Form1

'说 明：厦门大学化学系 版权所有2009 - 2010(C)

'创 建 人：吴志明(寒江雪)

'日 期：2009-03-11 19:22:14

'****：verywzm@163com

'主 页：>

LSD,请不要给布尔型变量赋 数值

False = 0

True = -1

================================

一般而言，用一个Boolean变量来保存过程是否要继续执行

TRUE表示继续，FLASE表示终止

但在一个过程运行时，VB就像死了一样，无法进行其他 *** 作，所以VB提供了一个函数

DoEvents()

使程序在处理一个过程的同时，还能进行其他 *** 作。

如

Dim Doing As Boolean

Private Sub Command1_Click()

Doing = False

End Sub

Private Sub Command2_Click()

DoEvents

If Not Doing Then Exit Sub

'//Add code 1 here

If Not Doing Then Exit Sub

'//Add code 2 here

'//

End Sub

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

用End命令即可。

示例：

Private

Sub

Command1_Click()

End

'关闭程序

End

Sub

不管程序在执行什么，点下后，程序直接关闭。

以上就是关于VB怎样结束任务管理器的程序全部的内容，包括:VB怎样结束任务管理器的程序、vb里怎么结束系统关键进程、vb中怎样通过命令按钮结束一个过程等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！