Microsoft.XMLHttp组件的属性方法

一、使用步骤：

1、创建XMLHTTP对象 //需MSXML4.0支持
2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普通HTTP指令传送一样，可以用"GET"方法或"POST"方法指向服务端的服务网页。
3、发送指令。
4、等待并接收服务端返回的处理结果。
5、释放XMLHTTP对象

二、XMLHTTP方法：

Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ）

bstrMethod： 数据传送方式，即GET或POST。
bstrUrl： 服务网页的URL。
varAsync： 是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。一般将其置为False，即异步执行。
bstrUser： 用户名，可省略。
bstrPassword：用户口令，可省略。

Send（ varBody ）

varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。

setRequestHeader（ bstrHeader, bstrvalue ）

bstrHeader：HTTP 头(header)
bstrvalue： HTTP 头(header)的值
如果Open方法定义为POST，可以定义表单方式上传：
xmlhttp.setRequestHeader（ “Content-Type”, “application/x-www-form-urlencoded”）

三、XMLHTTP属性：

onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
responseBody： 结果返回为无符号整数数组。
responseStream： 结果返回为IStream流。
responseText ： 结果返回为字符串。
responseXML： 结果返回为XML格式数据。

四、具体的使用方法

创建XMLHTTP对象的语句如下：
OleObject lole_get_https //声明ole
lole_get_https = CREATE oleobject
long llr
//llr = lole_get_https.ConnectToNewObject(“Microsoft.XMLHttp”) //帮顶XMLhttp组件，xp和win7、win10都自带，不需安装任何辅助软件如.net环境
llr = lole_get_https.ConnectToNewObject(“MSXML2.ServerXMLHTTP”)

lole_get_https.open (“GET”,ls_url, false) //Get方法同步
/*
Open方法中包含了5个参数，前三个是必要的，后两个是可选的(在服务器需要进行身份验证时提供)。参数的含义如下所示：

http-method：HTTP的通信方式，比如GET或是POST
url：接收XML数据的服务器的URL地址。通常在URL中要指明ASP或CGI程序
async：一个布尔标识，说明请求是否为异步的。如果是异步通信方式(true)，客户机就不等待服务器的响应；如果是同步方式(false)，客户机就要等到服务器返回消息后才去执行其他操作
userID：用户ID，用于服务器身份验证
password：用户密码，用于服务器身份验证
*/
lole_get_https.setRequestHeader (“Content-type”, “application/x-www-form-urlencoded”)
//lole_get_https.setRequestHeader (“Content-type”, “text/html”)

lole_get_https.setRequestHeader(‘Content-Length’,string(len(ls_data)))

lole_get_https.send (ls_data)
/*
XMLHTTP对象的Send方法
用Open方法对Request对象进行初始化后，调用Send方法发送XML数据：
lole_get_https.send()
Send方法的参数类型是Variant，可以是字符串、DOM树或任意数据流。

发送数据的方式分为同步和异步两种。在异步方式下，数据包一旦发送完毕，就结束Send进程，客户机执行其他的操作；而在同步方式下，客户机要等到服务器返回确认消息后才结束Send进程。
*/
XMLHTTP对象中的readyState属性

其能够反映出服务器在处理请求时的进展状况。客户机的程序可以根据这个状态信息设置相应的事件处理方法。属性值及其含义如下表所示：

值　　说明
0 　　Response对象已经创建，但XML文档上载过程尚未结束
1 　　XML文档已经装载完毕
2 　　XML文档已经装载完毕，正在处理中
3 　　部分XML文档已经解析
4 　　文档已经解析完毕，客户端可以接受返回消息

客户机处理响应信息，客户机接收到返回消息后，进行简单的处理，基本上就完成了C/S之间的一个交互周期。

客户机接收响应是通过XMLHTTP对象的属性实现的：

responseText：将返回消息作为文本字符串；
responseBody：将返回消息作为HTML文档内容；
responseXML：将返回消息视为XML文档，在服务器响应消息中含有XML数据时使用；
responseStream：将返回消息视为Stream对象

五、PB8下封装的一个全局函数

global type gf_get_https from function_object
end typeforward prototypes
global function string gf_get_https (string as_url, string as_data)
end prototypesglobal function string gf_get_https (string as_url, string as_data);// 用Microsoft.XMLHttp组件GET同步方法爬取https网页 by 白龙马 22-05-21/* 调用参数示例 
String ls_url,ls_data,ls_response
ls_url = 'https://datacenter-web.eastmoney.com/api/data/v1/get?'
ls_data = "callback=jQuery11230903969942572268_1651624511350&sortColumns=UPDATE_DATE,SECURITY_CODE&sortTypes=-1,-1&pageSize=50&pageNumber=1&reportName=RPT_LICO_FN_CPD&columns=ALL&filter=(REPORTDATE='2023-09-30')"
*/String ls_url,ls_data,ls_response//采用https的URL
ls_url = as_url
ls_data = as_data OleObject lole_get_https   //声明ole
lole_get_https = CREATE oleobject long llr
llr = lole_get_https.ConnectToNewObject("Microsoft.XMLHttp")  //帮顶XMLhttp组件，xp和win7、win10都自带，不需安装任何辅助软件如.net环境
//llr = lole_get_https.ConnectToNewObject("MSXML2.ServerXMLHTTP") 
//llr = lole_get_https.ConnectToNewObject("MSXML2.XMLHTTP") lole_get_https.open ("GET",ls_url, false)    //Get方法同步lole_get_https.setRequestHeader ("Content-type", "application/x-www-form-urlencoded")
//lole_get_https.setRequestHeader ("Content-type", "text/html")lole_get_https.setRequestHeader('Content-Length',string(len(ls_data)))lole_get_https.send(ls_data) /*
关键是这一步：如果你的https的环境没有安装浏览器的认证的根证书，一定会报错退出，
如果你申请安装了verisign等权威机构发的根证书，用ie打开上面的https，就不会报红色警告（问你是不是继续）。
但pb不会提示你是不是继续，直接报错退出。verisign的证书一年好像要1万-10万元的服务费。在这里你如果想测试一下，
你可以把上面的https地址换成https://www.alipay.com/  (支付宝的)，不会报错的。注意：这里的证书及验证都是单向验证，不是双向的。
*/
ls_response = lole_get_https.responseText //返回结果//messagebox("responseText",ls_response)    IF lole_get_https.Status >= 300 THEN MessageBox ("HTTPs request failed:", string(lole_get_https.StatusText)) 
END IF //销毁 ole
destroy lole_get_https
return ls_response
end function

六 爬取上市公司主要财务数据示例

String ls_url,ls_data,ls_response
ls_url = 'https://datacenter-web.eastmoney.com/api/data/v1/get?'
ls_data = "callback=jQuery11230903969942572268_1651624511350&sortColumns=UPDATE_DATE,SECURITY_CODE&sortTypes=-1,-1&pageSize=50&pageNumber=1&reportName=RPT_LICO_FN_CPD&columns=ALL&filter=(REPORTDATE='2023-09-30')"
ls_response = gf_get_https(ls_url,ls_data)