bat-скрипт конечно-же работает в стиле "гротеск", но от этого нисколько не хромает (в отличии например от предложенного Вами vbs'а с внешними библиотеками и всякими костылями)
]]>Можно увидеть полный текст для метода 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» указывать постоянную часть заголовка окна; эта часть должна приходиться либо на начало, либо на конец заголовка окна.
…я так понял это тоже сработает.
Да, коллега YMP просветил меня в этом отношении.
…можно увидеть как будет выглядить скрипт полностью на языке 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.
]]>bat-скрипт конечно-же работает…
Не работает. Наивно полагать, что запуск приложения в реальных условиях будет всегда занимать заданное время.
…в отличии например от предложенного Вами vbs'а с внешними библиотеками и всякими костылями
Обоснуйте, пожалуйста, про «…всякие костыли», коллега.
]]>]]>Теперь запустите простой скрипт (для одного ядра; для двух и более запустите по такому скрипту на каждое ядро, назначив им соответствие в диспетчере задач):
Do
a = 2
LoopПопробуйте теперь запустить Ваш скрипт. Как думаете, насколько удачно он отработает?
]]>]]>это говорит о том что запуск ПО происходит на "пустом" рабочем столе
и зависит от ряда величин в данный конкретный момент времени - загрузки процессора, количества свободной физической памяти (свопирование).
Думаю, НЕ в данном случае:
имено в таком порядке на панели задач (Панель ПУСК, Панель Quick Launch, 3DsMax, PROMT 8, notepad)
это говорит о том что запуск ПО происходит на "пустом" рабочем столе (т.е. когда панель задач ещё пустая), что в конечном итоге говорит нам о том что память свободна.
.]]>AppActivate Method пишет:…but it does not affect whether it is maximized or minimized.
Ну и что? Что в этой фразе такого? Активирует, не меняя макси/минимизированного состояния.
]]>А может, делать в цикле WshShell.AppActivate, пока не вернёт код успеха, а потом уже запускать следующую программу?
Я тоже сразу про это подумал, но отказался из-за:
…but it does not affect whether it is maximized or minimized.
Время запуска "тяжёлого приложения" на отдельно взятой машине почти всегда одинаково.
…и зависит от ряда величин в данный конкретный момент времени — загрузки процессора, количества свободной физической памяти (свопирование).
]]>А может, делать в цикле WshShell.AppActivate
Я как раз об этом сейчас и подумал!
Ваш пост подкрепил мои "опасения".
set wshell=CreateObject ("Wscript.shell")
do UNTIL wshell.Appactivate ("PROMT") = True
wsh.sleep 1000
loop
....
'Запуск следующего приложения
...