[Автоматизация] Проверка Запущен ли процесс, и его запуск

[Dzot]

Необходимо узнать запущен ли процесс ( использую ProcessExists("qip.exe") )
Если не запущен - запустить.
Если запущен - продолжить выполнение скрипта.
Вот что имею:

HotKeySet("^!x", "MyExit")
$superpass = '***'
While 1
    $i  = InputBox('Super script', 'Введите пароль', '', '*')
    If StringCompare($i, $superpass) = 0 Then
        MsgBox(0, '', 'Пароль верен ---> Run.')
        ExitLoop
    Else
		Exit
    EndIf
WEnd

If ProcessExists("qip.exe") Then
   Run ( "E:\My Folder\проги\Qip\qip.exe", "@SW_HIDE" )
   WinWait ( "QIP - Спокойное общение!")
   WinActivate ( "QIP - Спокойное общение!")
   WinWaitActive ( "QIP - Спокойное общение!")
   Send ( "+{TAB}" )
   Send ( "***" )
   Send ( "{TAB}" )
   Send ( "***" )
   Send ( "{ENTER}" )
EndIf

If ProcessExists("magent.exe") Then
   Run ( "E:\My Folder\проги\MailAgent\magent.exe", "@SW_HIDE" )
   WinWait ( "Авторизация пользователя" )
   WinActivate ( "Авторизация пользователя" )
   WinWaitActive ( "Авторизация пользователя" )
   Send ( "+{TAB 2}" )
   Send ( "***" )
   Send ( "{TAB  2}" )
   Send ( "***" )
   Send ( "{ENTER}" )
EndIf

If ProcessExists("Skype.exe") Then
   Run ( "C:\Program Files\Skype\Phone\Skype.exe", "@SW_HIDE" )
   WinWait ( "Skype" )
   WinActivate ( "Skype" )
   WinWaitActive ( "Skype" )
   Send ( "***" )
   Send ( "{TAB}" )
   Send ( "***" )
   Send ( "{ENTER}" )
EndIf

Func MyExit()
    Exit 
EndFunc

Но Выполнение идет если приложение уже запущено. Как сделать правильно - не понял. В английском не силен - иностранные справки не катят. В русской толком не написано.

Подтолкните в нужную сторону пожалуста. Заранее благодарен.

 

[Yuri]

Примерчик:

If ProcessExists("qip.exe") Then
    MsgBox(64, "Инфо", "Qip уже запущен")
Else
	MsgBox(48, "Инфо", "Qip не запущен")

EndIf


Добавлено:

Сообщение автоматически объединено: 12 Фев 2010

Конкретнее:

If ProcessExists("qip.exe") Then
        MsgBox(64, "Инфо", "Qip уже запущен")
Else
	Run ( "E:\My Folder\проги\Qip\qip.exe", "@SW_HIDE" )
EndIf

 

[Dzot]

If ProcessExists("qip.exe") Then
        MsgBox(64, "Инфо", "Qip уже запущен")
       ;Сообщение выводить не надо. Нужно перейти к следующиму куски скрипте - к запуску агента
Else
   Run ( "E:\My Folder\проги\Qip\qip.exe", "@SW_HIDE" )
EndIf

Что мне прописать вместо MsgBox? если оставить пустое место - скрипт тупо зависает на этом участке.
Думаю как вариант сунуть туда запуск агента, а в агенте туда сунуть скайп и тд... Но что то не нравиться мне такая многоступенчатость

 

[Yuri]

Примерчик:

If ProcessExists("qip.exe") Then
	Call("Agent")
EndIf

Func Agent()
    MsgBox(64, "Агент", "Типа Агент запустился")
EndFunc

Добавлено:

Сообщение автоматически объединено: 12 Фев 2010

Извини, но не понял пока как подсветку кода тут делать.
Конкретнее:

If ProcessExists("qip.exe") Then
	Call("Agent")
EndIf

Func Agent()
	Run ( "E:\My Folder\проги\MailAgent\magent.exe", "@SW_HIDE" )
   WinWait ( "Авторизация пользователя" )
   WinActivate ( "Авторизация пользователя" )
   WinWaitActive ( "Авторизация пользователя" )
   Send ( "+{TAB 2}" )
   Send ( "***" )
   Send ( "{TAB  2}" )
   Send ( "***" )
   Send ( "{ENTER}" )
EndFunc

 

[TheBloodTear]

Вот выдержка из старой русской справки:

Спойлер

ProcessExists ( "process")

Возвращаемое значение:
Значение 1 означает наличие процесса, иначе 0.

Сейчас возвращается PID процесса, но он тоже не может быть 0 ;)..

Поэтому:

If ProcessExists("qip.exe") = 0 Then
   ;запускай кип..
EndIf

 

[Dzot]

If ProcessExists("qip.exe") = 0 Then
   ;запускай кип..
EndIf

скрипт тупо зависает
А все. разобрался. Спасибо )

 

[madmasles]

If Not ProcessExists("proga.exe") Then
	Run("proga.exe")
EndIf

Так тоже можно.

 

[CreatoR]

Yuri [?]

как подсветку кода тут делать

Тег autoit на панели кодов (над формой ответа).

Dzot [?]

При запуске скрипта вылезает ошибка

Какая?

 

[kaster]

OffTopic:
какие-то зубодробительные скрипты вы пишете, ребята :D

Добавлено:

Сообщение автоматически объединено: 12 Фев 2010

http://autoit-script.ru/index.php?topic=1128.0