Vb-Skript bekommen Timeout-Fehler

Question

Einige Hintergrund 1. Lösung: Ich habe eine Excel-Lösung, die die benötigten Daten mit einem von Text-Datenquelle importiert. Ich hatte diese Methode als die URL gewählt, die die Daten senden wird eine CSV-Datei senden. Sobald die Daten empfangen sind, müssen viele Prozesse und Bedingungen darauf angewendet werden.

Grund zur Sorge: Dies dauert sehr lange, um die Daten mehr als 6 Minuten zu erhalten. Was bewirkt, dass das Excel hängt.

In meiner zweiten ähnlichen Lösung: - Ich hatte gewählt, ein vb-Skript von Excel zu rufen, um das Herunterladen von Daten zu tun. Das funktioniert sehr gut für diese Lösung. Jetzt möchte ich diese Methode für die erste Lösung implementieren.

Mein Hauptproblem: Das VB-Skript in der 2. Lösung verwendet, schlägt mit dem folgenden Fehler.

Fehler: - C: \ Benutzer-Benutzer ID- \ Desktop \ script \ download_moni.vbs (15, 1) msxml6.dll: Die Operation timed out

Mein Code für VB Script: -

Set args = WScript.Arguments 
Url = "url given here" 
dim xHttp: Set xHttp = createobject("MSXML2.ServerXMLHTTP.6.0") 
dim bStrm: Set bStrm = createobject("Adodb.Stream") 
xHttp.Open "GET", Url, False 'Open socket to get the website 
xHttp.Send 'send request 
with bStrm 
.type = 1 '//binary 
.open 
.write xHttp.responseBody 
.savetofile "C:\Ticket\Monitoring.csv", 2 '//overwrite 
end with 
wscript.echo("Download complete") 

Bitte lassen Sie mich wissen, wie Sie den Timeout-Fehler beheben können.

Answer 1

Sie sagen, dass "es dauert eine Menge Zeit, um die Daten mehr als 6 Minuten zu erhalten." Das Standard-Zeitlimit der von Ihnen verwendeten Bibliothek scheint 30 Sekunden zu sein, um Daten zu empfangen (source).

Ich bin nicht vertraut mit der MSXML2.ServerXMLHTTP Bibliothek, die Sie verwenden, aber Google reveals, dass es ein setTimeouts method ist, die dazu verwendet werden können, verschiedene Timeouts Ihrer Bibliothek zu erhöhen.