КАК создать ярлык на рабочем столе

[viter.alex]

Как программно создать ярлык на рабочем столе? В качестве картинки для ярлыка нужно использовать свой файл изображения. Ярлык должен вести на сайт.
Попутно еще проблема, а как переносить изображение ярлыка вместе с ярлыком?

[Williams]

Искать по ключевым словам "WshShell"

[viter.alex]

Искать по ключевым словам "WshShell"

Искал в MSDN, но ничего нет. Даже термина такого.
Есть в Google для VBScript, но мне нужен VB.Net

вообще, задача состоит в том, чтобы программа создавала файл, который может запускать окно браузера с определенной ссылкой. Самый простой способ это — ярлык, но заковыка еще в том, что иконка этого файла должна быть в нем самом, а не где-то в другом месте. Ярлык этого не может .
Может как-нибудь можно создавать exe-файл с такими свойствами?

[Nord777]

http://www.knowdotnet.com/articles/createshortcutondesktop.html

[viter.alex]

http://www.knowdotnet.com/articles/createshortcutondesktop.html

Спасибо, по ярлыку все ясно, но как сделать, чтобы картинка хранилась в самом файле?

[Williams]

http://www.knowdotnet.com/articles/createshortcutondesktop.html

Спасибо, по ярлыку все ясно, но как сделать, чтобы картинка хранилась в самом файле?

Следует уделить внимание фрагменту отмеченному жирным шрифтом.

With shortCut
.TargetPath = _
System.Reflection.Assembly.GetExecutingAssembly.Location()
.WindowStyle = 1
.Description = "Run Typist Summary"
.WorkingDirectory = DesktopDir
' the next line gets the first Icon from the executing program
.IconLocation = _
System.Reflection.Assembly.GetExecutingAssembly.Location() & _
", 0"
' the next line sets the userID and passWord into the shortcut
' as arguments
' which will be read from the command line.
.Arguments = userID & ", " & passWord
.Save() ' save the shortcut file
End With

[пометка для модераторов: с тэгом Code знаком, но для наглядности, думаю, следует оставить как есть]

[viter.alex]

Эту строку я видел, но дело в том, что в примере создается ярлык для программы, а мне нужно ярлык для ссылки. т.е. никакого

Код: Выделить всё

GetExecutingAssembly

, т.к. исполняемого файла нет.
Я думаю, что может быть можно как-то создать exe-шник, задав ему иконку и url, который надо открыть. И чтобы при запуске уже этого нового файла просто открывалась страница.
еще раз напомню, что картинка должна быть в файле

[iGrok]

Эту строку я видел, но дело в том, что в примере создается ярлык для программы, а мне нужно ярлык для ссылки. т.е. никакого

Код: Выделить всё

GetExecutingAssembly

, т.к. исполняемого файла нет.
Я думаю, что может быть можно как-то создать exe-шник, задав ему иконку и url, который надо открыть. И чтобы при запуске уже этого нового файла просто открывалась страница.
еще раз напомню, что картинка должна быть в файле

Ну если хочется именно .exe:
В ресурсы пихаешь иконку и строку со ссылкой.
Экзешник при открытии смотрит строку в ресурсах, и делает ShellExecute.
Это даже на асме можно нарисовать один раз, а потом просто строку и иконку в ресурсах заменять каким-нибудь редактором ресурсов.

Правда, не знаю, как на это будут антивирусы реагировать. По идее, нормально. )

[viter.alex]

…Ну если хочется именно .exe:
В ресурсы пихаешь иконку и строку со ссылкой.
Экзешник при открытии смотрит строку в ресурсах, и делает ShellExecute.
Это даже на асме можно нарисовать один раз, а потом просто строку и иконку в ресурсах заменять каким-нибудь редактором ресурсов.

Правда, не знаю, как на это будут антивирусы реагировать. По идее, нормально. )

Вот и я пришел к такому выводу. Спасибо, оказалось, что мыслил в правильном направлении. Есть еще одна идея генерировать VBScript, который бы открывал url, но можно ли к скрипту прикрутить иконку?

[iGrok]

Вот и я пришел к такому выводу. Спасибо, оказалось, что мыслил в правильном направлении. Есть еще одна идея генерировать VBScript, который бы открывал url, но можно ли к скрипту прикрутить иконку?

Файл скрипта у тебя полюбому отображается с установленной в системе иконкой. Т.е. нет.

