Изменение иконки ярлыка

@DedUndead · Регистрация: 29.06.2012

Author24 — интернет-сервис помощи студентам

Реально ли сделать изменение иконки ярлыка скриптом?

@DedUndead · 12.07.2012, 17:08 **[ТС]**

Может быть об этом лучше в раздел с VB написать?

@icu · 22.07.2012, 19:00

В свое время необходимо было централизованно рулить ярлыками на машинах сети. GPPreferences в ту пору еще не было, что привело к написанию скрипта-утилиты, реализующего нужный функционал. Он в аттаче.

Допустим нужно изменить иконку для ярлыка на рабочем столе, запускающего cmd.exe.
Шаг 1 - получаем конфиг ярлыка в форме скрипта:

Код

C:\tmp>for /F "tokens=*" %S in ('cscript.exe //NoLogo lnk.vbs /find sf:Desktop rx:.*cmd.exe') do cscript.exe //NoLogo lnk.vbs /getscript "%S" > 1.bat

Шаг 2 - открываем в блокноте полученный на предыдущем этапе 1.bat, видим нечто типа:

Код

cscript.exe //NoLogo lnk.vbs /add "sf:Desktop\cmd.lnk" "C:\Windows\System32\cmd.exe" "" "" ",0" "1" "" ""

правим параметр ",0", означающий скучный черный прямоугольник, на нечто светлое и радостное как новогодний праздник:

Код

cscript.exe //NoLogo lnk.vbs /add "sf:Desktop\cmd.lnk" "C:\Windows\System32\cmd.exe" "" "" "%windir%\system32\pifmgr.dll,26" "1" "" ""

выходим из блокнота с сохранением, запускаем отредактированный 1.bat, и ярлык фактически не правится, а пересоздается с нуля с другой иконкой.

@sotik · 04.02.2014, 10:50

Здравствуйте.
А как просто создать ярлык к исполняемому файлу на рабочем столе и навесить на него произвольную горячую клавишу?
Я имею ввиду через cmd конечно же...

Dragokas · 06.02.2014, 00:02

Bash

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/
var oShell = new ActiveXObject("WScript.Shell");
var oShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\MyMEGA_PROGA.lnk");
oShortcut.TargetPath = "calc.exe";
oShortcut.HotKey = "CTRL+ALT+F";
oShortcut.Save();

@bort-747 · 10.02.2014, 17:18

Чёт я немного не разобрал....
Помогите пожалуйста
1)Хочу что бы при запуске батника на рабочем столе создавался ярлык на сайт http://www.adobe.com/ru/ с именем Adobe, а иконку брал с http://wwwimages.adobe.com/www... avicon.ico
Привожу текст файла .url:

Код

[{000214A0-0000-0000-C000-000000000046}]
Prop4=31,Adobe.com
Prop3=19,2
[{A7AF692E-098D-4C08-A225-D433CA835ED0}]
Prop5=3,0
Prop9=19,0
[InternetShortcut]
URL=http://www.adobe.com/ru/
IDList=
IconFile=http://wwwimages.adobe.com/www.adobe.com/include/img/favicon.ico
IconIndex=1
[{9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3}]
Prop5=8,Microsoft.Website.91225223.66092333

2)Есть ещё одно пожелание, что бы при запуске уже существующего ярлыка он обязательно запускался IE

Dragokas · 10.02.2014, 23:19

URL создать по таким правилам не получится.
Он будет открываться ассоциированной с ним программой, а не IE.

Чтобы создать нужный LNK,
задавайте такие параметры:

Javascript

1
2
3

oShortcut.TargetPath = "%programfiles%\\internet explorer\\iexplore.exe";
oShortcut.Arguments = "http://www.adobe.com/ru/";
oShortcut.IconLocation = "http://wwwimages.adobe.com/www.adobe.com/include/img/favicon.ico";

@bort-747 · 11.02.2014, 11:33

Получился вот такой код...

