处理来自 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 相同，这可能就是您正在寻找的。因此，在使用用户界面时可能会注意到唯一的区别。

Answer 2

将 Open 方法调用中的第三个参数更改为 false。然后将代码放置在调用发送之后的 OnResponseFinished 中。

Answer 3

使用 WScript 的 CreateObject，而不是内置的事件处理程序。

Set oHTTP = WScript.CreateObject(
    "WinHttp.WinHttpRequest.5.1",
    "oHTTP_"
)

Answer 4

我承认他的答案不是一个很好的答案，但是注册 VBScript 事件的常用方法是使用 GetRef 函数来获取对事件处理程序的引用，例如使用 MSXML2。 XMLHTTP 对象：

Set oHTTP = CreateObject("MSXML2.XMLHTTP")
oHTTP.Open "GET", "http://www.google.com", True

oHTTP.OnReadyStateChange = GetRef("oHTTP_OnReadyStateChange")

Sub oHTTP_OnReadyStateChange
    ' do something
End sub

oHTTP.Send

问题是，我尝试了你的代码，即

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

oHTTP.OnResponseFinished = GetRef("oHTTP_OnResponseFinished")

Sub oHTTP_OnResponseFinished
    ' do something
End sub

oHTTP.Send

它不起作用，出现错误

对象不支持此属性或方法：“oHTTP.OnResponseFinished”

但这也许可以为您提供一个起点，或者您可以改用 MSXML2 库？

只需使用处理 COM 事件的其他方式更新此答案 - 使用 CreateObject 函数的第二个参数，该函数允许您指定将函数连接到对象的函数前缀，例如

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

Sub oHTTP_OnResponseFinished
    ' do something
End sub

oHTTP.Send

不幸的是，这也不起作用 - 一定是 IWinHttpRequestEvents 接口无法访问

Answer 5

我检查了 Windows 注册表，似乎有许多 Microsoft 对象执行几乎相同的操作：

Microsoft.XMLHTTP {ED8C108E-4349-11D2-91A4-00C04F7969E8}
MSXML2.XMLHTTP {F6D90F16-9C73-11D3-B32E-00C04F990BB4}
WinHttp.WinHttpRequest.5.1 {2087c2f4-2cef-4953-a8ab-66779b670495}
MSXML2.ServerXMLHTTP {AFBA6B42-5692-48EA-8141-DC517DCF0EF1}

对我有用的是 Microsoft.ServerXMLHTTP，它允许在 VBScript 中设置 onreadystatechange。 “MSXML2.ServerXMLHTTP”处理重定向网站（例如google.com），这使其成为比“Microsoft.XMLHTTP”更好的选择。

Dim xmlhttp ' global so can be accessed in OnStateChange

Sub OnStateChange
    If xmlhttp.readystate = 4 Then
        ' React to xmlhttp.responseText
        MsgBox xmlhttp.responseText
    End If
End Sub

Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "GET", "http://www.google.com/", true
xmlhttp.onreadystatechange = GetRef("OnStateChange")
xmlhttp.send
' do something else whilst xmlhttp is running in the background
MsgBox "Pausing so that OnStateChange can fire!"

Answer 6

根据this（参见备注）您只能通过Err访问错误状态。微软的文档很糟糕。

Answer 7

我发现我可以通过使用带有参数“0”的“waitForResponse”作为超时方法的标志来异步工作。

IE：

 oHTTP.Open "GET", "http://www.google.com", True
 oHTTP.Send

 Do While oHTTP.waitForResponse(0) = False
   'do stuff while waiting for it to be done

    WScript.Sleep 200 'sleep for 0.2 seconds between checks as not waste CPU 
    DoEvents
 Loop

 'Once the loop is exited, the response is finished
 MsgBox oHTTP.ResponseText