Экстрактятся при отображении иконки из exe, ico, cur, ani. Можно заставить экстрактить из dll, bmp(миниатюру), но это уже настройками системы.
Если ты хочешь хранить иконку именно в файле, пожалуй exe - единственный вариант.

[viter.alex]

Значит решил я делать так: есть основное приложение, в котором я задаю ссылку и картинку для значка. Есть файл шаблона, консольное приложение, в котором прописан ресурс url. Я создаю копию этого шаблона и заменяю в нем иконнку и url. Все.

Господа, а как открывать ссылку при запуске этого консольного приложения? Где искать? Что прописать в Main()?

И второй вопрос: как получить доступ к ресурсам другого файла. К своему через My, а как к чужому подступиться?
Еще персональный вопрос к Williams'у: где можно почитать про функции из user32.dll?

[Viper]

И второй вопрос: как получить доступ к ресурсам другого файла. К своему через My, а как к чужому подступиться?

Через функции API.

Еще персональный вопрос к Williams'у: где можно почитать про функции из user32.dll?

MSDN даст ответ по функциям как этой библиотеки, так и любой другой входящей в Windows API.

[iGrok]

Господа, а как открывать ссылку при запуске этого консольного приложения? Где искать? Что прописать в Main()?

Я же писал, ShellExecute. Поищи по названию этой ф-ции.
Тебе нужно вместо пути и имени исполняемого файла ей дать url (http://...)

[viter.alex]

Господа, а как открывать ссылку при запуске этого консольного приложения? Где искать? Что прописать в Main()?

Я же писал, ShellExecute. Поищи по названию этой ф-ции.
Тебе нужно вместо пути и имени исполняемого файла ей дать url (http://...)

А что нужно подключить, чтобы ShellExecute был виден у меня?

[iGrok]

Поищи по названию этой ф-ции.

Гугль, гугль и ещё раз гугль.

1. Это API.
2. Первая же ссылка в гугле по запросу "ShellExecute" ведёт на описание функции в MSDN.
3. Первая же ссылка в гугле по запросу "ShellExecute VB" ведёт на описание работы с этой ф-цией в VB на vbaccelerator.com.

4. Если не очень с английским, третья ссылка в яндексе по запросу "ShellExecute VB" ведёт на тему, где русским языком написано, как с ней работать.

[viter.alex]

Поищи по названию этой ф-ции.

Гугль, гугль и ещё раз гугль.

1. Это API.
2. Первая же ссылка в гугле по запросу "ShellExecute" ведёт на описание функции в MSDN.
3. Первая же ссылка в гугле по запросу "ShellExecute VB" ведёт на описание работы с этой ф-цией в VB на vbaccelerator.com.

4. Если не очень с английским, третья ссылка в яндексе по запросу "ShellExecute VB" ведёт на тему, где русским языком написано, как с ней работать.

Да, уж google!
А я сразу пошел на MSDN и там ищу по ShellExecute, а он выдает столько мусора, что мама не горюй. Спасибо за терпение.

[Viper]

А я сразу пошел на MSDN и там ищу по ShellExecute, а он выдает столько мусора, что мама не горюй. Спасибо за терпение.

Пошел правильно, результат странный, в MSDN при задании ShellExecute в окне поиска Look for: выдается ровно две ссылки, одна из которых на нужную тебе функцию, вторая на метод интерфейса.

[viter.alex]

А я сразу пошел на MSDN и там ищу по ShellExecute, а он выдает столько мусора, что мама не горюй. Спасибо за терпение.

Пошел правильно, результат странный, в MSDN при задании ShellExecute в окне поиска Look for: выдается ровно две ссылки, одна из которых на нужную тебе функцию, вторая на метод интерфейса.

Вот что дает MSDN
Я не волшебник, только учусь.

[Viper]

А в онлайн версии только через Search можно искать? У меня то локальная версия, там слева панель Index, поле ввода Look for и всех делов.

[viter.alex]

А в онлайн версии только через Search можно искать? У меня то локальная версия, там слева панель Index, поле ввода Look for и всех делов.

Если я еще и MSDN на рабочем компе запущу, то вообще работать не смогу. Я сейчас на работе, и пока есть свободно время, занимаюсь потихоньку. вот приду домой, там машинка своя, тогда и покопаюсь от души!

[Williams]

Еще персональный вопрос к Williams'у: где можно почитать про функции из user32.dll?

Наиболее полноценным источником будет Windows API Reference, но и здесь тоже можно почерпнуть полезного