Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Привожу часть кода из огромного скрипта.
Почему-то процесс WerFault.exe не закрылся.
Когда же запустил эту часть кода отдельно, то закрылся.
Что может быть причиной?
oIE.Quit
WinClose ahk_id %oIEHWND%
ErrorLevel := 1
While ErrorLevel
Process, Close, WerFault.exe
Привожу часть кода из огромного скрипта.
Возможно контекст не полный.
Маловероятно, но могу предложить замену:
ErrorLevel := 1
While ErrorLevel
Process, Close, WerFault.exeна:
Loop
Process, Close, WerFault.exe
Until ErrorLevelвозможно что то меняет ErrorLevel.
И вопрос, зачем в большом коде,
While ErrorLevel
Process, Close, WerFault.exeесли процесс закрыт, продолжать цикл?
Возможно, что-то меняет ErrorLevel, но так как процесс WerFault.exe был один, то получается, что поменяло сразу.
Может быть AHK не смог его закрыть - тогда тоже ErrorLevel возвращает 0.
зачем в большом коде,
если процесс закрыт, продолжать цикл?
На случай если процессов несколько.
Возможно ли такое, что в этом коде msgbox не выскочит?
ComObjError(false)
oIE := ComObjCreate("InternetExplorer.Application")
oIE.visible := True, oIEHWND := oIE.HWND
WinMaximize ahk_id %oIEHWND%
oIE.Quit
WinClose ahk_id %oIEHWND%
ErrorLevel := 1
While ErrorLevel
msgbox
В этом, нет.
На случай если процессов несколько.
While ErrorLevel
Process, Close, WerFault.exeТут если процесс не закрыт с первого раза, то выход из цикла. Надо бы в нём добавить проверку существования процесса.
А какое число попыток целесообразно ставить?
While ErrorLevel and A_Index < 10
{
Process, Close, WerFault.exe
Process, Exist, WerFault.exe
}
Не думаю, что есть однозначный ответ на такой вопрос.
Я бы сюда добавил некую паузу после Close, или Exist заменил на WaitClose.
А некая пауза это сколько?
sleep, 1000 нормально?
Вопрос такой же как и предыдущий, как будет удобно. Например 200мс.
Но лучше WaitClose, чтобы не ждать окончания пауз при успешных завершениях процесса.
Не могу понять. Почему-то код не закрывает один процесс WerFault.exe в комплексном скрипте.
Если же его запустить отдельно, то все хорошо.
В чем таки может быть ошибка?
oIE.Quit
WinClose ahk_id %oIEHWND%
ErrorLevel := 1
While ErrorLevel and A_Index < 10
{
Process, Close, WerFault.exe
Process, WaitClose, WerFault.exe, 1
}
Почему-то код не закрывает один процесс WerFault.exe в комплексном скрипте.
А сколько процессов WerFault.exe было?
Один.
Нужно проверить, срабатывает ли вообще цикл:
ErrorLevel := 1
While ErrorLevel and A_Index < 10
{
Process, Close, WerFault.exe
Process, WaitClose, WerFault.exe, 1
MsgBox, % ErrorLevel
}
Поставил на проверку. Правда когда выскочит ошибка - неизвестно.
А может ли быть это из-за того, что процесс называется Werfault.exe *32?
Нет, *32 — это не часть имени процесса, это просто метка.
Вообще-то, сам подход не совсем верный. Если процесс один, правильнее так:
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 секунд
}
А я не знаю сколько их может быть.
И разве из-за несовсем неправильного подхода может код не срабатывать?
Этот подход правильный?
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, %process%
Process, Exist, %process%
if !ErrorLevel
breakВполне может оказаться, что в первой строчке код обращается к одному процессу, а во второй уже к другому, поэтому Errorlevel ни о чём не говорит.
Так и пускай обращается - нам же надо закрыть все процессы notepad.exe.
А таймер 10 секунд обнуляется в этой строчке:
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}
Этот подход правильный?
Если несколько, то нет. Надо обращатся к идентификатору процесса, а не к его имени.
А таймер 10 секунд обнуляется в этой строчке:
Process, Close, %process%
Process, Exist, %process%
if !ErrorLevel
breakЕсли процесс не закрывается, то у тебя тут вечный цикл, и сюда:
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}выполнение не дойдёт.
Ну, не знаю, мне мой вариант кажется более последовательным. Если процессов с одним именем много, логично к ним обращаться по PID. Если процесс не закрылся после однократного Process, close, не имеет смысла бомбить его этой командой далее.
Если процесс не закрывается, то у тебя тут вечный цикл, и сюда:
if (prev != ErrorLevel)
{
prev := ErrorLevel
n := ""
}выполнение не дойдёт.
Как это не дойдет?
Они же в одном цикле находятся.
Они же в одном цикле находятся.
Мда, это я 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% завершены.
Если процесс не закрылся после однократного 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
Непонятен фрагмент:
Согласен, это я не подумав из предыдущего варианта скопировал. Ещё логичнее так:
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, WaitClose?
Не уверен конечно на сто процентов, но, по-моему метод Terminate (как и команда Process, Close) убивает процесс без всяких условий, если есть права доступа и не зависла система. Можешь поэкспериментировать на всякий случай. 
Сегодня выдало ошибку - 0x80041002.
http://support.microsoft.com/kb/2465990/ru
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
