怎样在VB中中止其他正在运行的程序

Question

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow% Lib "user32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any)
Const WM_CLOSE = &H10
Private Function CloseIt()
Dim X&, hwnd%
hwnd% = FindWindow%("XLMAIN", 0&)
SendMessage hwnd%, WM_CLOSE, 0, 0
End FunctionPrivate Sub Command1_Click()
CloseIt
End Sub

Answer 1

用SendMessage函数发送消息，关闭其他程序

Answer 2

以上是关闭EXCEL。你必须知道外部程序的类名，可以用安装盘里面的spy++查看，然后用VB找到它的句柄，再发送关闭消息

Answer 3

如果是有窗口的程序，比较简单，用楼上的方法如果是没有窗口的，必须找到该进程的ｐｉｄ（任务管理器里有），然后用TerminateProcess函数关闭