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

祝你好运;）

在MSXML2.xmlHttp中发送方法不发送第二次

1 个答案: