Серый форум — CMD/BAT: Запуск 3 программ

Re: CMD/BAT: Запуск 3 программ

null@example.com (0meg@) — Wed, 10 Nov 2010 03:11:09 +0000

Большое спасибо всем за помощь, скрипт работает.

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Sun, 07 Nov 2010 09:17:06 +0000

0meg@ пишет:

Можно увидеть полный текст для метода WshShell.AppActivate, …

Примерно так:

Option Explicit

RunWaitWindow "C:\Program Files\Microsoft Office\OFFICE11\winword.exe", "Microsoft Word"
RunWaitWindow "C:\Program Files\Microsoft Office\OFFICE11\excel.exe", "Microsoft Excel"
RunWaitWindow "C:\Windows\System32\notepad.exe", "Блокнот"

WScript.Quit 0
'=============================================================================

'=============================================================================
Sub RunWaitWindow(strApp, strWindowTitle)
    With WScript.CreateObject("WScript.Shell")
        If .Run("""" & strApp & """", 1) = 0 Then
            Do 
                WScript.Sleep 100
            Loop Until .AppActivate(strWindowTitle)
        Else
            WScript.Echo "Приложение «" & strApp & "» не удалось запустить"
        End If
    End With
End Sub
'=============================================================================

Вторым параметром в «RunWaitWindow» указывать постоянную часть заголовка окна; эта часть должна приходиться либо на начало, либо на конец заголовка окна.

0meg@ пишет:

…я так понял это тоже сработает.

Да, коллега YMP просветил меня в этом отношении.

0meg@ пишет:

…можно увидеть как будет выглядить скрипт полностью на языке AutoIt?

Почти без изменений:

AutoItSetOption("MustDeclareVars", 1)

If RunWaitWindow("C:\Program Files\Microsoft Office\OFFICE11\winword.exe", @MyDocumentsDir, "[CLASS:OpusApp]", 30) Then
    If RunWaitWindow("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", @MyDocumentsDir, "[CLASS:XLMAIN]", 30) Then
        If RunWaitWindow("C:\Windows\System32\notepad.exe", "E:\Песочница", "[CLASS:Notepad]", 10) Then
            ConsoleWrite("Все приложения запущены успешно" & @CRLF)
        EndIf
    EndIf
EndIf

Exit(0)
;=============================================================================

;=============================================================================
Func RunWaitWindow($sApp, $sWorkingDir, $sWindowTitle, $iWaitInterval)
    Local $bResult = False

    If Run("""" & $sApp & """", $sWorkingDir, @SW_SHOW) <> 0 Then
        If WinWait($sWindowTitle, "" , $iWaitInterval) <> 0 Then
            $bResult = True
        Else
            ConsoleWriteError("Окно «" & $sWindowTitle & "» не найдено" & @CRLF)
        EndIf
    Else
        ConsoleWriteError("Приложение «" & $sApp & "» не удалось запустить" & @CRLF)
    EndIf

    Return $bResult
EndFunc
;=============================================================================

Разве что «WinWait()» при успехе возвращает не просто «1», а хэндл окна.

Это достаточно просто. А вот ежели нужно будет запускать и отслеживать появление окон именно запускаемых экземпляров приложений (например, запускаем «Блокнот», а у нас уже есть несколько запущенных «Блокнотов»), тогда только AutoItX/AutoIt/PoSH.

Re: CMD/BAT: Запуск 3 программ

null@example.com (0meg@) — Sun, 07 Nov 2010 05:07:33 +0000

Можно увидеть полный текст для метода WshShell.AppActivate, я так понял это тоже сработает.
3 программы действительно будут запускаться на "свободной\пустой" машине, без других приложений, о задержке при вызове я тоже думал, но конечно если бы можно было бы все сделать правильно и запускать программы поочередно как сейчас через AutoIT, но в рамках одного языка скажем VBS + WSH было бы лучше. Кстати если не трудно можно увидеть как будет выглядить скрипт полностью на языке AutoIt?

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Fri, 05 Nov 2010 07:10:36 +0000

Аскет пишет:

bat-скрипт конечно-же работает…

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

Аскет пишет:

…в отличии например от предложенного Вами vbs'а с внешними библиотеками и всякими костылями

Обоснуйте, пожалуйста, про «…всякие костыли», коллега.

Re: CMD/BAT: Запуск 3 программ

null@example.com (Аскет) — Thu, 04 Nov 2010 16:37:59 +0000

Уже и ошибка где-то появилась?
bat-скрипт конечно-же работает в стиле "гротеск", но от этого нисколько не хромает (в отличии например от предложенного Вами vbs'а с внешними библиотеками и всякими костылями)

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Thu, 04 Nov 2010 08:28:18 +0000

Это теперь так называется отсутствие аргументов и нежелание признать свою ошибку?

Re: CMD/BAT: Запуск 3 программ

null@example.com (Аскет) — Thu, 04 Nov 2010 01:12:11 +0000

Помоему, уже пошла откровенная демагогия.

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Wed, 03 Nov 2010 10:59:21 +0000

Замерьте время, тщательнейшим образом всё рассчитайте, сделайте Ваш скрипт. Запустите. Всё работает.

Теперь запустите простой скрипт (для одного ядра; для двух и более запустите по такому скрипту на каждое ядро, назначив им соответствие в диспетчере задач):

Do
    a = 2
Loop

Попробуйте теперь запустить Ваш скрипт. Как думаете, насколько удачно он отработает?

Re: CMD/BAT: Запуск 3 программ

null@example.com (Аскет) — Wed, 03 Nov 2010 10:52:05 +0000

это говорит о том что запуск ПО происходит на "пустом" рабочем столе

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Wed, 03 Nov 2010 08:58:27 +0000

Это ни о чём не говорит.

Re: CMD/BAT: Запуск 3 программ

null@example.com (Аскет) — Wed, 03 Nov 2010 08:53:20 +0000

alexii пишет:

и зависит от ряда величин в данный конкретный момент времени - загрузки процессора, количества свободной физической памяти (свопирование).

Думаю, НЕ в данном случае:

имено в таком порядке на панели задач (Панель ПУСК, Панель Quick Launch, 3DsMax, PROMT 8, notepad)

это говорит о том что запуск ПО происходит на "пустом" рабочем столе (т.е. когда панель задач ещё пустая), что в конечном итоге говорит нам о том что память свободна.

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Tue, 02 Nov 2010 12:29:59 +0000

Значит, меня подвело опять знание иностранного языка .

Re: CMD/BAT: Запуск 3 программ

null@example.com (YMP) — Tue, 02 Nov 2010 12:11:35 +0000

alexii пишет:

AppActivate Method пишет:
…but it does not affect whether it is maximized or minimized.

Ну и что? Что в этой фразе такого? Активирует, не меняя макси/минимизированного состояния.

Re: CMD/BAT: Запуск 3 программ

null@example.com (alexii) — Tue, 02 Nov 2010 11:58:02 +0000

YMP пишет:

А может, делать в цикле WshShell.AppActivate, пока не вернёт код успеха, а потом уже запускать следующую программу?

Я тоже сразу про это подумал, но отказался из-за:

AppActivate Method пишет:

…but it does not affect whether it is maximized or minimized.

Аскет пишет:

Время запуска "тяжёлого приложения" на отдельно взятой машине почти всегда одинаково.

…и зависит от ряда величин в данный конкретный момент времени — загрузки процессора, количества свободной физической памяти (свопирование).

Re: CMD/BAT: Запуск 3 программ

null@example.com (Аскет) — Tue, 02 Nov 2010 11:23:35 +0000

YMP пишет:

А может, делать в цикле WshShell.AppActivate

Я как раз об этом сейчас и подумал!
Ваш пост подкрепил мои "опасения".

set wshell=CreateObject ("Wscript.shell")
do UNTIL wshell.Appactivate ("PROMT") = True
 wsh.sleep 1000
loop
....
'Запуск следующего приложения
...