Bash

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/
var oShell = new ActiveXObject("WScript.Shell");
var oShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\MyMEGA_PROGA.lnk");
oShortcut.TargetPath = "%programfiles%\\internet explorer\\iexplore.exe";
oShortcut.Arguments = "http://www.adobe.com/ru/";
oShortcut.IconLocation = "http://wwwimages.adobe.com/www.adobe.com/include/img/favicon.ico";
oShortcut.Save();

А как указать что бы не на текущий рабочй стол сохранял а на c:\Users\Public\Desktop ?

Добавлено через 1 час 22 минуты
Попытался в конце дописать строку:

Bash

1	move "c:\Users\%userName%\Desktop\MyMEGA_PROGA.lnk" "c:\Users\Public\Desktop\MyMEGA_PROGA.lnk"

Но блин теперь ругается командная строка, а именно интерпритатор jscript
типа что код не jscript и ничего делать не буду...
Что надо дописать перед этой строкой что бы вернуться обратно в ВАТ?

Dragokas · 11.02.2014, 23:31

bort-747, в БАТ Вы возвращаетесь в строке № 3.
А чтобы создать ярлык на публичном рабочем столе, можно подставить соответствующую переменную окружения:

AllUsersDesktop

@bort-747 · 12.02.2014, 12:26

Сообщение от Dragokas

bort-747, в БАТ Вы возвращаетесь в строке № 3.

Bash

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/
var oShell = new ActiveXObject("WScript.Shell");
var oShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\MyMEGA_PROGA.lnk");
oShortcut.TargetPath = "%programfiles%\\internet explorer\\iexplore.exe";
oShortcut.Arguments = "http://www.adobe.com/ru/";
oShortcut.IconLocation = "http://wwwimages.adobe.com/www.adobe.com/include/img/favicon.ico";
oShortcut.Save();
@exit /b
move "c:\Users\%userName%\Desktop\MyMEGA_PROGA.lnk" "c:\Users\Public\Desktop\MyMEGA_PROGA.lnk"

выдает ошибку и не создает ярлык

Dragokas · 12.02.2014, 23:44

bort-747, Вы вообще читаете то, что пишу?

@sov44 · 16.02.2014, 17:08

Dragokas, как поправить скрипт, чтобы стартовал не IE, а браузер, установленный в системе по умолчанию?

Bash

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/
var oShell = new ActiveXObject("WScript.Shell");
var oShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\Яндекс.lnk");
oShortcut.TargetPath = "%programfiles%\\internet explorer\\iexplore.exe";
oShortcut.Arguments = "http://yandex.ru";
oShortcut.Save();

Dragokas · 16.02.2014, 17:55

Чтобы не определять расположение браузера по-умолчанию,
можно создавать вместо обычного ярлыка URL ShortCut:

Bash

@set @x=0; /*
@cscript //nologo /e:jscript "%~f0"
@exit /b
 
*/
var oShell = new ActiveXObject("WScript.Shell");
var uShortcut = oShell.CreateShortcut(oShell.SpecialFolders("Desktop") + "\\Яндекс.url");
uShortcut.TargetPath = "http://yandex.ru";
uShortcut.Save();

@sov44 · 16.02.2014, 19:20

Dragokas, ошибка строка 1, символ 1

Dragokas · 16.02.2014, 19:43

sov44, приведи текст ошибки. У меня нормально работает.
Предыдущий пример у тебя работал? Как видишь, в этом скрипте первой строкой ничего не менялось.

@sov44 · 16.02.2014, 19:47

Сообщение от Dragokas

sov44, приведи текст ошибки.

ошибка

os Windows XP

@sov44 · 16.02.2014, 22:27

Dragokas, со скриптом всё ок ( нужно было писать расширение cmd, а я написал vbs

)

Dragokas · 17.02.2014, 00:49

Проверил на x32, x64, RU, EN системах. Везде нормально - создается.
Попробуй пересоздать текстовый файл с нуля.
Также попробуй файл .cmd и .js из этого архива. Отпишись о результате.

@sov44 · 17.02.2014, 12:51

Сообщение от Dragokas

Попробуй пересоздать текстовый файл с нуля.
Также попробуй файл .cmd и .js из этого архива. Отпишись о результате.

Всё отлично работает, проверил на WinXP и Win7.

