]]>]]>Непонятен фрагмент:
Согласен, это я не подумав из предыдущего варианта скопировал. Ещё логичнее так:
MyPpoc := "notepad.exe"
Loop 10
Run, % MyPpoc
oProcesses := []
for process in ComObjGet("winmgmts:").InstancesOf("Win32_Process where Name='" . MyPpoc . "'")
oProcesses[A_Index] := process.ProcessId, process.Terminate
for k, PID in oProcesses
Process, WaitClose, %PID%, 10
until ErrorLevel && NotAllClosed := 1
if NotAllClosed
{
for k, PID in oProcesses
{
Process, Exist, %PID%
if ErrorLevel
NotClosed .= (A_Index = 1 ? "" : ", ") . PID
}
MsgBox, Не удалось завершить процессы %NotClosed%
}Если процесс не закрылся после однократного Process, close, не имеет смысла бомбить его этой командой далее.
Если действительно нет смысла, то я бы так написал:
process := "notepad.exe"
Loop 10
run %process%
For Proc In ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process where Name='" process "'")
{
Process, Close, % Pid := Proc.ProcessId
Process, WaitClose, %Pid%, 10
If ErrorLevel
MsgBox, Не удалось завершить процесс: %process%, пид: %Pid% за 10 секунд
}
MsgBox, Все процессы: %process% завершены.
Непонятен фрагмент:
Loop
Process, WaitClose, %PID%, 1
until !ErrorLevel || A_Index = 10
if ErrorLevelесть отличия от:
Process, WaitClose, %Pid%, 10
If ErrorLevel Они же в одном цикле находятся.
Мда, это я Break с Continue подсознательно попутал :LOL:. Праздники.
Думаю такой вариант проще:
process := "notepad.exe"
Loop 10
run %process%
Loop
{
Process, Exist, %process%
Process, Close, % Pid := ErrorLevel
Process, WaitClose, %PID%, 10
If ErrorLevel
MsgBox, Не удалось завершить процесс: %process%, пид: %PID% за 10 секунд
} Until !Pid
MsgBox, Все процессы: %process% завершены.Если процесс не закрывается, то у тебя тут вечный цикл, и сюда:
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}выполнение не дойдёт.
Как это не дойдет?
Они же в одном цикле находятся.
Этот подход правильный?
Если несколько, то нет. Надо обращатся к идентификатору процесса, а не к его имени.
А таймер 10 секунд обнуляется в этой строчке:
Process, Close, %process%
Process, Exist, %process%
if !ErrorLevel
breakЕсли процесс не закрывается, то у тебя тут вечный цикл, и сюда:
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}выполнение не дойдёт.
]]> if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
} Process, Close, %process%
Process, Exist, %process%
if !ErrorLevel
breakВполне может оказаться, что в первой строчке код обращается к одному процессу, а во второй уже к другому, поэтому Errorlevel ни о чём не говорит.
]]>process := "notepad.exe"
n := prev := ErrorLevel := ""
Loop
{
Process, Close, %process%
Process, Exist, %process%
if !ErrorLevel
break
if n = 100
MsgBox, Не удалось завершить процесс %process% за 10 секунд
sleep 100
n++
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}
}
Process, Close, WerFault.exe
Loop
Process, WaitClose, WerFault.exe, 1
until !ErrorLevel || A_Index = 10
if ErrorLevel
MsgBox, Не удалось завершить процесс WerFault.exe за 10 секундЕсли несколько, так:
oProcesses := []
for process in ComObjGet("winmgmts:").InstancesOf("Win32_Process where Name='WerFault.exe'")
oProcesses[A_Index] := process.ProcessId
for k, PID in oProcesses
{
Process, Close, %PID%
Loop
Process, WaitClose, %PID%, 1
until !ErrorLevel || A_Index = 10
if ErrorLevel
MsgBox, Не удалось завершить процесс %PID% за 10 секунд
}