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

Visual Basic .NET - Сеть и Интернет

Все примеры / Сеть и Интернет

Как проверить, подключен компьютер к интернет или нет?

Автор: Алексей Немиро | добавлено: 05.03.2010, 19:48 | просмотров: 3830 (1+) | комментариев: 0 | рейтинг: *x9
Пример демонстрирует метод проверки, подключен компьютер к сети Интернет или нет, путем отправки запроса на определенный сайт и анализу ответа.

Код

Public Function IsConnectionAvailable() As Boolean
  Dim objUrl As New System.Uri("http://kbyte.ru")
  Dim objWebReq As System.Net.WebRequest
  objWebReq = System.Net.WebRequest.Create(objUrl)
  Dim objResp As System.Net.WebResponse
  Try
   objResp = objWebReq.GetResponse
   objResp.Close()
   objWebReq = Nothing
   Return True
  Catch ex As Exception
   objResp.Close()
   objWebReq = Nothing
   Return False
  End Try
 End Function

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  If IsConnectionAvailable() Then
   MsgBox("Компьютер подключен к Интернет!", MsgBoxStyle.Information)
  Else
   MsgBox("Компьютер НЕ подключен к Интернет!", MsgBoxStyle.Information)
  End If
End Sub
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

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


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

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