浅谈XMLHTTP对象(属性和方法)-VBA抓取网页数据续

status属性

返回当前请求的http状态码，长整型，只读。

语法
lValue = oXMLHttpRequest.status;

示例

Dim xmlServerHttp As New Msxml2.ServerXMLHTTP30
xmlServerHttp.open "GET", "http://localhost/books.xml", False
xmlServerHttp.send
MsgBox xmlServerHttp.status

返回值

长整形标准http状态码，定义如下：

状态码	描述
100	Continue
101	Switching protocols
200	OK
201	Created
202	Accepted
203	Non-Authoritative Information
204	No Content
205	Reset Content
206	Partial Content
300	Multiple Choices
301	Moved Permanently
302	Found
303	See Other
304	Not Modified
305	Use Proxy
307	Temporary Redirect
400	Bad Request
401	Unauthorized
402	Payment Required
403	Forbidden
404	Not Found
405	Method Not Allowed
406	Not Acceptable
407	Proxy Authentication Required
408	Request Timeout
409	Conflict
410	Gone
411	Length Required
412	Precondition Failed
413	Request Entity Too Large
414	Request-URI Too Long
415	Unsupported Media Type
416	Requested Range Not Suitable
417	Expectation Failed
500	Internal Server Error
501	Not Implemented
502	Bad Gateway
503	Service Unavailable
504	Gateway Timeout
505	HTTP Version Not Supported

备注

以长整形数字来表示当前请求的http状态,此属性仅当数据发送并接收完毕后才可获取。 而且，仅当readyState值为3(正在接收中)或4(已加载)时，这个status属性才可用。当readyState的值小于3时试图存取status的值将引发一个异常。

版本
MSXML 2.0及以上版本

statusText属性

返回当前请求的响应状态代码描述，字符串类型，只读。

语法
strValue = oXMLHttpRequest.statusText

示例

Dim xmlhttp As New Msxml2.XMLHTTP30
xmlhttp.open "GET", "http://localhost/books.xml", False
xmlhttp.send
MsgBox xmlhttp. statusText

备注

以BSTR返回当前请求的响应状态代码描述,此属性仅当数据发送并接收完毕后才可获取，即仅当readyState值为3或4才可用。当readyState为其它值时试图存取statusText属性将引发一个异常。

版本
MSXML 2.0及以上版本