Вывод Httprequest неожиданно изменил VB.NET (ожидайте XML, но получите вид CSS)

Я делаю с VB.NET HTTPwebrequest с методом POST и ожидаю получить данные XML обратно. Много лет это работало хорошо, но с тех пор как оно больше не работало. Я получаю некоторые данные в виде файла CSS. Когда я делаю запрос URL в моем браузере, результатом является файл XML.

VB.NET:

Function WRequest(ByVal URL As String, ByVal method As String, ByVal POSTdata As String) As String
    Dim responseData As String = ""
    Try
        Dim hwrequest As Net.HttpWebRequest = Net.WebRequest.Create(URL)
        hwrequest.Accept = "*/*"
        hwrequest.AllowAutoRedirect = True
        hwrequest.UserAgent = "http_requester/0.1"
        hwrequest.Timeout = 60000
        hwrequest.ContentType = "application/x-www-form-urlencoded"
        hwrequest.Method = method
        If hwrequest.Method = "POST" Then
            Dim encoding As New Text.UTF8Encoding() 'Use UTF8Encoding for XML requests
            Dim postByteArray() As Byte = encoding.GetBytes(POSTdata)
            hwrequest.ContentLength = postByteArray.Length
            Dim postStream As IO.Stream = hwrequest.GetRequestStream()
            postStream.Write(postByteArray, 0, postByteArray.Length)
            postStream.Close()
        End If
        Dim hwresponse As Net.HttpWebResponse = hwrequest.GetResponse()
        If hwresponse.StatusCode = Net.HttpStatusCode.OK Then
            Dim responseStream As IO.StreamReader = _
            New IO.StreamReader(hwresponse.GetResponseStream())
            responseData = responseStream.ReadToEnd()
            dataresult = responseData
        End If
        hwresponse.Close()
    Catch e As Exception
        responseData = "An error occurred: " & e.Message
    End Try
    Return responseData

0 ответов

Другие вопросы по тегам