MyTetra Share
Делитесь знаниями!
Внешние приложения - Закрытие
19.07.2018
19:42
Раздел: VBA - Access - msa.polarcom.ru - 15 Приложения Внешние


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

Public Sub CloseProcess(sProcCaption As String)

'es 09.06.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 sProcCaption & "*" 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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования