结束进程

Question

知道一个窗体的标题，怎么结束他的进程？

Answer 1

关闭一个正在运行的程序?你可以使用API函数FindWindow和PostMessage去寻找指定的窗口，并关闭它。下面的例子教给你怎样找到并关掉一个Caption为“Caluclator”的程序。Dim winHwnd As LongDim RetVal As LongwinHwnd = FindWindow(vbNullString, "Calculator")Debug.Print winHwndIf winHwnd <> 0 ThenRetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)If RetVal = 0 ThenMsgBox "置入消息错误！"End IfElseMsgBox "Calculator没有打开！"End If
为了让以上的代码工作，你必须在模块文件中什么以下API函数：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

Answer 2

1、取得这个窗口的句柄；
2、用GetWindowThreadProcessId取得这个所属进程ID；
3、用TerminateProcess、 OpenProcess结束这个进程。