Вывод 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