Запуск приложений Windows

WSH как средство взаимодействия с внешними программами

WSH как средство взаимодействия с внешними программами

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

Запуск приложений Windows

Из сценария WSH запустить другое приложение можно с помощью методов Run или Exec объекта WshShell.

При использовании метода Run для запускаемого приложения можно задать тип окна (при условии, что приложение поддерживает этот тип). Например, в результате выполнения следующих двух строк VBScript-кода:

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run "notepad",3

программа Блокнот (notepad.exe) будет запущена в максимизированном (развернутом на весь экран) окне.

Замечание

Метод Run всегда создает новый экземпляр запускаемого процесса, с его помощью нельзя ни повторно активизировать окно запущенного приложения (для этого используется метод AppActivate ), ни свернуть или развернуть его.

Другим вариантом запуска из сценария приложения Windows, является применение метода Exec. Этод метод запускает приложение, путь к которому указан как параметр метода, и возвращает объект WshScriptExec. Например:

Set WshShell = WScript.CreateObject("WScript.Shell")

Set theNotepad = WshShell.Exec("notepad")

Замечание

При подобном запуске приложения, в отличие от метода Run, нельзя задать тип окна.

Объект WshScriptExec позволяет контролировать ход выполнения запущенного приложения с помощью свойства Status — если Statusравен 0, то приложение выполняется, если Status равен 1, то приложение завершено. Кроме этого, используя метод Terminate, можно принудительно завершить работу того приложения, которому соответствует объект WshScriptExec.

В листинге 7.1 приведен сценарий на языке VBScipt, в котором с помощью метода Exec запускается Блокнот (notepad.exe); ссылка на соответствующий объект WshScriptExec сохраняется в переменной theNotepad:

Set theNotepad = WshShell.Exec("notepad")

После этого выполнение сценария приостанавливается на 1 секунду (пауза необходима, для того чтобы окно Блокнота успело появиться на экране), после чего выводится диалоговое окно с информацией о статусе запущенного приложения и вопросом о необходимости закрытия Блокнота. В случае утвердительного ответа происходит закрытие Блокнота с помощью метода Terminate.

'*******************************************************************

' Имя: ExecWinApp.vbs

' Язык: VBScript

' Описание: Запуск и закрытие приложение (объект WshScriptExec)

'*******************************************************************

Option Explicit

Dim WshShell,theNotepad,Res,Text,Title ' Объявляем переменные

' Создаем объект WshShell

Set WshShell = WScript.CreateObject("WScript.Shell")

WScript.Echo "Запускаем Блокнот"

' Запускаем приложение (создаем объект WshScriptExec)

Set theNotepad = WshShell.Exec("notepad")

WScript.Sleep 500 ' Приостанавливаем выполнение сценария

Text="Блокнот запущен (Status=" & theNotepad.Status & ")" & vbCrLf _

& "Закрыть Блокнот?"

Title=""

' Выводим диалоговое окно на экран

Res=WshShell.Popup(Text,0,Title,vbQuestion+vbYesNo)

' Определяем, какая кнопка нажата в диалоговом окне

If Res=vbYes Then

theNotepad.Terminate ' Прерываем работу Блокнота

' Приостанавливаем выполнение сценария, для того чтобы Блокнот

' успел закрыться

WScript.Sleep 100

WScript.Echo "Блокнот закрыт (Status=" & theNotepad.Status & ")"

End If

'************* Конец *********************************************/

Листинг 7.1. Запуск и принудительное закрытие приложения (VBScript)