boss911 Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код: Set Shell = CreateObject("WScript.Shell") StartupPath = Shell.SpecialFolders("Startup") Set link = Shell.CreateShortcut(StartupPath & "\TEST.lnk") link.Arguments = "" link.Description = "Test Shortcut" link.HotKey = "CTRL+ALT+SHIFT+X" link.IconLocation = "%ProgramFiles%\MyProg\app.exe,0" link.TargetPath = "%ProgramFiles%\MyProg\app.exe" link.WindowStyle = 1 link.WorkingDirectory = "%ProgramFiles%\MyProg " link.Save Всего записей: 3704 | Зарегистр. 29-01-2005 | Отправлено: 03:45 08-09-2012 | Исправлено: boss911, 05:15 08-09-2012

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » Командная строка, батники, сценарии (bat, cmd)

articlebot (21-06-2016 11:40): Следующая часть - Командная строка, батники, сценарии (bat, cmd)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование