CURL整理为精易模块网页访问格式，附带一个疑问 - 精易论坛

子程序名	返回值类型	公开	备注
网页访问_CURL	文本型
参数名	类型	参考	可空	数组	备注
网址	文本型
访问方式	整数型
提交信息	文本型
提交COOKIES	文本型
返回COOKIES	文本型
附加协议头	文本型
返回协议头	文本型
返回状态代码	文本型
禁止重定向	逻辑型
字节集提交	字节集
代理地址	文本型
超时	整数型
是否UTF8	逻辑型

变量名	类型	静态	数组	备注
curl_http	curl_http
访问方式_文本	文本型
返回数据	文本型

如果真 (超时＝ 0)
超时＝ 10000
curl_http.SetTimeout (超时, 超时) ' 超时
curl_http.Open (“GET”, 网址, 真) ' 局_请求地址

判断 (访问方式＝ 0)
访问方式_文本＝ “GET”

访问方式_文本＝ “POST”

如果真 (是否为空 (是否UTF8) ＝真)
是否UTF8 ＝真

如果真 (提交COOKIES ≠ “”)
curl_http.CookieAdd (提交COOKIES) ' 添加cookie

如果真 (附加协议头 ≠ “”)
curl_http.SetRequestHeaders (附加协议头) ' 局_协议头

如果真 (代理地址 ≠ “”)
curl_http.SetProxy (代理地址, 1, , )

判断 (禁止重定向)
curl_http.SetRedirect (假)

curl_http.SetRedirect (真) ' 自动重点向

判断 (取字节集长度 (字节集提交) ＞ 0)
curl_http.SendBin (字节集提交) ' 局_提交数据字节集

curl_http.Send (提交信息) ' 局_提交数据

返回COOKIES ＝ curl_http.CookieGetEx ()
返回协议头＝ curl_http.GetAllResponseHeaders ()
返回数据＝ curl_http.GetResponseTextUtf8ToAnsi ()
返回 (返回数据)

.版本 2<br />
<br />
<br />
<br />
.子程序 网页访问_CURL, 文本型<br />
.参数 网址, 文本型, 可空<br />
.参数 访问方式, 整数型, 可空<br />
.参数 提交信息, 文本型, 可空<br />
.参数 提交COOKIES, 文本型, 可空<br />
.参数 返回COOKIES, 文本型, 可空<br />
.参数 附加协议头, 文本型, 可空<br />
.参数 返回协议头, 文本型, 可空<br />
.参数 返回状态代码, 文本型, 可空<br />
.参数 禁止重定向, 逻辑型, 可空<br />
.参数 字节集提交, 字节集, 可空<br />
.参数 代理地址, 文本型, 可空<br />
.参数 超时, 整数型, 可空<br />
.参数 是否UTF8, 逻辑型, 可空<br />
.局部变量 curl_http, curl_http<br />
.局部变量 访问方式_文本, 文本型<br />
.局部变量 返回数据, 文本型<br />
<br />
.如果真 (超时 ＝ 0)<br />
超时 ＝ 10000<br />
.如果真结束<br />
curl_http.SetTimeout (超时, 超时) ' 超时<br />
curl_http.Open (“GET”, 网址, 真) ' 局_请求地址<br />
.判断开始 (访问方式 ＝ 0)<br />
访问方式_文本 ＝ “GET”<br />
.默认<br />
访问方式_文本 ＝ “POST”<br />
.判断结束<br />
<br />
.如果真 (是否为空 (是否UTF8) ＝ 真)<br />
是否UTF8 ＝ 真<br />
.如果真结束<br />
.如果真 (提交COOKIES ≠ “”)<br />
curl_http.CookieAdd (提交COOKIES) ' 添加cookie<br />
.如果真结束<br />
<br />
.如果真 (附加协议头 ≠ “”)<br />
curl_http.SetRequestHeaders (附加协议头) ' 局_协议头<br />
.如果真结束<br />
<br />
.如果真 (代理地址 ≠ “”)<br />
curl_http.SetProxy (代理地址, 1, , )<br />
.如果真结束<br />
<br />
.判断开始 (禁止重定向)<br />
curl_http.SetRedirect (假)<br />
.默认<br />
curl_http.SetRedirect (真) ' 自动重点向<br />
.判断结束<br />
<br />
.判断开始 (取字节集长度 (字节集提交) ＞ 0)<br />
curl_http.SendBin (字节集提交) ' 局_提交数据字节集<br />
.默认<br />
curl_http.Send (提交信息) ' 局_提交数据<br />
.判断结束<br />
<br />
返回COOKIES ＝ curl_http.CookieGetEx ()<br />
返回协议头 ＝ curl_http.GetAllResponseHeaders ()<br />
返回数据 ＝ curl_http.GetResponseTextUtf8ToAnsi ()<br />
<br />
返回 (返回数据)