Закрытие стороннего приложения

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 String, ByVal lpWindowName As String) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Const WM_CLOSE = &H10
Private Sub CloseProg(hwnd As Long)
SendMessage hwnd, WM_CLOSE, 0, 0
End Sub
Private Sub Command1_Click()
Dim hand As Long
Do
Sleep 200
' Тут название нашей программы, которую надо остановить
hand = FindWindow("IEFrame", vbNullString) ' в случае с IE проще использовать имя класса окна ( название всегда разное)
'hand = FindWindow(vbNullString, "Калькулятор Плюс") ' или точное название окна - если оно постоянно
CloseProg hand
Loop While hand <> 0
MsgBox "Вырубилась!"
DoEvents
End Sub

Private Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" _
(ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
 
Private Const PROCESS_TERMINATE = &H1
 
Private Const WM_QUERYENDSESSION = &H11
Private Const WM_ENDSESSION = &H16
 
 
 
Private Sub CloseProg(hwnd As Long)
 
Dim pID As Long
Dim hProc As Long
GetWindowThreadProcessId hwnd, pID
hProc = OpenProcess(PROCESS_TERMINATE, False, pID)
Call SendMessage(hwnd, WM_QUERYENDSESSION, 0, 1)
Call SendMessage(hwnd, WM_ENDSESSION, -1, 1)
TerminateProcess hProc, 0
CloseHandle hProc
 
End Sub

Sub Test()
ShutDownProc "C:\Windows\system32\calc.exe"
End Sub
 
Sub ShutDownProc(sPath As String)
sPath = Mid$(sPath, InStrRev(sPath, "\") + 1)
Shell "cmd /c taskkill /f /t /im:" & sPath, 0
End Sub

Dim Process As Object
        For Each Process In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
                If Process.Caption Like "День*" Then
                        Process.Terminate
                End If
        Next