CMD/BAT - [решено] Скрипт для авто выключения одного приложения при ручном выключении другого (.exe)

YuS_2 · Отправлено: **18:04, 03-06-2018** | #11

Цитата vk_k14m@vk:

Как то это слишком сложно... »

Нет там ничего сложного...

run.bat

Код:

@echo off
start "" "program.exe"

:loop
>nul timeout /t 15
tasklist /fi "imagename eq program2.exe"|>nul find /i "program2.exe"||start "" "program2.exe"
tasklist /fi "imagename eq program.exe"|>nul find /i "program.exe"&&goto loop||goto close
goto loop

:close
taskkill /fi "imagename eq program2.exe"

для скрытого запуска:
hide.vbs

Код:

Set oTmp=CreateObject("WScript.Shell")
for n = 2 to WScript.Arguments.count
  Args = Args & " " & WScript.Arguments(n-1)
next

oTmp.Run WScript.Arguments(0) & Args, 0, False

Создаёте ярлык со следующей строкой запуска:

Код:

wscript.exe //nologo hide.vbs "run.bat"

и запускаете через него.

vk_k14m@vk · Конфигурация компьютера

Цитата YuS_2:

run.bat

Код:

@echo off
start "" "program.exe"
:loop
>nul timeout /t 15
tasklist /fi "imagename eq program2.exe"|>nul find /i "process2.exe"||start "" "program2.exe"
tasklist /fi "imagename eq program.exe"|>nul find /i "process1.exe"&&goto loop||goto close
goto loop
:close
taskkill /fi "imagename eq program2.exe"

»

Не работает, и вот почему. Про запуске program.exe и program2.exe запускаются не одноименные процессы. Эти программы что-то вроде лаунчеров. Которые запускают process.exe и process2.exe.

И еще. Не понятно что значит "imagename eq program.exe"?

Цитата YuS_2:

для скрытого запуска:
hide.vbs

Код:

Set oTmp=CreateObject("WScript.Shell")
for n = 2 to WScript.Arguments.count
 Args = Args & " " & WScript.Arguments(n-1)
next
oTmp.Run WScript.Arguments(0) & Args, 0, False

Создаёте ярлык со следующей строкой запуска:

Код:

wscript.exe //nologo hide.vbs "run.bat"

и запускаете через него. »

YuS_2 · Отправлено: **20:09, 04-06-2018** | #13

Цитата vk_k14m@vk:

Про запуске program.exe и program2.exe запускаются не одноименные процессы. Эти программы что-то вроде лаунчеров. Которые запускают process.exe и process2.exe. »

Какие были условия, такое и решение.

Цитата vk_k14m@vk:

когда я запускаю скрипт, то он сразу запускает приложение Program.exe, после чего через 15 секунд запускает "вспомогательное" приложение Program2.exe. Далее нужно сделать, что б после выключения приложения Program.exe скрипт автоматически, через 15 секунд выключал и "вспомогательное" приложение Program2.exe. »

Нет?
Приведите в соответствие названия процессов и всё будет работать

Цитата vk_k14m@vk:

Не понятно что значит "imagename eq program.exe"? »

Код:

tasklist /?
taskkill /?

По поводу скрипта hide.vbs:
А так:

Код:

Set oTmp=CreateObject("WScript.Shell")
oTmp.Run WScript.Arguments(0), 0, False

?

vk_k14m@vk · Конфигурация компьютера

Как я уже говорил, забейте. Ваши скрипты только сильнее лагают. Буду пользоваться тем что сам собрал и вручную выключать приложения...

megaloman · Отправлено: **22:33, 04-06-2018** | #15

vk_k14m@vk, Итак, как я понимаю Вашу задачу после обсуждения непоняток:

vbs
1. Запускается первая программа PrgExe1 которая запускает процесс Prc1
2. Запускается вторая программа PrgExe2 которая запускает процесс Prc2
3. Пауза. Отслеживается наличие Prc1.
4. Если Prc1 отсутствует, убиваем Prc2. Завершаем скрипт.
5. Иначе возвращаемся на 3.

Код:

PrgDir1 = "D:\Program Files\MTA Province"	' Папка с первой программой
PrgExe1 = "MTA\MTA.exe"		' Exe-файл первой программы
Prc1 = "proxy_sa.exe"			' Процесс запущенный первой программой	

