Создание ярлыков

4.4. Создание ярлыков

Для создания ярлыков используется метод CreateShortcut

Синтаксис:

object.CreateShortcut(strPathname)

где

object - объект WshShell

strPathname - имя и полный путь к ресурсу, для которого создается ярлык (например, это может быть файл, интернет-адрес и т.д.).

Для демонстрации метода CreateShortcut создадим на нашем рабочем столе ярлык блокнота.

В самом процессе создания ярлыка можно выделить несколько этапов:

        1. Собственно создание ярлыка.
        2. Установка его свойств.
        3. Сохранения ярлыка с установленными свойствами

Начнем с первого пункта создадим ярлык на рабочем столе

VBScript:

Dim WshShell, DesktopPath, Nshortcut

    ‘Создаем объект WshShell:
     Set WshShell = CreateObject(“WScript.Shell”)

     ‘получаем путь к нашему рабочему столу:
     DesktopPath = WshShell.SpecialFolders(“Desktop”)

    ‘создаем ярлык:
    Set NShortcut = WshShell.CreateShortcut(DesktopPath & “\Блокнот.lnk”)

         JScript:

     //Создаем объект WshShell:
    var WshShell = new ActiveXObject(“WScript.Shell”);

    //получаем путь к нашему рабочему столу:
     var DesktopPath = WshShell.SpecialFolders(“Desktop”);

    //создаем ярлык:
    var NShortcut = WshShell.CreateShortcut(DesktopPath + “\\Блокнот.lnk”);

         На втором этапе мы должны установить следующие свойства ярлыка, такие как:

         TargetPath – имя ресурса на который ссылается ярлык.

         WindowStyle – стиль запускаемого окна.

         Может принимать следующие значения:

         1 – открыть как обычное окно;
         3 – раскрыть на весь экран;
         7 – запустить в свернутом виде.

         HotKey – устанавливает клавиши быстрого вызова

         IconLocation – расположение иконки ярлыка

         Description – всплывающая подсказка (комментарий)

         WorkingDirectory – устанавливает рабочий каталог

         И, на самом последнем этапе создания ярлыка, мы сохраняем установленные свойства и сам ярлык методом Save.

     Таким образом, наш сценарий полностью будет иметь следующий вид:

             VBScript:

     Dim WshShell, DesktopPath, Nshortcut

     ‘Создаем объект WshShell:
     Set WshShell = CreateObject(“WScript.Shell”)

    ‘получаем путь к нашему рабочему столу:
     DesktopPath = WshShell.SpecialFolders(“Desktop”)

    ‘создаем ярлык:
     Set NShortcut = WshShell.CreateShortcut(DesktopPath & “\Блокнот.lnk”)

    'С помощью функции API "%windir%" получаем путь к папке
    'WINDOWS и Блокноту и помещаем полученный путь в   'TargetPath:
     NShortcut.TargetPath = "%windir%\notepad.exe"

    'Устанавливаем обычный стиль окна:
    NShortcut.WindowStyle = 1

    'Клавиши быстрого вызова:
    NShortcut.Hotkey = "CTRL+ALT+f"

    'Путь к файлу иконки:
    NShortcut.IconLocation = "notepad.exe, 0"

    'Устанавливаем всплывающую подсказку:
    NShortcut.Description = "Ярлык блокнота"

    'Устанавливаем в качестве рабочей папки - Рабочий стол:
    NShortcut.WorkingDirectory = DesktopPath

    'Сохраняем настройки и сам ярлык:
    NShortcut.Save

         JScript:

    //Создаем объект WshShell:
     var WshShell = new ActiveXObject(“WScript.Shell”);

    //получаем путь к нашему рабочему столу:
     DesktopPath = WshShell.SpecialFolders(“Desktop”);

     //создаем ярлык:
     var NShortcut = WshShell.CreateShortcut(DesktopPath +
     “\\Блокнот.lnk”);

    //С помощью функции API "%windir%" получаем путь к папке
    //WINDOWS и Блокноту и помещаем полученный путь в
    //TargetPath:
     NShortcut.TargetPath = "%windir%\\notepad.exe" ;

    //Устанавливаем обычный стиль окна:
    NShortcut.WindowStyle = 1;

    //Клавиши быстрого вызова:
    NShortcut.Hotkey = "CTRL+ALT+f" ;

    //Путь к файлу иконки:
    NShortcut.IconLocation = "notepad.exe, 0" ;

    //Устанавливаем всплывающую подсказку:
    NShortcut.Description = "Ярлык блокнота" ;

    //Устанавливаем в качестве рабочей папки - Рабочий стол:
    NShortcut.WorkingDirectory = DesktopPath;

    //Сохраняем настройки и сам ярлык:
    NShortcut.Save();

        Кроме ярлыков к локальным ресурсам можно создавать ярлыки Интернета. Создадим ярлык адреса компании Microsoft.

         VBScript:

    Dim WshShell, UrlLink
    Set WshShell = WScript.CreateObject("WScript.Shell")
    Set UrlLink = WshShell.CreateShortcut("Microsoft.URL")
    UrlLink.TargetPath = "http://www.microsoft.com"
    UrlLink.Save

        JScript:

    var WshShell = WScript.CreateObject("WScript.Shell");
    var UrlLink = WshShell.CreateShortcut("Micrisoft.URL");
    UrlLink.TargetPath = "http://www.microsoft.com";
    UrlLink.Save();

Назад по тексту | Содержание | Вперед по тексту

О проекте | История | E-mail

Copyright (C) 2000 - 2001 Alex Neverov

#bn { DISPLAY: block } #bt { DISPLAY: block }

Содержание раздела