Vb 脚本出现超时错误

Question

一些背景第一个解决方案：我构建了一个 excel 解决方案，它使用文本数据源导入所需的数据。我选择了这种方法，因为发送数据的 URL 将发送一个 csv 文件。收到数据后，必须对此应用许多过程和条件。

关注原因：这需要花费很多时间来获取超过 6 分钟的数据。这导致 excel 挂起。

在我的第二个类似解决方案中：- 我选择从 excel 调用 vb 脚本来下载数据。这对于此解决方案非常有效。现在，我想为第一个解决方案实施此方法。

我的主要问题：第二个解决方案中使用的 vb 脚本失败并出现以下错误。

错误：- C:\Users-user id-\Desktop\script\download_moni.vbs(15, 1) msxml6.dll: 操作超时

我的 VB 脚本代码：-

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")

请告诉我如何解决超时错误。

Answer 1

你说[它]需要很多时间来获取超过 6 分钟的数据。但是你正在使用的库的默认超时似乎是接收数据 30 秒 (source).

我不熟悉你正在使用的MSXML2.ServerXMLHTTP库，但是Google reveals that there is a setTimeouts method，它可以用来增加你的库的各种超时。

Vb 脚本出现超时错误

Vb script getting timeout error

vbscript

excel

msxml