Получить ответ сервера в коде 200, 301, 404, 302, 500, 503, 550

@Egor2014 · Регистрация: 22.10.2013

Студворк — интернет-сервис помощи студентам

Есть список URL необходимо сделать запрос к странице, чтоб получить ответ сервера, то есть коды ошибок HTTP: 200, 301, 404, 302, 500, 503, 550 и др.

@XIST · 04.09.2018, 12:31

Egor2014, Вы хоть понимаете о чем речь? Что сервер возвратит, такой код и будет, ошибка это или 200-ок (почему он ошибка?)

@Egor2014 · 04.09.2018, 12:36 **[ТС]**

Видимо, вопрос мною неверно поставлен) если спрашивают о чем речь.

Как написать запрос к странице, чтоб получить ответ в виде кода? Хотелось бы видеть пример...

@Дядя Корней · 04.09.2018, 12:52

Сообщение от Egor2014

Как написать запрос к странице, чтоб получить ответ в виде кода? Хотелось бы видеть пример...

VB.NET

    Function GetPage(ByVal url As String) As String
        Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
        request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
        request.Method = "GET"
        request.ContentType = "text/html"
 
        Dim serverResponse As HttpWebResponse = Nothing
        serverResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        serverResponse.Close()
 
        Return serverResponse.StatusCode
    End Function

Использование:

VB.NET

1	Dim statusCode = GetPage("https://ya.ru/")

@OwenGlendower · 04.09.2018, 13:57

Egor2014, немного улучшил вариант Дядя Корней чтобы можно было получить коды редиректов. Также добавил Using чтобы Dispose всегда вызывался.

VB.NET

Function GetPage(ByVal url As String) As String
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
    request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
    request.AllowAutoRedirect = False
    request.Method = "GET"
    
    Using serverResponse As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
        Return serverResponse.StatusCode
    End Using
End Function

Добавлено через 46 минут
Поправлю сам себя. Для ответов с кодами 4xx, 5xx генерируются исключения. Поэтому окончательный вариант будет таким

VB.NET

Function GetStatusCode(ByVal url As String) As String
    Dim request As HttpWebRequest = DirectCast(WebRequest.Create(url), HttpWebRequest)
    request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.12) Gecko/20101026 Firefox/3.6.12"
    request.AllowAutoRedirect = False
    request.Method = "GET"
    
    Try
        Using serverResponse As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
            Return serverResponse.StatusCode
        End Using
    Catch ex As WebException
        Return DirectCast(ex.Response, HttpWebResponse).StatusCode
    End Try
End Function

@Egor2014 29 / 8 / 3 Регистрация: 22.10.2013 Сообщений: 447
		1
	Получить ответ сервера в коде 200, 301, 404, 302, 500, 503, 550 04.09.2018, 08:25. Показов 1357. Ответов 4 Метки нет (Все метки) Есть список URL необходимо сделать запрос к странице, чтоб получить ответ сервера, то есть коды ошибок HTTP: 200, 301, 404, 302, 500, 503, 550 и др. 0

@XIST 1293 / 994 / 141 Регистрация: 01.10.2009 Сообщений: 3,173 Записей в блоге: 1
	04.09.2018, 12:31	2
	Egor2014, Вы хоть понимаете о чем речь? Что сервер возвратит, такой код и будет, ошибка это или 200-ок (почему он ошибка?) 0

@Egor2014 29 / 8 / 3 Регистрация: 22.10.2013 Сообщений: 447
	04.09.2018, 12:36 [ТС]	3
	Видимо, вопрос мною неверно поставлен) если спрашивают о чем речь. Как написать запрос к странице, чтоб получить ответ в виде кода? Хотелось бы видеть пример... 0

Опции темы