И одно не ясно, в вебраузере хоть тысячу раз открой страницу не будет никаких таймаутов.
Код
- Код: Выделить всё
Dim myHttpWebRequest As HttpWebRequest = HttpWebRequest.Create("http://www.radikal.ru/")
myHttpWebRequest.Method = "GET"
myHttpWebRequest.UserAgent = "Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.5.22 Version/10.51"
myHttpWebRequest.Accept = "*/*"
myHttpWebRequest.KeepAlive = True
myHttpWebRequest.Headers.Add("Accept-Language", "ru-RU,ru;q=0.9,en;q=0.8")
Dim myHttpWebResponse As HttpWebResponse
Try
myHttpWebRequest.Timeout = 10000
myHttpWebResponse = myHttpWebRequest.GetResponse()
Catch er As Exception
MsgBox(er.Message)
End Try