WinHttp.WinHttpRequest.5.1

Set oHttp = CreateObject ( " WinHttp.WinHttpRequest.5.1 " )
oHttp.Option(
6 ) = 0 ' 禁止自动Redirect,最关键的
oHttp.SetTimeouts 9999999 , 9999999 , 9999999 , 9999999 ' 设置超时~和ServerXMLHTTP组件一样
oHttp.Open " GET " ,url, False ' 以同步模式打开URL
oHttp.Send
getHTTPhtml
= oHttp.Status

你可能感兴趣的:(request)