LOCAL xmlhttp,strUrl,vRet,isTimeout
strUrl="http://XXX "
xmlhttp = newObject('Msxml2.serverXMLHTTP')
xmlhttp.setTimeouts(3000,3000,3000,5000)
&&解析响应超时时间,建立Winsock连接超时时间,发送数据超时时间,接收数据超时时间
xmlhttp.open("GET",strUrl, .f.)
isTimeout=.f.
TRY
xmlhttp.Send()
CATCH
=MESSAGEBOX('操作超时',16,'',2000)
isTimeout=.t.
ENDTRY
IF isTimeout=.f.
vRet=xmlhttp.responseText
ENDIF
RELEASE xmlhttp