TopPicLogo TopPicText

Внешние приложения - Закрытие

Sub CloseProcess(sProcCaption As String)
'es 25.03.2017
'Закрытие Приложения (процесса) с названием указанным в аргументе (Маска: Название*)
'--------------------------------------------------------------------------
'Литература:
'Рецепты WMI: управление процессами : http://www.script-coding.com/WMI_Processes.html
'--------------------------------------------------------------------------
Dim objProcess As Object
On Error GoTo CloseProcess_Err
    'Перебор запущенных процессов
    For Each objProcess In GetObject("winmgmts:").ExecQuery("Select * from Win32_Process")
        'Debug.Print objProcess.Caption
        If objProcess.Caption Like proc & "*" Then
           objProcess.Terminate    'Закрытие процесса
        End If
    Next

CloseProcess_Bye:
    Exit Sub

CloseProcess_Err:
    MsgBox "Ошибка " & Err.Number & vbCrLf & Err.Description & vbCrLf & "в процедуре: CloseProcess", vbCritical, "Error in module mod00_Test"
    Resume CloseProcess_Bye
End Sub



Пример экспруотации:


Private Sub TestOne()
'Закрываем Калькулятор
    CloseProcess "Calculator.exe" 'Здесь пишем имя нужной проги
End Sub


Public Sub testZed()
'Запускаем Калькулятор
    Dim WshShell As Object, oExec As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set oExec = WshShell.Exec("calc") 'Calculator.exe
End Sub

Назад ToTop
L.E. 26.03.2017
Рейтинг@Mail.ru