vba - CreateObject ("MSXML2.serverXMLHTTP.6.0") 和 CreateObject ("WinHttp.WinHttpRequest.5.1") 在同时运行 100 多个对象/请求时崩溃

Question

我尝试使用 MSXML2.serverXMLHTTP.6.0 或 WinHttp.WinHttpRequest.5.1 同时创建 100-300 个 HTTP 对象/请求。

这些请求是使用测试应用程序在单独的线程上创建的。最多可同时运行 90 个创建对象/请求，一切正常。

当同时创建/调用超过 100 个时，应用程序会崩溃，并在 KERNELBASE.dll 中出现异常。

代码:

CreateObject("MSXML2.serverXMLHTTP.6.0")
CreateObject("WinHttp.WinHttpRequest.5.1")

set obj = CreateObject("MSXML2.serverXMLHTTP.6.0")
'set obj = CreateObject("WinHttp.WinHttpRequest.5.1")

obj.open "GET", "https://httpbin.org/get", true
'https://resttesttest.com/

obj.send   ' Mostly crashes here.
obj.WaitForResponse

result =  obj.responseTEXT

set obj = Nothing

事件查看器报告:

Faulting module name: KERNELBASE.dll, version: 6.1.7601.18015, time stamp: 0x50b83c8a Exception code: 0xc00000fd Faulting module path: C:\Windows\syswow64\KERNELBASE.dll

我尝试过将 Async 设置为“true”并设置为“false”。

任何人都可以提供任何调试此问题的指针吗？

Answer 1

如果您这样做是为了破坏您的 REST 服务器并对它的容量/吞吐量进行压力测试，那么我可以建议您为自己提供多个进程，每个进程都有自己的线程池(尽管我仍然不清楚您如何设法创建自己的线程池)使用 VBScript 拥有自己的线程)。