Vb脚本获取超时错误

Question

一些背景知识 第一个解决方案：我已经构建了一个excel解决方案，它使用from text数据源导入所需的数据。 我选择了这种方法作为发送数据的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

你说＆＃34; [它]需要花费大量时间才能获得超过6分钟的数据。＆＃34; 然而你正在使用的库的默认超时似乎是接收数据需要30秒（source）。

我不熟悉您正在使用的MSXML2.ServerXMLHTTP库，但Google reveals有setTimeouts method，可用于增加库的各种超时。