Send-Methode in MSXML2.xmlHttp nicht senden zweiten mal

Ich bin mit dem folgenden code, und erstellen einer dll mithilfe dieser. Ersten mal die send-Methode woirks in Ordnung. Ab dann seine Angabe der alten Werte, nicht die aktualisierten Werte

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

Dank
Asha

InformationsquelleAutor Asha | 2011-12-26
  1. 5

    Können Sie einen sehr einfachen trick, um immer die aktualisierten Werte können, müssen Sie immer eine andere URL.
    Fügen Sie einen parameter in der url, die ändern jedes mal, wenn Sie senden Sie die Anforderung, dieser parameter hat nichts in server-Seite
    in diesem Beispiel erstelle ich eine statische variable, die inkrementiert bei jedem Aufruf

    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

    Glück 😉

    InformationsquelleAutor ziedmaz
Schreibe einen Kommentar