[Gragl]

Molchune, Ваш код работает!

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

@echo off
set "p=MatrixStartup.exe"
cmd /c for /l %%i in (1,1,10) do @tasklist /fi "MatrixStartup eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul timeout /t 1 /nobreak

Значит, пора учиться. »

А Вы научите ?
C подменой файла и переименованием получилось. Этому я очень удивился!
Заинтересовал код из Вашей ссылки, я заменил имя процесса на свое и тоже сработало
А можно ли сделать так чтоб код запускал мою программу, отслеживал процес и когда бы его нашел и прикончил закрыл бы свое окошко и не висел бы в процессах?

[Gragl]

пытаюсь стартануть прогу, но в третей сторке пишет что не может найти указанный файл

set WSShell = createobject("Wscript.Shell")
WSShell.CurrentDirectory="C:\Program Files (x86)\Matrix90\"
WSShell.run "C:\Program Files (x86)\Matrix90\Matrix90.exe",0

такой код в отдельном файле запускает прогу, но если его вставить в файл из Вашей ссылки то ошибка (переменная не определена)

Option Explicit
Dim wsh
Set wsh = WScript.CreateObject("WScript.Shell")
wsh.Run("""C:\Program Files (x86)\Matrix90\Matrix90.exe")
Set wsh = Nothing

[Gragl]

Получилось

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """C:\Program Files (x86)\Matrix90\Matrix90.exe""",1


strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colMonitoredProcesses = objWMIService. _
ExecNotificationQuery("select * from __instancecreationevent " _
& " within 1 where TargetInstance isa 'Win32_Process'")
i = 0

Do While i = 0
Set objLatestProcess = colMonitoredProcesses.NextEvent
If objLatestProcess.TargetInstance.Name = "MatrixStartup.exe" Then
objLatestProcess.TargetInstance.Terminate
End If
Loop

Теперь осталось научиться завершить процесс скрипта

[alpap]

в код пытался внести свои значения »

не надо этого было делать, это бесконечный цикл

Код:

cmd /c for /l %%i in () do ... (и далее с проверкой раз в секунду) ... timeout /t 1 /nobreak

MatrixStartup eq ...»

вместо: "imagename eq ..."
это что за ..., не знаете синтаксиса или справку смотрите или спрашивайте или не трогайте
код должен быть запущен заранее (естественно), до появления процесса и как процесс появится, он будет отключен и код прекратит работу.

[Gragl]

alpap,
Сейчас в Вашем коде я заменил только set "p=process.exe" на set "p=MatrixStartup.exe"
Запускаю батник с этим кодом, на мгновение появляется и исчезает окошко консоли. Потом запускаю прогу.
Стартует ненужный процесс MatrixStartup.exe работает и не прерывается.

Может быть я делаю что то не верно?

@echo off
set "p=MatrixStartup.exe"
cmd /c for /l %%i in () do @tasklist /fi "imagename eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul timeout /t 1 /nobreak

[Iska]

А можно ли сделать так чтоб код запускал мою программу, отслеживал процес и когда бы его нашел и прикончил закрыл бы свое окошко и не висел бы в процессах? »

У него нет «окошка» (если только Вы не исполняете код под консольным cscript.exe). Можно:

Код:

Option Explicit

With WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2")
	.Get("Win32_Process").Create "c:\Windows\System32\notepad.exe", "c:\Windows\System32", Nothing, Empty
	
	.ExecNotificationQuery( _
		"SELECT * FROM __InstanceCreationEvent " & _
		"WITHIN 1 WHERE TargetInstance ISA 'Win32_Process' AND " & _
		"TargetInstance.Name = 'calc.exe'" _
	).NextEvent.TargetInstance.Terminate
End With

WScript.Quit 0

В роли процесса, который нужно запустить — Блокнот, в роли процесса, который следует следом «прихлопнуть» — Калькулятор. Замените имена и пути на свои. Будет работать, только если всё происходит именно так, как Вы описали.

[alpap]

на мгновение появляется и исчезает окошко консоли »

а вот исчезать не должно, должно висеть пустое окно и ждать процесса, как появится процесс, пропадет и процесс и окно закроется
в вашем случае, вероятно, процесс "MatrixStartup.exe" все же уже запущен до запуска кода и он и код убивается, а следующий запущенный процесс "MatrixStartup.exe" уже некому убивать, процесс cmd уже отключился.

[Gragl]

Iska,

Все сделал как Вы сказали
Просто супер!
Большое Вам спасибо!


alpap,
А Ваш код, к сожалению, не работает в режиме ожидания процесса.
Срабатывает только тогда, когда я его вызываю. Все также на мгновение появляется и исчезает окно, выполняя одну команду taskkill /f /im "%p%

Я попробовал протестировать его на примере калькулятора. Очень хотелось бы увидеть его в деле, но увы, результат тот же.

@echo off
set "p=calc.exe"
cmd /c for /l %%i in () do @tasklist /fi "imagename eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul timeout /t 1 /nobreak

[Gragl]

Чтобы посмотреть что происходит в окне я добавил pause в файл с кодом расширения .bat
И увидел странный знак "■" в отчете

"■t" не является внутренней или внешней командой.
Откуда взялся этот знак не пойму.
Сохранял в кодировке ANSI и UTF-8

@echo off
set "p=calc.exe"
cmd /c for /l %%i in () do tasklist /fi "imagename eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul timeout /t 1 /nobreak
pause

[alpap]

Gragl,
явно с кодом вы что-то уже нахомутали так как в оригинале и с calc.exe все прекрасно работает:

Код:

@echo off
set "p=calc.exe"
cmd /c for /l %%i in () do @tasklist /fi "imagename eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul timeout /t 1 /nobreak
pause

скрины: 1 2 3 4
скрины 3 и 4 сделаны, когда в коде первой строкой: @echo on вместо @echo off
P.S.
а что за ОС у вас?
даже скопипастил выше ваш вариант, там отличие только в отсутствии @ перед tasklist что не имеет значение на работу кода - все работает как надо.
уже даже и в utf-8 попробовал запустить - нет проблем (скрин)
что ни пробовал, не смог смоделировать ситуацию как у вас на скрине.
похоже я догадываюсь откуда "ноги растут" у t и в чем дело. ОС у вас похоже XP и там нет timeout, так как нет, поэтому попробуйте в коде вместо окончания: >nul timeout /t 1 /nobreak, записать: >nul ping -n 2 127.0.0.1, вот так:

Код:

@echo off
set "p=calc.exe"
cmd /c for /l %%i in () do @tasklist /fi "imagename eq %p%"^|findstr /v :^&^& (taskkill /f /im "%p%"^& exit /b)^&^>nul ping -n 2 127.0.0.1
pause

только не надо utf-8 сохранять, сохраняйте в 1251 или лучше 866.