PrgDir2 = "C:\Program Files (x86)\Bandicam"		' Папка со второй программой
PrgExe2 = "Loader.exe"			' Exe-файл второй программы
Prc2 = "bdcam.exe"			' Процесс запущенный второй программой	

Paus = 15   'Пауза сек

Set WMI = GetObject("winMgmts:")
Set WShell = CreateObject("WScript.Shell")

' Если Prс1 запущен, убъем его
Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
For Each Process In Processes
    Process.Terminate
Next

' Запустим PrgExe1
WShell.CurrentDirectory = PrgDir1
R1 = WShell.Run("""" + PrgDir1 + "\" + PrgExe1 + """", 7, False)

WScript.Sleep Paus * 1000

' Если Prс1 запустилась, запустим PrgExe2
Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
If Processes.Count > 0 Then
    WShell.CurrentDirectory = PrgDir2
    R2 = WShell.Run("""" + PrgDir2 + "\" + PrgExe2 + """", 7, False)
Else
    Msg = "Текущая папка" + vbCrLf + WShell.CurrentDirectory  + vbCrLf + vbCrLf 
    MsgBox Msg + "Запуск" + vbCrLf + """" + PrgDir1 + "\" + PrgExe1 + """" + vbCrLf + "не запустил процесс" + vbCrLf + """" + Prc1 + """"
    WScript.Quit 1
End If

' Опрашиваем. Если нет Prс1 убъем Prс2 и завершим скрипт
Do
    WScript.Sleep Paus * 1000
    Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
    If Processes.Count = 0 Then
        Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc2 + """")
        For Each Process In Processes
            Process.Terminate
        Next
        Exit Do
    End If
Loop

MsgBox "Нет " + Prc1 + " и " + Prc2 + ".  Скрипт завершен"

Пропишите правильно папки программ, имена экзешников, имена процессов, ими запускаемых

Если постановка задачи иная, не томите, изложите подробно и четко. При кривой постановке скрипты обязательно, как Вы говорите, будут лагать. И придётся забить - на корзину работать нет охоты.

vk_k14m@vk · Конфигурация компьютера

Цитата megaloman:

Если постановка задачи иная, не томите, изложите подробно и четко. При кривой постановке скрипты обязательно, как Вы говорите, будут лагать. И придётся забить - на корзину работать нет охоты. »

Постановка правильна.

Цитата:

1. Запускается первая программа "D:\Program Files\MTA Province\MTA\MTA.exe" которая запускает процесс "D:\Program Files\MTA Province\proxy_sa.exe"
2. Запускается вторая программа "C:\Program Files (x86)\Bandicam\Loader.exe" которая запускает процесс "C:\Program Files (x86)\Bandicam\bdcam.exe"
3. Пауза. Отслеживается наличие "D:\Program Files\MTA Province\proxy_sa.exe".
4. Если "D:\Program Files\MTA Province\proxy_sa.exe" отсутствует, убиваем "C:\Program Files (x86)\Bandicam\bdcam.exe". Завершаем скрипт.
5. Иначе возвращаемся на 3.

Такс. Создал файл "start.vbs", вписал в него такой текст:

Код:

PrgDir1 = "D:\Program Files\MTA Province"	' Папка с первой программой
PrgExe1 = "MTA\MTA.exe"		' Exe-файл первой программы
Prc1 = "proxy_sa.exe"			' Процесс запущенный первой программой	

PrgDir2 = "C:\Program Files (x86)\Bandicam"		' Папка со второй программой
PrgExe2 = "Loader.exe"			' Exe-файл второй программы
Prc2 = "bdcam.exe"			' Процесс запущенный второй программой	

Paus = 15   'Пауза сек

Set WMI = GetObject("winMgmts:")
Set WShell = CreateObject("WScript.Shell")

' Если Prс1 запущен, убъем его
Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
For Each Process In Processes
    Process.Terminate
Next

' Запустим PrgExe1
WShell.CurrentDirectory = PrgDir1
R1 = WShell.Run(PrgExe1, 7, False)

WScript.Sleep Paus * 1000

' Если Prс1 запустилась, запустим PrgExe2
Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
If Processes.Count > 0 Then
    WShell.CurrentDirectory = PrgDir2
    R2 = WShell.Run(PrgExe2, 7, False)
Else
    WScript.Quit 1
End If

' Опрашиваем. Если нет Prс1 убъем Prс2 и завершим скрипт
Do
    WScript.Sleep Paus * 1000
    Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc1 + """")
    If Processes.Count = 0 Then
        Set Processes = WMI.ExecQuery("Select *From Win32_Process Where Name=" + """" + Prc2 + """")
        For Each Process In Processes
            Process.Terminate
        Next
        Exit Do
    End If
Loop

MsgBox "Нет " + Prc1 + " и " + Prc2 + ".  Скрипт завершен"

сохранил. При запуске скрипта такая ошибка.

YuS_2 · Отправлено: **23:06, 04-06-2018** | #17

Цитата vk_k14m@vk:

Как я уже говорил »

Для того, чтобы скрипт работал правильно, необходимо: правильно прописывать пути к запускаемым им программам (в данном случае run.bat), либо он должен находиться в одном каталоге с ними (тогда путь указывать необязательно, только наименование).
В общем, если кратко: поместите ярлык, скрипт hide.vbs и пакетник run.bat в один каталог. Предварительно проверьте работу пакетника, он должен работать самостоятельно, а после всех проверок и наладки, запускайте в скрытом режиме.

Цитата vk_k14m@vk:

Ваши скрипты только сильнее лагают. »

Я бы сказал так: чаще лагают руки их применяющие.

Описывайте подробнее и главное - точнее, условия задачи и тогда получите конфетку, а иначе на выходе будет всегда полуфабрикат, который придется допиливать самостоятельно... и это не претензия, если что, а просто констатация, причем касающаяся не только персонально Вас... это достаточно частое явление.

vk_k14m@vk · Конфигурация компьютера

Цитата YuS_2:

Для того, чтобы скрипт работал правильно, необходимо: правильно прописывать пути к запускаемым им программам (в данном случае run.bat), либо он должен находиться в одном каталоге с ними (тогда путь указывать необязательно, только наименование).
В общем, если кратко: поместите ярлык, скрипт hide.vbs и пакетник run.bat в один каталог. Предварительно проверьте работу пакетника, он должен работать самостоятельно, а после всех проверок и наладки, запускайте в скрытом режиме. »

Не поверишь, ярлык, скрипт и батник и так лежат в одной папке. Только скрипт выдает ошибку когда запускаю ярлык. А батник не завершает второй процесс при завершении первого.

YuS_2 · Отправлено: **23:37, 04-06-2018** | #19

Цитата vk_k14m@vk:

А батник не завершает второй процесс при завершении первого. »

Естественно, т.к. после уточнения:

Цитата vk_k14m@vk:

Постановка правильна. »

он явно должен быть другим

Код:

@echo off
set "prg1=D:\Program Files\MTA Province\MTA\MTA.exe"
set "prg2=C:\Program Files (x86)\Bandicam\Loader.exe"
set "prc1=proxy_sa.exe"
set "prc2=bdcam.exe"

start "" "%prg1%"

:loop
>nul timeout /t 15
tasklist /fi "imagename eq %prc2%"|>nul find /i "%prc2%"||start "" "%prg2%"
tasklist /fi "imagename eq %prc1%"|>nul find /i "%prc1%"&&goto loop||goto close
goto loop

:close
taskkill /fi "imagename eq %prc2%"

а hide.vbs поправьте так:

Код:

Set oTmp=CreateObject("WScript.Shell")
oTmp.Run """" & WScript.Arguments(0) & """", 0, False

Затем в ярлыке укажите абсолютные пути к самому hide.vbs и run.bat

Код:

wscript.exe //nologo "D:\здесь путь к папке где он находится\hide.vbs" "E:\здесь путь к папке где он находится\run.bat"

- в таком варианте им не обязательно находится в одном каталоге.

PS На всякий случай: "батник" сохраняйте в кодировке 866, скрипт vbs в кодировке 1251... для исключения проблем с кириллицей в путях...

Iska · Отправлено: **23:56, 04-06-2018** | #20

Цитата vk_k14m@vk:

Не работает, и вот почему. Про запуске program.exe и program2.exe запускаются не одноименные процессы. Эти программы что-то вроде лаунчеров. Которые запускают process.exe и process2.exe. »

Начинают выясняться антиресные подробности

.

Цитата megaloman:

Если постановка задачи иная, не томите, изложите подробно и четко. При кривой постановке скрипты обязательно, как Вы говорите, будут лагать. И придётся забить - на корзину работать нет охоты. »

Работать можно. Токмо за отдельную оплату. После этого, как правило, и техзадание рождается быстро, и детали излагаются чётко.

Цитата YuS_2:

Код:

wscript.exe //nologo …

»

Для wscript.exe параметр //nologo не требуется.