[VBA程序]：如何用VB检测是否在运行某个EXE进程，并关闭该进程?

zhuxuhong

如何用VB检测是否在运行某个EXE进程，并关闭该进程?

ndy888

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, ByVal lParam As Long) As Long

Function ShellEXE()
    Dim lngwinHwnd As Long
    Dim lngRetVal As Long
   
    Call Shell( "C:\myApp.exe", 1)
    msgbox "myApp.EXE正在运行"
    lngwinHwnd = FindWindow(vbNullString, "myApp")
    If lngwinHwnd <> 0 Then lngRetVal = PostMessage(lngwinHwnd, &H10, 0&, 0&)
   msgbox "myApp.EXE已关闭"
End Function

zhuxuhong

谢谢