Windows Script Host для Windows 2000/XP

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

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

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

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

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

Листинг 2.13. Создание диалогового окна с помощью метода Popup (VBScript)

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

' Имя: 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;

}