|
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
|
