Чтение онлайн

на главную - закладки

Жанры

Windows Script Host для Windows 2000/XP

Попов Андрей Викторович

Шрифт:

s+="Desktop:\t"+WshFldrs("Desktop")+"\n";

s+="Favorites:\t"+WshFldrs("Favorites")+"\n";

s+="Programs:\t"+WshFldrs("Programs");

WScript.Echo(s); //Выводим сформированные строки на экран

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

Реализация того же сценария на языке VBScript приведена в листинге 2.41.

Листинг 2.41. Доступ к определенным специальным папкам (VBScript)

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

'
Имя: SpecFold2.vbs

' Язык: VBScript

' Описание: Вывод названий заданных специальных папок Windows

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

Option Explicit

Dim WshShell, WshFldrs, s ' Объявляем переменные

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

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

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

Set WshFldrs = WshShell.SpecialFolders

' Формируем строки с путями к конкретным специальным папкам

s="Некоторые специальные папки:" & vbCrLf & vbCrLf

s=s+"Desktop:"+WshFldrs("Desktop") & vbCrLf

s=s+"Favorites:"+WshFldrs("Favorites") & vbCrLf

s=s+"Programs:"+WshFldrs("Programs")

WScript.Echo s ' Выводим сформированные строки на экран

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

Создание ярлыков в специальных папках

Для того чтобы из сценария создать ярлык в специальной папке (рабочий стол, меню Пуск (Start) и т.п.) или изменить свойства уже существующего ярлыка, необходимо:

1. Используя коллекцию

WshSpecialFolders
, узнать путь к нужной специальной папке.

2. С помощью метода

CreateShortcut
объекта
WshShell
создать объект
WshShortcut
(
WshUrlShortcut
) для связи с ярлыком в этой папке.

3. Задать или изменить свойства ярлыка с помощью соответствующих методов объекта

WshShortcut
(
WshUrlShortcut
).

4. Сохранить ярлык с помощью метода Save объекта WshShortcut (WshUrlShortcut).

Объект

WshShortcut
предоставляет доступ к следующим свойствам ярлыков (рис. 2.17):

Объект (Target);

Рабочая папка (Start in);

Быстрый вызов (Shortcut key);

Окно (Run);

Комментарий (Comment).

Кроме этого, с помощью объекта

WshShortcut
можно сменить значок, который соответствует ярлыку.

Рис. 2.17.

Свойства ярлыка в Windows ХР

Остальных свойств, имеющихся у ярлыков в Windows ХР, объект

WshShortcut
не поддерживает (например, нельзя установить или сбросить флажок, позволяющий запускать процесс в отдельном адресном пространстве или под другой учетной записью пользователя).

В качестве примера ниже приведен сценарий Shortcut.js (листинг 2.42), в котором создается ярлык "Мой ярлык.lnk" на Блокнот (notepad.exe), причем этот ярлык может быть сохранен либо в меню Программы (Programs) работающего пользователя, либо на его рабочем столе. Выбор специальной папки в сценарии производится с помощью диалогового окна, которое создается методом

Popup
объекта
WshShell
(рис. 2.18).

Рис. 2.18. Диалоговое окно для выбора специальной папки

Рис. 2.10. Свойства ярлыка "Мой ярлык.lnk"

Для создаваемого ярлыка выбирается значок из файла Shell32.dll, находящегося в подкаталоге System каталога Windows (в Windows 95/98 этот файл находится в подкаталоге System), назначается комбинация горячих клавиш <Ctrl>+<Alt>+<N> и устанавливается максимизированный тип окна (рис. 2.19).

Листинг 2.42. Доступ к определенным специальным папкам (JScript)

/*****************************************************************/

/* Имя: Shortcut.js */

/* Язык: JScript */

/* Описание: Создание ярлыков в специальных папках */

/*****************************************************************/

//Объявляем переменные

var WshShell,MyShortcut,PathTarg,PathIcon,Res,PathShortcut;

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

var vbYesNo=4,vbQuestion=32,vbYes=6;

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

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

//Выводим запрос для выбора папки, в которой будет создан ярлык

Res=WshShell.Popup("Где создать ярлык?\nДа - на рабочем столе\nНет - в меню Программы",0,

 "Работа с ярлыками",vbQuestion+vbYesNo);

if (Res==vbYes) //Нажата кнопка Да

Поделиться:
Популярные книги

Егерь. Столичный гамбит

Скиба Николай
4. Зверолов
Фантастика:
рпг
уся
фэнтези
фантастика: прочее
попаданцы
6.67
рейтинг книги
Егерь. Столичный гамбит

Чёрная вдова

Безуглов Анатолий Алексеевич
5.00
рейтинг книги
Чёрная вдова

Ночная музыка

Мойес Джоджо
Любовные романы:
современные любовные романы
8.64
рейтинг книги
Ночная музыка

Спецоперации. Лубянка и Кремль 1930–1950 годы

Судоплатов Павел Анатольевич
Документальная литература:
биографии и мемуары
5.00
рейтинг книги
Спецоперации. Лубянка и Кремль 1930–1950 годы

Лекарь Империи 2

Карелин Сергей Витальевич
2. Лекарь Империи
Фантастика:
городское фэнтези
аниме
дорама
фэнтези
попаданцы
5.80
рейтинг книги
Лекарь Империи 2

Вода в доме и на участке

Гальперина Галина Анатольевна
3. Домашний мастер
Дом и Семья:
прочее домоводство
6.25
рейтинг книги
Вода в доме и на участке

Человек-землетрясение

Конзалик Хайнц
Приключения:
прочие приключения
5.00
рейтинг книги
Человек-землетрясение

Долг

Кораблев Родион
7. Другая сторона
Фантастика:
боевая фантастика
5.60
рейтинг книги
Долг

Потомок бога 3

Решетов Евгений Валерьевич
3. Локки
Фантастика:
аниме
фэнтези
5.00
рейтинг книги
Потомок бога 3

Я все еще не царь. Книга XXVI

Дрейк Сириус
26. Дорогой барон!
Фантастика:
попаданцы
аниме
5.00
рейтинг книги
Я все еще не царь. Книга XXVI

Охота на сверхчеловека

Казаков Дмитрий Львович
2. Высшая раса
Фантастика:
альтернативная история
5.10
рейтинг книги
Охота на сверхчеловека

В боях за Поднебесную. Русский след в Китае

Окороков Александр Васильевич
Военные тайны XX века
Научно-образовательная:
военная история
5.00
рейтинг книги
В боях за Поднебесную. Русский след в Китае

Опыты

Монтень Мишель
Научно-образовательная:
философия
7.43
рейтинг книги
Опыты

Собрание пьес. Книга 1

Сологуб Фёдор Кузьмич
Драматургия:
драма
5.00
рейтинг книги
Собрание пьес. Книга 1