Андрей Попов - Windows Script Host для Windows 2000/XP

//Инициализируем константы для диалоговых окон

var vbOkCancel=1,vbOk=1;

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

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

Text="Пример вывода строк в диалоговое\nокно WScript";

Title="Заголовок"

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

Res=WshShell.Popup(Text,0,Title,vbOkCancel);

// Определяем, какая из кнопок была нажата в диалоговом окне

if (Res==vbOk) WshShell.Popup("Нажата кнопка OK");

else WshShell.Popup("Нажата кнопка Отмена");

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

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

' Имя: Popup.vbs

' Язык: VBcript

' Описание: Пример использования метода WshShell.Popup

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

Option Explicit

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

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

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

Text="Пример вывода строк в диалоговое" & vbCrLf & "окно WScript"

Title="Заголовок"

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

Res=WshShell.Popup(Text,0,Title,vbOkCancel)

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

If (Res=vbOk) Then

WshShell.Popup "Нажата кнопка OK"

Else

WshShell.Popup "Нажата кнопка Отмена"

End If

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

Главным отличием метода Popupот функции MsgBoxявляется наличие параметра nSecToWait , задающего время (в секундах), по истечении которого диалоговое окно будет автоматически закрыто. Если этот параметр равен нулю, как в приведенных выше примерах, то окно будет закрыто только после нажатия какой-либо кнопки в нем.

Для организации в сценариях диалога с пользователем необходимо уметь принимать вводимые с клавиатуры строки текста. В консольном и графическом режимах ввод информации осуществляется по-разному: при запуске сценария с помощью cscript.exe мы имеем доступ к стандартному входному потоку StdOut, при использовании wscript.exe можно применять функцию InputBoxязыка VBScript.

Самый простой способ ввести строку в консольном режиме предоставляет метод WScript.StdIn.ReadLine, при использовании этого метода ввод завершается нажатием клавиши .

Отметим, что при использовании стандартного входного потока WScript.StdInв Windows ХР (по крайней мере в той версии, которой пользовался автор) возникает проблема, связанная с кодировкой символов кириллицы. Дело в том, что метод WScript.StdIn.ReadLineвозвращает строку в DOS-кодировке, а для вывода на экран с помощью методов WScript.StdOut.WriteLineили WScript.Echoстрока должна быть в Windows-кодировке (в предыдущих версиях Windows метод WScript.StdOut.WriteLineтребовал строку в DOS-кодировке). Поэтому для корректного отображения символов кириллицы на экране приходится применять дополнительные функции конвертации из DOS- в Windows-кодировку. Стандартных методов или функций, предназначенных для этой цели, в языках JScript и VBScript нет, поэтому такие функции следует написать самостоятельно.

Рассмотрим сначала написанную на JScript функцию конвертации DosToWin из листинга 2.14:

function DosToWin(s) {

var i,ss; //Объявляем переменные

//Проверяем, создан ли объект RusDict

if (typeof(RusDict)=="undefined")

//Если объект RusDict не создан, создаем его

MakeRusDict();

ss="";

for (i=0;i

if (RusDict.Exists(s.charAt(i))) //Проверяем наличие символа в словаре

//Преобразуем i-й символ в Windows-кодировку

ss+=RusDict.Item(s.charAt(i));

else ss+=s.charAt(i);

}

return ss;

}

Как мы видим, эта функция преобразует переданную в качестве параметра строку следующим образом: все символы кириллицы в этой строке переводятся в Windows-кодировку, остальные символы остаются без изменений. Основным в функций DosToWinявляется использование объекта Dictionary(аналог ассоциативного массива) с именем RusDict. Этот объект формируется в функции MakeRusDictи содержит пары "ключ"–"значение" для всех букв русского алфавита, причем в качестве ключа указывается буква в DOS-кодировке, а в качестве значения — символ с кодом, который соответствует этой букве в Windows-кодировке: