events - 处理来自 WinHttpRequest 的事件

Question

我使用的程序运行 .VBS 脚本

那么，在 VBScript 中，如何处理 WinHttpRequest 对象的 OnResponseFinished 事件？

Set oHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
oHTTP.Open "GET", "http://www.google.com", True
oHTTP.Send

Answer 1

我试图在 winhttp 响应到来时执行一些代码(在 HTA 文件中使用 VBScript)。您可以考虑将事件代码放在发送之后。使用以下代码，用户界面在等待响应时不会挂起:

Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
objHTTP.Open "GET", "http://www.google.com", True
objHTTP.Send
objHTTP.WaitForResponse 'pauses execution, but does not hang UI
'from now on, execution only takes effect after completion of the response:
msgbox objHTTP.responseText 'an example of what can be done with the response

这似乎与脚本文件的同步 winhttp 相同，这可能就是您正在寻找的。因此，在使用用户界面时可能会注意到唯一的区别。