- WinHttp.WaitForResponse(-1) ; 最多等待 30 秒,而不是无限期等待。
- WinHttp.WaitForResponse(60) ; 最多等待 30 秒,而不是 60 秒。
参数的超时单位是毫秒。比如把超时等待修改为 120 秒:
WinHttp.SetTimeouts(0, 60000, 30000, 120000)
前面三个值 0, 60000, 30000 是默认值。更多详细说明见 IWinHttpRequest::SetTimeouts method。
Code: Select all
whr := ComObjCreate("WinHttp.WinHttpRequest.5.1")
whr.Open("GET", URL, true)
whr.SetTimeouts(0, 60000, 30000, 120000)
whr.Send()
whr.WaitForResponse(90)