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.SendgetHTTPhtml = oHttp.Status