21.07.2008, 16:32
общий
это ответ
Здравствуйте, Горбунов Андрей Александрович!
Процедура в прилажении "выловит" и закроет все запущеные процессы "abc.exe", затем запустит "abc1.exe" только если будет указан путь расположения файла - "C:\abc1.exe".
Евгений.
Приложение:
Sub openProg()Dim Squery, WshShell, Process, Processes, Program, ProgPathProgram = """abc.exe""" ‘ "вылавливаемый"процессProgPath = """C:\abc1.exe""" ‘ Запускаемая программа с указанием путиSet WshShell = CreateObject("WScript.Shell")On Error Resume Next: Err.ClearSet WMI = GetObject("winMgmts:")If Err.Number <> 0 Then Exit SubSquery = "Select * From Win32_Process Where Name=" + ProgramSet Processes = WMI.ExecQuery(Squery)On Error Resume NextFor Each Process In Processes Process.TerminateNextWshShell.Run ProgPath, 1, FalseEnd Sub