Dragokas · 17.02.2014, 21:05

Сообщение от sov44

нужно было писать расширение cmd, а я написал vbs )

Либо CMD, либо JS.

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	16.02.2014, 19:43	15
	sov44, приведи текст ошибки. У меня нормально работает. Предыдущий пример у тебя работал? Как видишь, в этом скрипте первой строкой ничего не менялось. 0

Изменение иконки ярлыка

Решение

Решение

@DedUndead 0 / 0 / 0 Регистрация: 29.06.2012 Сообщений: 36
		1
	Изменение иконки ярлыка 11.07.2012, 15:20. Показов 22998. Ответов 36 Метки нет (Все метки) Реально ли сделать изменение иконки ярлыка скриптом? 0

@DedUndead 0 / 0 / 0 Регистрация: 29.06.2012 Сообщений: 36
	12.07.2012, 17:08 [ТС]	2
	Может быть об этом лучше в раздел с VB написать? 0

@sotik 2 / 2 / 0 Регистрация: 20.01.2014 Сообщений: 87
	04.02.2014, 10:50	4
	Здравствуйте. А как просто создать ярлык к исполняемому файлу на рабочем столе и навесить на него произвольную горячую клавишу? Я имею ввиду через cmd конечно же... 0

@bort-747 33 / 67 / 10 Регистрация: 07.06.2013 Сообщений: 508 Записей в блоге: 1
	10.02.2014, 17:18	6
	Чёт я немного не разобрал.... Помогите пожалуйста 1)Хочу что бы при запуске батника на рабочем столе создавался ярлык на сайт http://www.adobe.com/ru/ с именем Adobe, а иконку брал с http://wwwimages.adobe.com/www... avicon.ico Привожу текст файла .url: Код [{000214A0-0000-0000-C000-000000000046}] Prop4=31,Adobe.com Prop3=19,2 [{A7AF692E-098D-4C08-A225-D433CA835ED0}] Prop5=3,0 Prop9=19,0 [InternetShortcut] URL=http://www.adobe.com/ru/ IDList= IconFile=http://wwwimages.adobe.com/www.adobe.com/include/img/favicon.ico IconIndex=1 [{9F4C2855-9F79-4B39-A8D0-E1D42DE1D5F3}] Prop5=8,Microsoft.Website.91225223.66092333 2)Есть ещё одно пожелание, что бы при запуске уже существующего ярлыка он обязательно запускался IE 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	11.02.2014, 23:31	9
	bort-747, в БАТ Вы возвращаетесь в строке № 3. А чтобы создать ярлык на публичном рабочем столе, можно подставить соответствующую переменную окружения: AllUsersDesktop 2

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	12.02.2014, 23:44	11
	bort-747, Вы вообще читаете то, что пишу? 0

@sov44 1779 / 761 / 130 Регистрация: 09.04.2011 Сообщений: 1,325
	16.02.2014, 19:20	14
	Dragokas, ошибка строка 1, символ 1 0

@sov44 1779 / 761 / 130 Регистрация: 09.04.2011 Сообщений: 1,325
	16.02.2014, 19:47	16
	Сообщение от Dragokas sov44, приведи текст ошибки. ошибка os Windows XP Миниатюры 0

@sov44 1779 / 761 / 130 Регистрация: 09.04.2011 Сообщений: 1,325
	16.02.2014, 22:27	17
	Dragokas, со скриптом всё ок ( нужно было писать расширение cmd, а я написал vbs ) 0

@sov44 1779 / 761 / 130 Регистрация: 09.04.2011 Сообщений: 1,325
	17.02.2014, 12:51	19
	Сообщение от Dragokas Попробуй пересоздать текстовый файл с нуля. Также попробуй файл .cmd и .js из этого архива. Отпишись о результате. Всё отлично работает, проверил на WinXP и Win7. 0

Dragokas 17996 / 7697 / 892 Регистрация: 25.12.2011 Сообщений: 11,470 Записей в блоге: 16
	17.02.2014, 21:05	20
	Сообщение от sov44 нужно было писать расширение cmd, а я написал vbs ) Либо CMD, либо JS. 0