如何用vb关闭一个应用程序

2025-03-07 16:28:05

推荐回答（4个）

回答1：

你可以使用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

回答2：

你可以使用API函数FindWindow和PostMessage来寻找一个窗口并且关闭它。下面的范例演示如何关闭一个标题为"Calculator"的窗口。
Dim winHwnd As Long
Dim RetVal As Long
winHwnd = FindWindow(vbNullString, "Calculator")
Debug.Print winHwnd
If winHwnd <> 0 Then
RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)
If RetVal = 0 Then
MsgBox "Error posting message."
End If
Else
MsgBox "The Calculator is not open."
End If

For this code to work, you must have declared the API functions in a module in your project. You must put the following in the declarations section of the module.

Declare Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Declare Function PostMessage Lib "user32" Alias _
"PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10
该文章转载自无忧考网：http://www.51test.net

回答3：

Shell "cmd.exe /c taskkill /f /im 进程名"
示例:Shell "cmd.exe /c taskkill /f /im 记事本.exe"

回答4：

使用API
OpenProcess和TerminateProcess

最新问答

什么是心理健康教育定义

从宁夏银川到山西王家大院再到山东青岛有多远自驾游怎么走?

淘宝手机开通了直通车，关键词也弄好了怎么我搜索找到我的宝贝的时候却没有hot？

为什么腾讯新闻点展开全文就转到下载？

我跟前男友现在同班。并且他就做我后面，怎么能看出他还喜不喜欢你？

什么是流量封顶？

不到18岁能当兵吗？

把父母的户口迁入到自己的户口需要那些证明

天韵t3000麦克风使用幻象电源和不使用幻象电源声音效果有什么区别，还是声音效果是一样的啊

公司治理结构中如何看待劳资关系？