Индикация работы/окончания скрипта vbs

RomaS · 14 янв 2010, 08:12

Собственно, вопрос...

Подскажите код для отображения работы скрипта ну чтобы на экране окошко какое висело пока скрипт работает, или прогресс-бар какой бегал, или по окончанию работы показывалось сообщение, которое бы само исчезало через пару секунд.

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

вот копирование:

Код: Выделить всё

Const FOF_CREATEPROGRESSDLG = &H0&

strTargetFolder = "C:\в" 

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strTargetFolder) 

objFolder.CopyHere "C:\из\*.*", FOF_CREATEPROGRESSDLG

RomaS · 14 янв 2010, 08:23

Вот стоит только попросить о помощи - тут же находится ответ...

Вот что нашел для самозакрывающегося сообщения:

Код: Выделить всё

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

Вопрос по индикации во время работы еще в силе!
Вот переделал для всплывающего сообщения:

Код: Выделить всё

Dim oShell, nResult
Set oShell = CreateObject("Wscript.Shell")
nResult = oShell.Popup ("Настройка Вашего компьютера окончена! Можете начинать работу.", 5,"Заголовок" , vbInformation)

Aent · 16 янв 2010, 21:10

RomaS · 21 янв 2010, 17:25

Вот спасибо преогромное!
Выбрал с ИЕ. правда, надо разрешить "сценарии для элемента управления обозревателя"