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

        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 }


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

---

---