VBNet - Форум - Проверка подключения к интернетам

Вопрос: Проверка подключения к интернетам Добавлено: 09.04.09 16:21

Автор вопроса: EatenUpInside | Web-сайт: | ICQ:

Доброго дня!

Как бы вопрос простой и решений куча, проблема в том, что нужен некий универсальный солюшн, который будет работать и под VPN (дома) и в рабочей локалке, под файриком, который режет пинги :-)

Что пробовал, пока только с домашней машины (LAN + VPN):

Dim IPHE As System.Net.IPHostEntry, clnt As System.Net.Sockets.TcpClient
IPHE = System.Net.Dns.GetHostEntry("www.google.com")
clnt = New System.Net.Sockets.TcpClient("www.google.com", 80)
clnt.Close()

Оба работают даже при отключенном впн (локальный кеш днс??? или что?)

Function IsConnectionAvailable() As Boolean
        'Call url
        Dim Obj As New Microsoft.VisualBasic.Devices.Network
        Console.WriteLine(Obj.IsAvailable)
        Dim url As New System.Uri("http://www.google.com/")
        'Request for request
        Dim req As System.Net.WebRequest
        req = System.Net.WebRequest.Create(url)
        Dim resp As System.Net.WebResponse
        Try
            resp = req.GetResponse()
            resp.Close()
            req = Nothing
            Return True
        Catch ex As Exception
            req = Nothing
            Return False
        End Try
    End Function

"Славный" вебреквест уходит в сплит минуты на 3, что как бе не есть хорошо.

Что делать? Куда бечь? tracert?
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #1	Добавлено: 09.04.09 16:53
	IsInternetConnected, либо попытаться сделать то, для чего инет нужен, и обрабатывать ошибки. Лучше способа все равно не существует. Ответить

Страница: 1 |