Метод отправки в MSXML2.xmlHttp не отправляется во второй раз

Question

Я использую следующий код и создаю DLL, используя это.Первый раз метод отправки работает нормально.С тех пор он дает старые значения, а не обновленные значения

Dim xmlHttp As MSXML2.xmlHttp
Set xmlHttp = New MSXML2.xmlHttp
Dim response as string
response = xmlHttp.readyState
sUrl = "MyUrl"
xmlHttp.open "GET", sUrl, False
xmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
response = xmlHttp.readyState
xmlHttp.send

response = xmlHttp.readyState
response = xmlHttp.responseText
.....
Set xmlHttp = Nothing

Спасибо Аша

Answer 1

Вы можете сделать очень простой трюк, чтобы всегда получать обновленные значения, у вас всегда должен быть другой URL.Добавьте параметр в URL, который изменяется каждый раз, когда вы отправляете запрос, этот параметр ничего не делает на стороне сервера. В этом примере я создаю статическую переменную, которая увеличивается при каждом вызове

Function GetHTMLSource(ByVal sURL As String) As String
Static id As Long
    id = id + 1
    If id >= 60000 Then
        id = 0
    End If
    Dim xmlHttp As Object
    Set xmlHttp = CreateObject("MSXML2.XmlHttp")
    xmlHttp.Open "GET", sURL & "?i=" & id, False
    xmlHttp.Send
    GetHTMLSource = xmlHttp.responseText
    Set xmlHttp = Nothing
End Function

удачи;)