1

Тема: VBScript: Запуск процесса с возможностью его остановки из скрипта

Уважаемые Знатоки, не могли бы Вы помочь написать vbs скрипт, который бы запускал на воспроизведение аудиофайл проигрывателем (например light alloy) и выдавал mesagebox c некоторым текстом и кнопкой "Отмена", при нажатии на которую производилось закрытие плеера. А если кнопка не нажималась, то этот mesagebox исчез бы сам после закрытия плеера вручную.

2 (изменено: cambit, 2011-01-31 19:26:19)

Re: VBScript: Запуск процесса с возможностью его остановки из скрипта

Похоже я что-то не так написал... или не понятно изложил...
Давайте разобъем задачу на части. Как запустить файл я уже разобрался.
1. Теперь надо вывести сообщение с кнопкой "отмена" и некоторым текстом в заглавии (Напрмер "ВОСПРОИЗВЕДЕНИЕ")
2. В случае нажатия кнопки "Отмена" нужно завершить процесс проигрывателя.

3

Re: VBScript: Запуск процесса с возможностью его остановки из скрипта

1)

Dim objWS, iRetMsg

Set objWS = CreateObject("WScript.Shell")
iRetMsg = objWS.Popup("Текст сообщения", 2, "Текст заголовка", vbOKCancel Or vbInformation)

Select Case iRetMsg
    Case -1: 'Ваши действия при таймауте
    Case vbOk: 'Ваши действия
    Case vbCancel: 'Ваши действия
End Select

4

Re: VBScript: Запуск процесса с возможностью его остановки из скрипта

2)

Dim objWS, objWSExec

Set objWS = CreateObject("WScript.Shell")
Set objWSExec = objWS.Exec("calc.exe")

MsgBox "Пауза"

objWSExec.Terminate 'Убиваем задачу

MsgBox "Выход"

5

Re: VBScript: Запуск процесса с возможностью его остановки из скрипта

Спасибо за помощь, но не могли бы Вы немного разъяснить работу вот этой записи:
"vbOKCancel Or vbInformation"

6

Re: VBScript: Запуск процесса с возможностью его остановки из скрипта

Это числовые константы. Они указывают как именно отображать окно сообщения. В моём примере есть две кнопки "ОК" и "Отмена" в сообщении, а также использовать значок с восклицательным знаком. Оператор "Or" - служит для логического суммирования констант, но можно написать было вот так: "64 + 1"
Метод Popup