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

louxu163

  

子程序名	返回值类型	公开	备 注
网页访问_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 /> 返回 (返回数据)

有一个问题，就是通过代理访问的情况下，代理若是失效了，有一定几率无限时间卡住，设置超时时间不管用，不用代理的情况下，是否无限卡主没测试，有啥解决方案吗
DLL及模块.rar (1.76 MB, 下载次数: 35)

2024-1-6 15:39 上传

点击文件名下载附件

观音

没啥好办法 winhttp 的通病 可以把超时时间设置为 500毫秒 反正最多也就卡死几十秒

louxu163

观音 发表于 2024-1-6 16:02
没啥好办法 winhttp 的通病 可以把超时时间设置为 500毫秒 反正最多也就卡死几十秒  ...

卡一个小时都正常

观音

louxu163 发表于 2024-1-6 16:06
卡一个小时都正常

网页_访问 的超时单位是秒 设置成1试试

louxu163

观音 发表于 2024-1-6 16:50
网页_访问 的超时单位是秒 设置成1试试

是CURL的http访问，设置超时1的话，也会无限时间卡下去

ShanXun

curl_http.SetTimeout   应该是秒  curl_http.SetTimeouts  才是毫秒

mytiger

在论坛搜索代理验证,现验证一下代理是否失效.

iamafailor

建议现用发包工具自己测试一下

malu

1111111111111111111111111

fzxfzr

用异步调试