6. Работа с окнами сообщений. Получение информации от пользователя. Отображение хода выполнения скрипта

Применение функции MessageBox() и объектной модели InternetExplorer для организации взаимодействия с пользователем: самостоятельная работа

Упражнение 1. Работа с окнами сообщений

Создайте скрипт MessageBox.vbs со следующими параметрами:

1) он должен отображать окно сообщения с текстом "Выберите нужное:". В окне должны присутствовать кнопки Yes, No и Cancel, а также желтый восклицательный знак. В случае, если пользователь не нажал на кнопку, то окно должно находиться на экране 10 секунд;

2) в случае, если пользователь на кнопку "Yes", должна появляться надпись "Yes", если "No" - соответственно "No", если "Cancel" - то надпись "Cancel", если пользователь вообще не нажимал на кнопку, то надпись "Ignored".

Упражнение 2. Нестандартный вывод в скрипте

Создайте скрипт SetupProgress.vbs, который  вначале бы показывал следующую картинку:

Через 10 секунд - другую картинку:

А еще через 10 секунд - третью:

Рисунки изготовьте из подручных средств или возьмите их из каталога \\London\Templates и положите в каталог C:\Templates.

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

Ответ к упражнению 1. Работа с окнами сообщений

Код скрипта MessageBox.vbs может быть таким:

Option Explicit

Dim oShell, nResult

Set oShell = CreateObject("Wscript.Shell")

nResult = oShell.Popup ("Выберите нужное: ", 10, , vbYesNoCancel + vbExclamation)

Select Case nResult

Case vbYes: MsgBox "Yes"

Case vbNo: MsgBox "No"

Case vbCancel: MsgBox "Cancel"

Case -1: MsgBox "Ignored"

End Select

Ответ к упражению 2. Нестандартный вывод в скрипте

Код скрипта SetupProgress.vbs может выглядеть так:

Dim oExpl

Set oExpl = CreateObject("InternetExplorer.Application")

oExpl.Navigate "file://C:\Templates\Begin.jpg"

oExpl.FullScreen = True

oExpl.Visible= True

WScript.Sleep 10000

oExpl.Navigate "file://C:\Templates\Process.jpg"

WScript.Sleep 10000

oExpl.Navigate "file://C:\Templates\End.jpg"

WScript.Sleep 10000

oExpl.Quit

Получить учебные материалы по этому курсу