请教高手,如果用代码关闭一个正在运行的exe程序

Question

如题.最好告诉我关闭和打开的方式.谢谢大家.

Answer 1

'关闭.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.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongConst WM_CLOSE = &H10
Private Sub Command1_Click()
Dim frmhwnd As Long
frmhwnd = FindWindow(vbNullString, "那个EXE的窗口标题")
SendMessage frmhwnd, WM_CLOSE, 0, 0
End Sub

Answer 2

打开用shell 和shellExcute都可以。
关闭要先找到程序的句柄，用SendMessage函数关闭，也可以结束进程