VPF::Ярлык Интернета - Форум программистов

bom

Дата 16.7.2004, 10:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6

Раньше для меня было загадкой как программно создавать ярлык Интернета, пока не узнал способ использующий библиотеку Windows Script Shell. Кто не знает, как это делается воспользуйтесь следующим примером:

Код


   Dim WshShell As Object
   Dim oShellLink As Object
    Set WshShell = CreateObject("WScript.Shell")
    Set oShellLink = WshShell.CreateShortCut("C:\Forum_Link1.url")
    oShellLink.TargetPath = "http://forum.vingrad.ru/"
    oShellLink.Save
   Set oShellLink = Nothing
   Set WshShell = Nothing

Недавно придумал способ намного более простой и не использующий никаких библиотек, возможно этот способ многим известен, но я нигде раньше его не встречал, кому интересно, вот пример:

Код


Open "C:\Forum_Link2.url" For Output As #1
Print #1, "[InternetShortcut]"
Print #1, "URL=http://forum.vingrad.ru/"
Close #1

cardinal

Дата 16.7.2004, 15:10 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Прикольно! Спасибо, bom, засуну в FAQ. Если чего еще есть, то можешь прямо в тему
http://forum.vingrad.ru/index.php?showtopic=19382
писать.

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

bom

Дата 19.7.2004, 11:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 329
Регистрация: 22.2.2004
Где: Казахстан, Алматы

Репутация: 4
Всего: 6

OK, договорились

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »