Вопрос по ProcessExists

Chang · 20 Янв 2022

Приветствую. Пока ковыряюсь со своей автоматизацией, возникло 2 вопроса:
1. ProcessExists чувствителен к регистру ? В справки информации не нашел, тесты показали, что нет, но вдруг у меня такой процесс универсальный...
2. Как проверить, запущен ли один из процессов ? Пытался выполнить это через Or, исполняемый файл компилируется, но проверка не происходит:

Код:

If Not ProcessExists($Backup) And Not ProcessExists("sync.exe" Or "teamviewer.exe" Or "anydesk.exe" Or "rdp.exe") Then

Аналогично и с вариантом

Код:

If Not ProcessExists($Backup) And Not ProcessExists("sync.exe") Or Not ProcessExists("teamviewer.exe") Or Not ProcessExists("anydesk.exe") Or Not ProcessExists("rdp.exe") Then

Благодарю

All2khoff · 20 Янв 2022

самый простой способ проверки, это запустить процесс нужного приложения. и проверять его.
вполне можно брать имя процесса из диспетчера задач. как вариант использовать "пул" имён, перечисляя их в массиве или поштучно в зависимости от разрядности системы.
например: если не найдено никаких процессов 1с то запустить 1с.

Код:

Select
   Case ProcessExists("1cv8.exe")
   Case ProcessExists("1cv8s.exe")
   Case ProcessExists("1cv8c.exe")
   Case ProcessExists("1cv8.exe *32")
   Case ProcessExists("1cv8s.exe *32")
   Case ProcessExists("1cv8c.exe *32")
   Case Else
   Run ("C:\Program Files (x86)\1cv8\common\1cestart.exe")
EndSelect

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

IMStrelcov · 20 Янв 2022

Код:

$sProcessList = 'sync.exe|teamviewer.exe|anydesk.exe|rdp.exe'

If (Not ProcessExists($Backup)) And (Not IsAnyProcessExists_($sProcessList)) Then

Func IsAnyProcessExists_($_vProcessList)
   If Not IsArray($_vProcessList) Then $_vProcessList = StringSplit($_vProcessList, '|', 3)
   For $_sProcess In $_vProcessList
      If ProcessExists($_sProcess) Then Return 1
   Next
   Return 0
EndFunc

Alecsis · 20 Янв 2022

Glass4217 сказал(а):
имя файла .exe не всегда соответствует имени процесса

Да, это факт. А конструкция вида

Код:

ProcessExists[/URL]("1cv8.exe *32")

не прокатит.
Вот «лабораторная работа» + на всякий случай скрин Диспетчера задач W7: во 2 и 3 случаях летим мимо кассы…

Код:

Opt('MustDeclareVars', True)
ChkProcess('Punto.exe')       ; этот процесс 32-битный даже под x64
ChkProcess('Punto.exe *32')         ; попытка в стиле Win7 приводит к облому
ChkProcess('Punto.exe (32 бита)')   ; попытка в стиле Win10 = тот же случай
;
Func ChkProcess($sName)
  Local $sMsg, $iIcon
  If ProcessExists($sName) Then
      $sMsg = $sName & ' работает'
      $iIcon = 0x40
    Else
      $sMsg = $sName & ' не найден'
      $iIcon = 0x30
  EndIf
  MsgBox($iIcon, @ScriptName, $sMsg)
EndFunc

All2khoff · 20 Янв 2022

Alecsis сказал(а):
не прокатит.

как это не прокатит? использовался мной на протяжении полугода на кассах на 7й винде в 1с розница. там была возможность у кассира из "РМК" (рабочее место кассира) выйти в операционную систему, собственно код отслеживал пропадание процесса 1с. и запускал 1с заново. таким образом обращение в it отдел по поводу закрывшейся РМК упал на 100% так как 1с запускалась обратно спустя 5 секунд.
использовалась Windows 7 Enterprise x64

Сообщение автоматически объединено: 20 Янв 2022

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

Код:

