Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Неизвестно -

Visual Basic .NET - Разное

Все примеры / Разное

Как добавить сайт в избранное?

Автор: Неизвестно | добавлено: 05.03.2010, 19:45 | просмотров: 1068 (1+) | комментариев: 0 | рейтинг: *x0
Пример демонстрирует добавление сайта в избранное интернет-обозревателя Internet Explorer. Путь к папке избранное получается при помощи System.Environment, а ссылка на сайт добавляется путем программного создания ярлыка.

Код

Public Sub CreateShortcut(ByVal Title As String, ByVal URL As String)
  Dim strFavoriteFolder As String
  strFavoriteFolder = System.Environment.GetFolderPath( _
  Environment.SpecialFolder.Favorites)
  Dim objWriter As System.IO.StreamWriter = _
  System.IO.File.CreateText(strFavoriteFolder & _
  "\" & Title & ".url")
  objWriter.WriteLine("[InternetShortcut]")
  objWriter.WriteLine("URL=" & URL)
  objWriter.Close()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  CreateShortcut("Kbyte.Ru - портал для программистов!", "http://kbyte.ru")
End Sub
Об авторе

Неизвестно

Нет информации об авторе...
Неизвестно
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики