У меня есть следующая функция, которую я использую для получения исходного кода html с моего веб-сайта

Public Function GetPageHTML(ByVal URL As String, _
      Optional ByVal TimeoutSeconds As Integer = 10) _
      As String
        ' Retrieves the HTML from the specified URL,
        ' using a default timeout of 10 seconds
        Dim objRequest As Net.WebRequest
        Dim objResponse As Net.WebResponse
        Dim objStreamReceive As System.IO.Stream
        Dim objEncoding As System.Text.Encoding
        Dim objStreamRead As System.IO.StreamReader

        Try
            ' Setup our Web request
            objRequest = Net.WebRequest.Create(URL)
            objRequest.Timeout = TimeoutSeconds * 1000
            ' Retrieve data from request

            Try
                objResponse = objRequest.GetResponse 'some times it gives an error server unavailable 503
            Catch ex As WebException
                MsgBox(ex.Message)
            End Try

            objStreamReceive = objResponse.GetResponseStream
            objEncoding = System.Text.Encoding.GetEncoding( _
                "utf-8")

            objStreamRead = New System.IO.StreamReader( _
                objStreamReceive, objEncoding)
            ' Set function return value

            GetPageHTML = objStreamRead.ReadToEnd()
            ' Check if available, then close response
            If Not objResponse Is Nothing Then
                objResponse.Close()
            End If
        Catch
            ' Error occured grabbing data, simply return nothing
            Return ""
        End Try
    End Function

Иногда objResponse выдает ошибку «503 Server unavailable» и многие другие ошибки, такие как 403 и т. д., как я могу обрабатывать каждую из этих ошибок независимо?

Как я могу заставить эту функцию повторить запрос через некоторое время? Проблема в том, что оператор try, похоже, не справляется с этим, и я не уверен, почему я не вижу исключения MsgBox, но оно показывает ошибку в отладчике.

0
user1570048 5 Сен 2012 в 23:54

1 ответ

Лучший ответ

Передайте ответ как объект HttpWebResponse и выполните Select Case для его свойства StatusCode. Вам нужно будет очистить и закончить это, но вот пример:

    Select Case CType(objResponse, Net.HttpWebResponse).StatusCode

        Case Net.HttpStatusCode.InternalServerError
            'This is sloppy, but a quick example for one of your sub-questions.
            System.Threading.Thread.Sleep(10000)
            'Try again.
            objResponse = objRequest.GetResponse
        Case Net.HttpStatusCode.BadRequest
            'Error Handling
        Case Net.HttpStatusCode.OK
            'Proceed as normal.
        Case Else
            'Error Handling

    End Select
1
NoAlias 6 Сен 2012 в 01:04