vba的xmlhttp对象的使用

1、xmlhttp：
　　早期用于远程数据库管理；
　　传送XML数据格式的超长文本传输协议；
　　不仅仅是XML格式；
　　还可以是字符串，二进制流等。
2、引用方式
　　（1）直接引用：Microsoft XML（建议初学者用这种，可以看到提示）
　　（2）后期绑定：createobject（“MSXML2.XMLHTTP”）\createobject（“Microsoft.XMLHTTP”）。
3、属性和方法
（1）responsebody属性
　　作用：将响应信息以二进制流形式返回，只读。
（2）responsetext属性
　　作用：将响应信息作为字符串返回，只读。
（3）readystate属性
　　作用：返回当前请求的状态，只读。
readystate属性的状态：
　　0：请求未初始化，还没有调用open方法；
　　1：请求已经建立，但是还没有发送；
　　：请求已经发送，正在处理；
　　3：请求在处理中，部分响应了；
　　4：响应已完全完成。
（4）方法
　　*open方法：
　　　　作用：创建新的http请求；
　　　　格式：xmlHttp.Open请求方式，网址，是否异步。

　　*send方法：
　　　　作用：发送请求；
　　　　格式：xmlHttp.send。

　　*setRequestHeader方法：
　　　　作用：设置请求的头信息；
　　　　格式：xmlHttp.setRequestHeader参数名，参数值。

　　*getResponseHeader方法：
　　　　作用：获取响应数据的头信息；
　　　　格式：xmlHttp.getResponseHeader参数名。

4、通用代码
（1）创建对象
　　Dim xmlHttp as Object
　　Set xmlHttp=CreateObject("MSXML2.XMLHTTP)
（2）请求部分
　　xmlHttp.Open "get","url",false
　　xmlHttp.setRequestHeader "",""
　　xmlHttp.send
（3）等待响应
　　Do While xmlHttp.readystate<>4
　　　　DoEvents
　　Loop
（4）响应结果
　　Dim strText as String
　　strText = xmlHttp.responseText