- Код: Выделить всё
Dim Request As HttpWebRequest = HttpWebRequest.Create("http://www.address.ru/file.pdf")
Request.Credentials = CredentialCache.DefaultCredentials
Dim Response As HttpWebResponse = Request.GetResponse()
MsgBox("Content-Length: " & CInt(Response.GetResponseHeader("Content-Length")) & " байт" & vbCrLf & Math.Round((My.Computer.Clock.TickCount - t1) / 1000, 2) & " с.")
Запрос к 192-Кб файлу на моем компьютере выполняется аж целых 30 секунд, на другом - вполне допустимые полсекунды.
В чем может быть причина? Файрвол все разрешает, всякие менеджеры закачек размер получают мгновенно. Интернет быстрый.
ADD
Обнаружил, что 29 из 30 секунд проходят в ожидании непонятно чего перед отправкой запроса.