Visual Basic Script




√лава 4_4_ —оздание €рлыков - часть 3


 
    Сполучаем путь к нашему рабочему столу:
     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" ;




—одержание  Ќазад  ¬перед