Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Создание ярлыка с помощью VBS

Ответить
Настройки темы
VBS/WSH/JS - [решено] Создание ярлыка с помощью VBS

Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256


Конфигурация

Профиль | Отправить PM | Цитировать


Подскажите пожалуйста скрипт который будет создавать закрепленный ярлык на панели задач.....Очень надо. Или какой-нибудь другой способ данного действия.

Отправлено: 23:29, 30-01-2014

 

Новый участник


Сообщения: 23
Благодарности: 6

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
судя по всему скрипт не понимает переменную %InstallPatch% »
Дело в том, что скрипту в качестве параметра не передаются переменные окружения вида "%name%". Сперва программа преобразует эти переменные в конкретные пути, только после этого вызывает указанный скрипт, и передает ему в параметре преобразованные пути.

Цитата Iska:
А именно в Smart Install Maker »
Поскольку в данном случае этой программой является Smart Install Maker, с ним и нужно разбираться. Но этот софт я знаю только поверхностно, и не готов дать дельный совет.

Если начать копать, можно для дебага заменить скрипт "заглушкой", которая будет просто показывать что за параметр передала скрипту программа. Для этого подойдет такой скрипт:
Код: Выделить весь код
args = ""
for each arg in wscript.arguments
	args = args & arg & vbcrlf & vbcrlf
next
if args = "" then args = "аргументы не переданы скрипту"
msgbox args, , "wscript.arguments"

Последний раз редактировалось omegastripes, 04-02-2014 в 21:50. Причина: добавил заглушку


Отправлено: 21:41, 04-02-2014 | #21



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
Iska, что я делаю не так? »
Для начала попробуйте обрамить пути, указанные в «Команда:» и «Параметры:» в кавычки, как это было указано в моём примере. По результату отпишитесь.

Покажите, куда у Вас происходит установка «IceTorrent.exe» по факту.
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:46, 05-02-2014 | #22


Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256

Профиль | Отправить PM | Цитировать


Цитата Iska:
Покажите, куда у Вас происходит установка «IceTorrent.exe» по факту. »
По умолчанию в C:\Program Files\IceTorrent\IceTorrent.exe, но вообще используется переменная "%InstallPatch%" тоисть по выбору пользователя.

Цитата Iska:
Для начала попробуйте обрамить пути, указанные в «Команда:» и «Параметры:» »
Действительно, взял «команду» в кавычки скрипт заработал. Спасибо!

Как теперь добавить диалоговое окно с текстом "Закрепить ярлык в панели задач", "Да" - создается, "Нет" - выход. Какой код нужно вставить? Чтобы этот диалог обязательно появлялся.

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 05-02-2014 в 13:21.


Отправлено: 13:11, 05-02-2014 | #23


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
используется переменная "%InstallPatch%" »
Коллега, Вы в третий раз вставляете лишнюю букву в словосочетание: «%InstallPatch%».


Цитата Dodakaedr:
Как теперь добавить диалоговое окно с текстом "Закрепить ярлык в панели задач", "Да" - создается, "Нет" - выход. Какой код нужно вставить? Чтобы этот диалог обязательно появлялся. »
Запрашивайте посредством MsgBox() и анализируйте ответ в If … Then.

А самым правильным будет перейти на использование бесплатных InnoSetup или NSIS, и реализовать сие непосредственно в самом инсталляторе.

Отправлено: 13:37, 05-02-2014 | #24


Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256

Профиль | Отправить PM | Цитировать


Цитата Iska:
А самым правильным будет перейти на использование бесплатных InnoSetup или NSIS, и реализовать сие непосредственно в самом инсталляторе. »
Смотрел я эти программы там в основном скрипты, а я в них не особо знаюсь и к тому же я просто привык к smart install maker

Цитата Iska:
Запрашивайте посредством MsgBox() и анализируйте ответ в If … Then. »
Как правильно это оформить?



Как добавить да и нет?

-------
Inno Setup 5 Ultra Unicode


Отправлено: 13:57, 05-02-2014 | #25


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
Смотрел я эти программы там в основном скрипты, а я в них не особо знаюсь и к тому же я просто привык к smart install maker »
«Найдите десять отличий» :



Цитата Dodakaedr:
Как добавить да и нет? »
Код: Выделить весь код
'…
strPath = WScript.Arguments(0)
'…
If MsgBox("Закрепить ярлык на [" & strPath & "] на Панели задач?", vbYesNo + vbInformation, "Закрепление ярлыка на Панели задач") = vbYes Then
	' Здесь код
End If

Отправлено: 14:20, 05-02-2014 | #26


Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256

Профиль | Отправить PM | Цитировать


Цитата Iska:
'… »
Ничего не получается, ошибки выдает

-------
Inno Setup 5 Ultra Unicode


Отправлено: 14:40, 05-02-2014 | #27


Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256

Профиль | Отправить PM | Цитировать


Все разобрался.
Это если при выборе "Да" а при "Нет" как? Потому что при выборе "Нет" выскакивает ошибка...
Все и в этом разобрался командой Elseif)))

-------
Inno Setup 5 Ultra Unicode


Последний раз редактировалось Dodakaedr, 05-02-2014 в 16:56.


Отправлено: 15:53, 05-02-2014 | #28


Ветеран


Сообщения: 27449
Благодарности: 8086

Профиль | Отправить PM | Цитировать


Цитата Dodakaedr:
Все и в этом разобрался командой Elseif))) »
Вам вообще не нужна ветвь «else».

Отправлено: 17:13, 05-02-2014 | #29


Аватара для Dodakaedr

Ветеран


Сообщения: 857
Благодарности: 256

Профиль | Отправить PM | Цитировать


Цитата Iska:
Вам вообще не нужна ветвь «else». »
Почему? Именно с ней и заработал скрипт, без нее ошибки выскакивали.

А можно создать такой скрипт который после установки программы автоматов будет ассоциировать поддерживаемые форматы? А то вручную долго прописывать???

-------
Inno Setup 5 Ultra Unicode


Отправлено: 22:06, 06-02-2014 | #30



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - [решено] Создание ярлыка с помощью VBS

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - [решено] Скрипт vbs для создания ярлыка на рабочем столе angel_lyucifer Скриптовые языки администрирования Windows 31 27-11-2017 14:26
CMD/BAT - [решено] Создание с помощью bat ярлыка в SendTo intelem Скриптовые языки администрирования Windows 4 24-12-2011 19:59
CMD/BAT - [решено] Возможно ли в свойствах ярлыка поменять размер шрифта посредством cmd/vbs? Anton04 Скриптовые языки администрирования Windows 20 06-09-2011 16:53
VBS/WSH/JS - [решено] Автоматическое создание папок из полей таблицы c помощью VBS NecroTYN Скриптовые языки администрирования Windows 58 14-07-2011 20:13
Обои и Значки - Возможно позиционирование окна с помощью ярлыка? KupC Оформление Windows XP 1 03-05-2011 14:11




 
Переход