Select
   Case ProcessExists("1cv8.exe")
   Case ProcessExists("1cv8s.exe")
   Case ProcessExists("1cv8c.exe")
   Case ProcessExists("1cv8.exe *32")
   Case ProcessExists("1cv8s.exe *32")
   Case ProcessExists("1cv8c.exe *32")
   Case ProcessExists("1cv8.exe (32 бита)")
   Case ProcessExists("1cv8s.exe (32 бита)")
   Case ProcessExists("1cv8c.exe (32 бита)")
   Case Else
   Run ("C:\Program Files (x86)\1cv8\common\1cestart.exe")
EndSelect

Chang · 20 Янв 2022

Всем здравствуйте. Массивы это конечно хорошо и возможно даже более правильно, но с учетом уровня моей компетенции, способ перечисления куда более близок и понятен. Glass4217, спасибо. Вечером попробую запустить, пока не особо понимаю, как это внедрить в мой код. Выглядит этот кусок кода примерно следующим образом:

Код:

$Backup = "SysDump3817.exe" ; Исполняемый файл содержит версию сборки!

While Sleep(5000)

    If _Timer_GetIdleTime() > 7200000 Then ; если время простоя рабочей станции более 2х часов

    If Not ProcessExists($Backup) And Not ProcessExists("sync.exe" Or "teamviewer.exe" Or "anydesk.exe" Or "rdp.exe") Then

    Run($Backup)

...

В итоге у меня должно получится так?

Код:

$Backup = "SysDump3817.exe" ; Исполняемый файл содержит версию сборки!

While Sleep(5000)

    If _Timer_GetIdleTime() > 7200000 Then ; если время простоя рабочей станции более 2х часов

    If Not ProcessExists($Backup) And Not ProcessExists("sync.exe" Or "teamviewer.exe" Or "anydesk.exe" Or "rdp.exe") Then

Select
   Case ProcessExists($Backup)
   Case ProcessExists("sync.exe")
   Case ProcessExists("teamviewer.exe")
   Case ProcessExists("anydesk.exe")
   Case ProcessExists("rdp.exe")
   Case Else
    Run($Backup)
EndSelect

...

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

All2khoff · 20 Янв 2022

Да верно, но грубо говоря чтобы работало везде надо чтобы вариант проверки процесса работал во всех вариантах которые могут встретиться в диспетчере задач. этот вариант не панацея, так как строго рекомендуется проверить все возможные варианты, и перечислить их в коде, но ход вашей мысли верный.
лишний подход "если" не нужен, Case работает аналогичным образом, но с большим числом перечисляемых вариантов

Код:

$Backup = "SysDump3817.exe" ; Исполняемый файл содержит версию сборки!

While Sleep(5000)

    If _Timer_GetIdleTime() > 7200000 Then ; если время простоя рабочей станции более 2х часов

Select
   Case ProcessExists($Backup)
   Case ProcessExists("sync.exe")
   Case ProcessExists("sync.exe *32")
   Case ProcessExists("sync.exe (32 бита)")
   Case ProcessExists("teamviewer.exe")
   Case ProcessExists("teamviewer.exe *32")
   Case ProcessExists("teamviewer.exe (32 бита)")  
   Case ProcessExists("anydesk.exe")
   Case ProcessExists("anydesk.exe *32")
   Case ProcessExists("anydesk.exe (32 бита)")  
   Case ProcessExists("rdp.exe")
   Case Else
    Run($Backup)
EndSelect

собственно каждый первый case в состоянии true можно воспринимать как "if ProcessExists(имяпроцесса) then действие".
Case Else воспринимается если никто из тех кто выше то значит я.

Chang · 20 Янв 2022

Glass4217, в очередной раз благодарю за разъяснение.

Подскажите пожалуйста, регистр написания процесса играет роль ? Т.е. насколько критично, если я напишу anydesk.exe, Anydesk.exe или AnyDesk.exe

Лично у меня запустился во всех 3х видах написания.

---Zak--- · 22 Янв 2022

2 @ll
Мой вариант

Код:

#include <Array.au3>

Local $pList[] = ['sync', 'teamviewer', 'anydesk', 'rdp'] ;~ можно использовать '.' в конце для ограничения имени запущенного процесса или указывать имя процесса с расширением файла ('sync.exe').

While Sleep(5000)
   If Not _IsProcessList($pList) Then
      ConsoleWrite('Run ?'&@CRLF)
   EndIf
WEnd

Func _IsProcessList($_nPID)
   For $_PID In $_nPID
      $iIndex = _ArraySearch(ProcessList(), $_PID, 0, 0, 0, 1)
      If Not @error Then Return $iIndex
   Next
   Return False
EndFunc

PS: 5 параметр функции _ArraySearch - $iCase = 0 - Поиск без учёта регистра

2 IMStrelcov
Чуть-чуть взял идею... Так что :drinks:

Chang · 22 Янв 2022

А про регистр все игнорируют мой вопрос (

All2khoff · 22 Янв 2022

не могу сказать про регистр ничего, у меня никогда не возникало проблемм, но я всегда брал имя процесса из диспетчера задач именно так как там записано.
предлагаю просто в качестве эксперимента. напиши имя процесса ЗаБоРчИкОм и проверь будет ли ловить. ну так ради смеха просто.

---Zak--- · 22 Янв 2022

Chang сказал(а):
А про регистр все игнорируют мой вопрос (

Код:

If ProcessExists("notepad.exe") Then ; проверяет, существует ли процесс
       MsgBox(4096, "Пример", "Блокнот запущен.")
   Else
       MsgBox(4096, "Пример", "Блокнот не запущен.")
   EndIf
Local $iPID = Run("notepad.exe", "", @SW_SHOWMAXIMIZED)
   If ProcessExists("NoTePaD.EXE") Then ;ЗаБоРчИк от Glass4217
       MsgBox(4096, "Пример", "Блокнот запущен.")
   Else
       MsgBox(4096, "Пример", "Блокнот не запущен.")
   EndIf
ProcessClose($iPID)

Исходя из данного примера - ProcessExists не проверяет регистр.

IMStrelcov · 22 Янв 2022

Chang сказал(а):
А про регистр все игнорируют мой вопрос (

На сколько я понимаю, винда не чувствительна к регистру, в отличии от линукса.
По крайней мере пути и имена файлов.

JohnWind · 17 Июл 2022

Доброго времени суток всем...

Столкнулся с проблемой: ProcessExists не видит Microsoft Edge.
Из хелпа по AutoIT взял пример и чуть подправил:

Код:

If ProcessExists("MicrosoftEdge.exe") = 0 Then
        MsgBox(0, 'STATUS', 'Microsoft Edge  - EXIST')
Else
        MsgBox(0, 'STATUS', 'Microsoft Edge  - DOES NOT EXIST')
EndIf

это условие подчерпнул из англо-язычного форума... пробовал прямое имя приложения - msedge.exe
пробовал как отображается процесс в списке (см. скриншот) - Microsoft Edge

тестирование: запускаю скрипт (больше ничего не запущено) - один результат
запускаю сначала Edge - затем скрипт - тот же самый результат.

подскажите плз в чём затык?
заранее спасибо...

=================
фигня какая-то...

запустил скрипт с ProcessList() + сохранил результат в текст-лог-файл

1. запустил Edge + запустил скрипт с ProcessList() =>> 9 записей - msedge.exe
2. выключил Edge + запустил скрипт с ProcessList() =>> 0 записей - msedge.exe

снова запустил Edge + скрипт выше с условием
If ProcessExists("msedge.exe") = 1 Then

результат >> DOES NOT EXIST

=================

кол-во фигни возрастает...
добавил в код переменную: $zzz = ProcessExists("msedge.exe")
и затем в обоих условиях распечатываю её:

Код:

$zzz = ProcessExists("msedge.exe")
If ProcessExists("msedge.exe") = 1 Then
        MsgBox(0, 'STATUS', 'Microsoft Edge  - EXIST')
        MsgBox(0, 'STATUS', $zzz)
Else
        MsgBox(0, 'STATUS', 'Microsoft Edge  - DOES NOT EXIST')
        MsgBox(0, 'STATUS', $zzz)
EndIf

в результате я похоже получаю PID (каждый раз это: 4368, см 2й скриншот) 1го найденного msedge.exe процесса, вместо 1 или 0 как это указанно в хелпе:

Функция ProcessExists
Возвращаемое значение

Значение 1 означает наличие процесса, иначе 0.

========================

по сути я могу играть от значения 0 при ProcessExists - если значение НЕ 0 - значит процесс есть, и далее его можно например удалять...
а если любое другое значение - значит Edge запущен

но вопрос к хелпу - остаётся.

Norm · 17 Июл 2022

Имя процесса у Вас не соответствует указанному

Код:

#include <Array.au3> ; для _ArrayDisplay

; Список всех процессов
$aProcessList = ProcessList("msedge.exe")
_ArrayDisplay($aProcessList, 'Process/PID') ; функция просмотра массивов

If ProcessExists("msedge.exe") Then
    MsgBox(0,Default,"Подтверждение, что роцесс msedge.exe существует")
Endif

JohnWind · 18 Июл 2022

Norm сказал(а):
Имя процесса у Вас не соответствует указанному

Код:

#include <Array.au3> ; для _ArrayDisplay ; Список всех процессов $aProcessList = ProcessList("msedge.exe") _ArrayDisplay($aProcessList, 'Process/PID') ; функция просмотра массивов If ProcessExists("msedge.exe") Then MsgBox(0,Default,"Подтверждение, что роцесс msedge.exe существует") Endif

простите... я видимо не точно выразился:

процесс ЕСТЬ... и он в списке через ProcessList находится...
проблема в том, что согласно хелпу АвтоИТ -

Функция ProcessExists
Возвращаемое значение

Значение 1 означает наличие процесса, иначе 0.

т.е. выглядит как то что это логическая/буленовская функция, которая возвращает:
1 - да - процесс есть
0 - нет - процесса нет

у меня же выходит так:

если Edge НЕ запущен, то возвращается значение 0 - и типа это ок
но если Edge ЗАПУЩЕН - возвращается PID некоторого из процессов Edge, что при проверке на единицу (1 - да процесс есть) выдаёт фейл

и вот тут противоречие....

P.S. я уже воспользовался вариантом проверки на <> 0, что даёт нам понимание того, что процесс есть и запущен.. .и какой именно у него PID в данных условиях не важно, в т.ч. потому, что при ProcessClose ("msedge.exe") убиваются ВСЕ открытые процессы Edge.

Norm · 18 Июл 2022

у меня такого процесса "MicrosoftEdge.exe" нет

JohnWind сказал(а):
и вот тут противоречие....

Возможно Вы используете старую версию Aotoit или справки от него
Посмотрите этот вариант ProcessExists

JohnWind · 18 Июл 2022

Norm сказал(а):
у меня такого процесса "MicrosoftEdge.exe" нет

Возможно Вы используете старую версию Aotoit или справки от него
Посмотрите этот вариант ProcessExists

видимо моя - AutoIt3_2_5_4_ru.chm - версия устарела

а у вас случайно нет под рукой chm свежей версии хелпа? или линки на неё?

Norm · 18 Июл 2022

Вот здесь последняя версия RU

JohnWind · 19 Июл 2022

Norm сказал(а):
Вот здесь последняя версия RU

Ссылки на файлы справки:

Полный комплект справки, зеркало 2014.07.09

похоже там ссылки не рабочие :(

Автор темы	Похожие темы	Форум	Ответы	Дата
S	Всем привет! Вопрос. Где скачать скрипт едитор?	Общение	1	Суббота в 10:10
B	Вопрос по SoundPlay	Общие вопросы по AutoIt	2	1 Дек 2023
O	Вопрос по стилям GUI	Общие вопросы по AutoIt	3	13 Ноя 2023
M	Вопрос по русской кодировке в SciTE	Общие вопросы по AutoIt	4	25 Мар 2023
O	Вопрос по GUICtrlCreateCombo	Общие вопросы по AutoIt	2	26 Июн 2022

Вопрос по ProcessExists

Новичок

Продвинутый

CTPEJIbLLOB

Осваивающий

Вложения

Продвинутый

Новичок

Продвинутый

Новичок

Скриптер

Новичок

Продвинутый

Скриптер

CTPEJIbLLOB

Новичок

Вложения

Продвинутый

Новичок

Вложения

Продвинутый

Новичок

Продвинутый

Новичок