vb怎样结束指定进程

可以参考下面的两种参考方法旅岩升：

第一种：用cmd中的taskkill结束程序

shell ”cmd/c taskkill /f /im 你的进程名.exe“

第二种：（WIN7）以下的电脑可以使用，用ntsd结束程序枣亩

shell ”cmd/c ntsd -c q -pn 用户的进程名.exe“

扩展资料：

参考语句

For Each...Next 语句： 对于数组或集合中的每一个元素，重复一组语句。 

FormatDateTime 函数： 返回格式化为日期或时间的表达式。

FormatNumber 函数： 返回格式化为数的表达式。

Function 语句： 声明形成 Function 过程体的名称、参数拆老和代码。

GetObject 函数： 从文件返回对“自动”对象的访问。

参考资料来源：百度百科-Visual Basic

你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。

'下面的代码放到模块中 

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'FindWindowAPI函数

Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'PostMessageAPI函数

Public Const WM_CLOSE = &H10 '常用变量定义

'程序代码

Dim winHwnd As Long '定义一个长整形变量winHwnd

Dim RetVal As Long '定义一个长整形变量乎兄乎RetVal

winHwnd = FindWindow(vbNullString, "Calculator") 'API函数查找"Calculator"这个窗口

Debug.Print winHwnd '显示这个窗口句柄

If winHwnd <> 岁悉0 Then '如不为0,表示找到窗口

RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&) '向这个窗口发送关闭信息

If RetVal = 0 Then '如果返回信息为0.表示失败，未发送成功

MsgBox "Error posting message." '提示发送失败

End If

Else

MsgBox "The Calculator is not 尘扒open." '提示没有找到打开的程序

End If

---