精易模块 BUG反馈 说明

niyanbing

模块版本：6.9
所用系统：Win7  64
命令名称：
BUG描述：错误所处位置: 模块:"精易模块"; 程序集:"zc表操作"; 子程序:"取DWORD值"
错误(10165): 所指定参数需要以"参考"方式传递,但是此处无法将所提供参数的地址传递过去.

fengzixie

模块版本：精易模块V8.4.0
所用系统：Win10 64位）
命令名称：网页_访问_对象
BUG描述：错别字？参数名称为“是否补全必要协议头”，数据类型为“逻辑型（bool）”，所处语句为“网页_访问_对象”。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。  应该是附加？？？？
我的联系QQ：

@项目部004

参数名称为“是否补全必要协议头”，数据类型为“逻辑型（bool）”，所处语句为“网页_访问_对象”。注明：当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头。

yunying

模块版本：最新版本
所用系统：所有系统
命令名称：类_cookie
BUG描述：类_cookie.健  错别字【健】  修正【键】
我的联系QQ：123456

@项目部004

a121014179

a121014179 发表于 2020-8-16 00:10
模块版本：8.30
所用系统：win10
命令名称：文本_寻找出文本并删除(, , , )

.版本 2
.支持库 spec

调试输出 (文本_寻找出文本并删除 (“1234567890”, “1”, “1”, 假))

* “1234567890”
被调试易程序运行完毕
之前我用过这条命令很方便.如果需要删出“1”用这个命令就可以了  相当的的方便  现在不行了、】

补充内容 (2020-8-25 21:38):
精易模块6.2就可以

qq159033

模块版本：（如果你反馈的不是最新版本,请先下载最新版的测试一下）
所用系统：（如：XP、Win7 32位）
命令名称：文本类
BUG描述：模块本身取左边，右边，长度是按字节位置取，如果想取固定几个数，比如取5个、6个之类的，会出现乱码，取长度汉字加标点之类的也是不好用，建议增加取真实文本类，建议再增加取随机数2（整数）{不用每次都置随机种子}
我的联系QQ：938583801

@项目部004

  

子程序名	返回值类型	公开	备 注
文本_取文本右边	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
文本	文本型
字符数目	整数型

如果真 (字符数目 ＞ 取文本长度 (文本) 且 字符数目 ≤ 0)
返回 (“”)

返回 (取文本右边 (文本, GB_取字符真实位置 (文本, 字符数目)))

子程序名	返回值类型	公开	备 注
文本_取文本左边	文本型		失败返回空文本
参数名	类 型	参考	可空	数组	备 注
文本	文本型
字符数目	整数型

如果真 (字符数目 ＞ 取文本长度 (文本) 且 字符数目 ≤ 0)
返回 (“”)

返回 (取文本左边 (文本, GB_取字符真实位置 (文本, 字符数目)))

子程序名	返回值类型	公开	备 注
文本_取文本长度	整数型		获取文本的字符个数（非字节个数）
参数名	类 型	参考	可空	数组	备 注
文本	文本型

变量名	类 型	静态	数组	备 注
buffer	字节集
i	整数型
字数	整数型
字符大小	整数型

如果真 (文本 ＝ “”)
返回 (0)

buffer ＝ 到字节集 (文本)
i ＝ 1
判断循环首 (i ≤ 取字节集长度 (buffer))
字符大小 ＝ 文本_取字符大小 (文本, i)
字数 ＝ 字数 ＋ 1
i ＝ i ＋ 字符大小
判断循环尾 ()
返回 (字数)

子程序名	返回值类型	公开	备 注
文本_取字符大小	整数型		返回指定字节位置的字符的字节数，失败返回 -1
参数名	类 型	参考	可空	数组	备 注
文本	文本型
字节位置	整数型

变量名	类 型	静态	数组	备 注
buffer	字节集

如果真 (字节位置 ＞ 取文本长度 (文本) 且 字节位置 ≠ 0)
返回 (-1)

buffer ＝ 到字节集 (文本)
' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节
如果真 (buffer [字节位置] ≥ 161)
如果真 (字节位置 ≠ 取字节集长度 (buffer) 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出
返回 (2)
返回 (2)
返回 (1)

子程序名	返回值类型	公开	备 注
GB_取字符真实位置	整数型		返回指定字符位置在文本中的【字节位置】
参数名	类 型	参考	可空	数组	备 注
文本	文本型
字符位置	整数型

变量名	类 型	静态	数组	备 注
buffer	字节集
i				真实字符数字
字节数				实际字节数

如果真 (字符位置 ＞ 取文本长度 (文本) 或 字符位置 ＜ 0)
返回 (-1)
如果真 (字符位置 ＝ 0)
返回 (0)

buffer ＝ 到字节集 (文本)
i ＝ 1
字节数 ＝ 1  ' 字节数从 1 开始，因为易语言中数组下标不能从 0 开始
判断循环首 (i ≤ 字符位置)
字节数 ＝ 字节数 ＋ 文本_取字符大小 (文本, 字节数)
i ＝ i ＋ 1
判断循环尾 ()
' 字节数 - 1 是因为一开始字节数就多算了一个
返回 (字节数 － 1)

.版本 2<br /> <br /> .子程序 文本_取文本右边, 文本型, 公开, 失败返回空文本<br /> .参数 文本, 文本型<br /> .参数 字符数目, 整数型<br /> <br /> .如果真 (字符数目 ＞ 取文本长度 (文本) 且 字符数目 ≤ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 返回 (取文本右边 (文本, GB_取字符真实位置 (文本, 字符数目)))<br /> <br /> .子程序 文本_取文本左边, 文本型, 公开, 失败返回空文本<br /> .参数 文本, 文本型<br /> .参数 字符数目, 整数型<br /> <br /> .如果真 (字符数目 ＞ 取文本长度 (文本) 且 字符数目 ≤ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 返回 (取文本左边 (文本, GB_取字符真实位置 (文本, 字符数目)))<br /> <br /> .子程序 文本_取文本长度, 整数型, 公开, 获取文本的字符个数（非字节个数）<br /> .参数 文本, 文本型<br /> .局部变量 buffer, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 字数, 整数型<br /> .局部变量 字符大小, 整数型<br /> <br /> .如果真 (文本 ＝ “”)<br />     返回 (0)<br /> .如果真结束<br /> <br /> buffer ＝ 到字节集 (文本)<br /> i ＝ 1<br /> <br /> .判断循环首 (i ≤ 取字节集长度 (buffer))<br />     字符大小 ＝ 文本_取字符大小 (文本, i)<br />     字数 ＝ 字数 ＋ 1<br />     i ＝ i ＋ 字符大小<br /> .判断循环尾 ()<br /> <br /> 返回 (字数)<br /> <br /> .子程序 文本_取字符大小, 整数型, 公开, 返回指定字节位置的字符的字节数，失败返回 -1<br /> .参数 文本, 文本型<br /> .参数 字节位置, 整数型<br /> .局部变量 buffer, 字节集<br /> <br /> .如果真 (字节位置 ＞ 取文本长度 (文本) 且 字节位置 ≠ 0)<br />     返回 (-1)<br /> .如果真结束<br /> <br /> buffer ＝ 到字节集 (文本)<br /> <br /> ' 原理：GB2312 编码中，如果一个字符的第一个字节大于 161，那这个字符就占 2 个字节<br /> .如果真 (buffer [字节位置] ≥ 161)<br />     .如果真 (字节位置 ≠ 取字节集长度 (buffer) 且 buffer [字节位置 ＋ 1] ≥ 161)  ' 防止下标溢出<br />         返回 (2)<br />     .如果真结束<br />     返回 (2)<br /> .如果真结束<br /> 返回 (1)<br /> <br /> .子程序 GB_取字符真实位置, 整数型, 公开, 返回指定字符位置在文本中的【字节位置】<br /> .参数 文本, 文本型<br /> .参数 字符位置, 整数型<br /> .局部变量 buffer, 字节集<br /> .局部变量 i, , , , 真实字符数字<br /> .局部变量 字节数, , , , 实际字节数<br /> <br /> .如果真 (字符位置 ＞ 取文本长度 (文本) 或 字符位置 ＜ 0)<br />     返回 (-1)<br /> .如果真结束<br /> .如果真 (字符位置 ＝ 0)<br />     返回 (0)<br /> .如果真结束<br /> <br /> buffer ＝ 到字节集 (文本)<br /> <br /> i ＝ 1<br /> 字节数 ＝ 1  ' 字节数从 1 开始，因为易语言中数组下标不能从 0 开始<br /> .判断循环首 (i ≤ 字符位置)<br />     字节数 ＝ 字节数 ＋ 文本_取字符大小 (文本, 字节数)<br />     i ＝ i ＋ 1<br /> .判断循环尾 ()<br /> <br /> ' 字节数 - 1 是因为一开始字节数就多算了一个<br /> 返回 (字节数 － 1)

a121014179

模块版本：8.30
所用系统：win10
命令名称：文本_寻找出文本并删除(, , , )
BUG描述：

文本_寻找出文本并删除, 文本型, , 比如：欲寻找的全文本为<12345789>,如果现在要删除2,以前只要填写删除2到2之间的全部字符，包括2跟2,成功返回删除后的结果文本，失败返回原文本！现在直接就失败了返回了原文本 。建议可以删除本身比较好用  而且也常用


补充内容 (2020-8-22 22:54):

a121014179 发表于 2020-8-16 00:10
模块版本：8.30
所用系统：win10
命令名称：文本_寻找出文本并删除(, , , )

.版本 2
.支持库 spec

调试输出 (文本_寻找出文本并删除 (“1234567890”, “1”, “1”, 假))

* “1234567890”
被调试易程序运行完毕
之前我用过这条命令很方便.如果需要删出“1”用这个命令就可以了  相当的的方便  现在不行了、】

外星星人

模块版本：8.30
所用系统：
命令名称：文本_倒取出中间文本
BUG描述：少了两行替换#引号的代码

右边文本 ＝ 子文本替换 (右边文本, “#引号”, #引号, , , 真)
左边文本 ＝ 子文本替换 (左边文本, “#引号”, #引号, , , 真)

@项目部004

qq159033

模块版本：（如果你反馈的不是最新版本,请先下载最新版的测试一下）
所用系统：WIN10
命令名称：抓包工具
BUG描述：都是WIN10 64位。有的电脑能返回提交信息，有的电脑没有提交信息
我的联系QQ：

@项目部004

doable

模块版本：（8.3）
所用系统：（Win7 64位）
命令名称：MultiByteToWideChar（DLL命令）                  WideCharToMultiByte（DLL命令）
BUG描述：这些参数类型均为整数，但在e助手上不是这样的，而且我的用法偏向e助手上的写法，能否看看是不是写错了，另外能否增加TextOutW和CreateFontW的DLL命令
我的联系QQ：1601957127

@项目部004

673150382

模块版本：8.3.0
所用系统：Win7 64位）
命令名称：网页_访问  网页_访问S  网页_访问_对象
BUG描述：多线程使用代理IP  设置的超时时间部分线程无效  在代理有效的情况下  

1. * “耗时：” | 577.000000
   
2. * “耗时：” | 577.000000
   
3. * “耗时：” | 624.000000
   
4. * “发送数据耗时：” | 562.000000
   
5. * “耗时：” | 624.000000
   
6. * “耗时：” | 655.000000
   
7. * “耗时：” | 671.000000
   
8. * “发送数据耗时：” | 27269.000000
   
9. * “耗时：” | 27347.000000
   
10. * “发送数据耗时：” | 219.000000
    
11. * “耗时：” | 265.000000
    
12. * “发送数据耗时：” | 249.000000
    
13. * “发送数据耗时：” | 296.000000
    
14. * “发送数据耗时：” | 328.000000
    
15. * “耗时：” | 344.000000
    
16. * “发送数据耗时：” | 265.000000
    
17. * “发送数据耗时：” | 296.000000
    
18. * “耗时：” | 422.000000
    
19. * “发送数据耗时：” | 405.000000
    
20. * “发送数据耗时：” | 327.000000
    
21. * “耗时：” | 358.000000
    
22. * “耗时：” | 452.000000
    
23. * “发送数据耗时：” | 406.000000
    
24. * “耗时：” | 437.000000
    
25. * “耗时：” | 561.000000
    
26. * “耗时：” | 546.000000
    
27. * “耗时：” | 515.000000
    
28. * 1
    
29. * “发送数据耗时：” | 265.000000
    
30. * “耗时：” | 281.000000
    
31. * 58
    
32. * “发送数据耗时：” | 219.000000
    
33. * “发送数据耗时：” | 28329.000000
    
34. * “耗时：” | 327.000000
    
35. * “发送数据耗时：” | 266.000000
    
36. * “耗时：” | 28424.000000
    
37. * 57
    
38. * “发送数据耗时：” | 312.000000
    
39. * “耗时：” | 422.000000
    
40. * “发送数据耗时：” | 375.000000
    
41. * 56
    
42. * 56
    
43. * “发送数据耗时：” | 421.000000
    
44. * “发送数据耗时：” | 406.000000
    
45. * “耗时：” | 499.000000
    
46. * “耗时：” | 514.000000
    
47. * “耗时：” | 562.000000
    
48. * “耗时：” | 624.000000
    
49. * 54
    
50. * “发送数据耗时：” | 1248.000000
    
51. * 53
    
52. * “耗时：” | 1326.000000
    
53. * 52
    
54. * 51
    
55. * 51
    
56. * “发送数据耗时：” | 29235.000000
    
57. * “耗时：” | 29282.000000
    
58. * 49
    
59. * “发送数据耗时：” | 29796.000000
    
60. * “耗时：” | 29843.000000
    
61. * 48
    
62. * “发送数据耗时：” | 30483.000000
    
63. * “耗时：” | 30545.000000
    
64. * 47
    
65. * “发送数据耗时：” | 4243.000000
    
66. * “耗时：” | 4290.000000

复制代码

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 网页_访问_对象, 字节集, 公开, 使用WinHttp的对象方式访问网页
   
5. .参数 网址, 文本型, , 完整的网页地址,必须包含http://或者https://
   
6. .参数 访问方式, 整数型, 可空, 0=GET 1=POST 2=HEAD 3=PUT  4=OPTIONS  5=DELETE  6=TRACE  7=CONNECT
   
7. .参数 提交信息, 文本型, 可空, "POST"专用   自动UTF8编码
   
8. .参数 提交Cookies, 文本型, 参考 可空, 设置提交时的cookie
   
9. .参数 返回Cookies, 文本型, 参考 可空, 返回的Cookie
   
10. .参数 附加协议头, 文本型, 可空, 一行一个请用换行符隔开
    
11. .参数 返回协议头, 文本型, 参考 可空, 返回的协议头
    
12. .参数 返回状态代码, 整数型, 参考 可空, 网页返回的状态代码，例如：200；302；404等
    
13. .参数 禁止重定向, 逻辑型, 可空, 默认不禁止网页重定向
    
14. .参数 字节集提交, 字节集, 可空, 提交字节集数据
    
15. .参数 代理地址, 文本型, 可空, 代理地址，格式为 8.8.8.8:88
    
16. .参数 超时, 整数型, 可空, 秒|默认为15秒,-1为无限等待
    
17. .参数 代理用户名, 文本型, 可空, 用户名
    
18. .参数 代理密码, 文本型, 可空, 密码
    
19. .参数 代理标识, 整数型, 可空, 代理标识，默认为1，0为路由器
    
20. .参数 对象继承, 对象, 可空, 此处可自行提供对象，不再主动创建
    
21. .参数 是否自动合并更新Cookie, 逻辑型, 可空, 默认为真，自动合并更新
    
22. .参数 是否补全必要协议头, 逻辑型, 可空, 当附件协议头为空时自动添加必要的UA协议头 默认为真，假将不再添加非传入协议头
    
23. .参数 是否处理协议头大小写, 逻辑型, 可空, 将协议头中的键名首字母处理为大写  默认为真
    
24. .局部变量 局_访问方式, 文本型
    
25. .局部变量 局_WinHttp, 对象
    
26. .局部变量 局_发送协议头, 文本型, , "0"
    
27. .局部变量 局_返回协议头, 文本型, , "0"
    
28. .局部变量 局_计次, 整数型
    
29. .局部变量 局_网页数据, 字节集
    
30. .局部变量 局_变体提交, 变体型
    
31. .局部变量 局_附加协议头, 文本型
    
32. .局部变量 tt, 整数型
    
33. .局部变量 tt1, 整数型
    
34. 
    
35. tt ＝ 取启动时间 ()
    
36. .如果真 (是否为空 (是否自动合并更新Cookie))
    
37.     是否自动合并更新Cookie ＝ 真
    
38. .如果真结束
    
39. 
    
40. .如果真 (是否为空 (是否补全必要协议头))
    
41.     是否补全必要协议头 ＝ 真
    
42. .如果真结束
    
43. 
    
44. .如果真 (是否为空 (是否处理协议头大小写))
    
45.     是否处理协议头大小写 ＝ 真
    
46. .如果真结束
    
47. 
    
48. 线程_初始化COM库 ()
    
49. 
    
50. .如果真 (访问方式 ＜ 0 或 访问方式 ＞ 7)
    
51.     访问方式 ＝ 0
    
52. .如果真结束
    
53. 局_访问方式 ＝ 多项选择 (访问方式 ＋ 1, “GET”, “POST”, “HEAD”, “PUT”, “OPTIONS”, “DELETE”, “TRACE”, “CONNECT”)
    
54. 
    
55. .判断开始 (是否为空 (对象继承))
    
56.     .如果真 (局_WinHttp.创建 (“WinHttp.WinHttpRequest.5.1”, ) ＝ 假)
    
57.         返回 ({  })
    
58.     .如果真结束
    
59. 
    
60. .默认
    
61.     局_WinHttp ＝ 对象继承
    
62. .判断结束
    
63. 
    
64. 超时 ＝ 6
    
65. .如果真 (超时 ≠ -1)
    
66.     .如果 (超时 ＜ 1)
    
67.         超时 ＝ 15000
    
68.     .否则
    
69.         超时 ＝ 超时 × 1000
    
70.     .如果结束
    
71.     局_WinHttp.方法 (“SetTimeouts”, 超时, 超时, 超时, 超时)
    
72. .如果真结束
    
73. 
    
74. 
    
75. .如果真 (代理地址 ≠ “”)
    
76.     局_WinHttp.方法 (“SetProxy”, 2, 代理地址)
    
77. .如果真结束
    
78. tt1 ＝ 取启动时间 ()
    
79. 局_WinHttp.方法 (“Open”, 局_访问方式, 网址, 假)
    
80. .如果真 (取启动时间 () － tt1 ≥ 5000)
    
81.     调试输出 (“打开连接耗时大于5秒，返回。”)
    
82.     局_WinHttp.清除 ()
    
83.     线程_取消COM库 ()
    
84.     返回 (局_网页数据)
    
85. 
    
86. .如果真结束
    
87. 
    
88. .如果真 (禁止重定向)
    
89.     局_WinHttp.写属性 (“Option”, 6, 0)
    
90. .如果真结束
    
91. 
    
92. 局_WinHttp.写属性 (“Option”, 4, 13056)  ' 忽略错误标志
    
93. 
    
94. 局_附加协议头 ＝ 附加协议头
    
95. .如果真 (是否补全必要协议头)
    
96.     .如果真 (寻找文本 (局_附加协议头, “Accept:”, , 真) ＝ -1)
    
97.         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept: */*”
    
98.     .如果真结束
    
99. 
    
100.     .如果真 (寻找文本 (局_附加协议头, “Referer:”, , 真) ＝ -1)
     
101.         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Referer: ” ＋ 网址
     
102.     .如果真结束
     
103. 
     
104.     .如果真 (寻找文本 (局_附加协议头, “Accept-Language:”, , 真) ＝ -1)
     
105.         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Accept-Language: zh-cn”
     
106.     .如果真结束
     
107. 
     
108.     .如果真 (寻找文本 (局_附加协议头, “User-Agent:”, , 真) ＝ -1)
     
109.         局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 9.0; Windows NT 6.1)”
     
110.     .如果真结束
     
111. 
     
112.     .如果真 (访问方式 ＝ 1)
     
113.         .如果真 (寻找文本 (局_附加协议头, “Content-Type:”, , 真) ＝ -1)
     
114.             局_附加协议头 ＝ 局_附加协议头 ＋ #换行符 ＋ “Content-Type: application/x-www-form-urlencoded”
     
115.         .如果真结束
     
116. 
     
117.     .如果真结束
     
118. 
     
119. .如果真结束
     
120. 
     
121. .如果真 (是否处理协议头大小写)
     
122.     局_附加协议头 ＝ 网页_处理协议头 (局_附加协议头)
     
123. .如果真结束
     
124. 
     
125. .如果真 (代理地址 ≠ “” 且 代理用户名 ≠ “”)
     
126.     .如果真 (是否为空 (代理标识))
     
127.         代理标识 ＝ 1
     
128.     .如果真结束
     
129. 
     
130.     局_WinHttp.方法 (“SetCredentials”, 代理用户名, 代理密码, 代理标识)
     
131.     .如果真 (代理标识 ＝ 1)
     
132.         局_WinHttp.方法 (“SetRequestHeader”, “Proxy-Authorization”, “Basic ” ＋ 编码_BASE64编码 (到字节集 (代理用户名 ＋ “:” ＋ 代理密码)))
     
133.     .如果真结束
     
134. 
     
135. .如果真结束
     
136. 
     
137. .如果真 (取反 (是否为空 (提交Cookies)))
     
138.     .如果真 (取文本长度 (提交Cookies) ＞ 0)
     
139.         .如果真 (寻找文本 (提交Cookies, “Cookie:”, , 真) ≠ -1)
     
140.             提交Cookies ＝ 子文本替换 (提交Cookies, “Cookie:”, “”, , , 假)
     
141.         .如果真结束
     
142. 
     
143.     .如果真结束
     
144.     局_WinHttp.方法 (“SetRequestHeader”, “Cookie”, 提交Cookies)
     
145. .如果真结束
     
146. 
     
147. 
     
148. .判断开始 (寻找文本 (局_附加协议头, #换行符, , 假) ＝ -1)
     
149.     局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_附加协议头), 内部_协议头取值 (局_附加协议头))
     
150. .默认
     
151.     局_发送协议头 ＝ 分割文本 (局_附加协议头, #换行符, )
     
152.     .计次循环首 (取数组成员数 (局_发送协议头), 局_计次)
     
153.         .如果真 (局_发送协议头 [局_计次] ≠ “”)
     
154.             .如果真 (内部_协议头取名 (局_发送协议头 [局_计次]) ＝ “Connection”)
     
155.                 .如果真 (内部_协议头取值 (局_发送协议头 [局_计次]) ＝ “keep-alive”)
     
156.                     到循环尾 ()  ' 筛选排除此参数 避免协议头有此参数 HTTP对象又自动添加此参数
     
157.                 .如果真结束
     
158. 
     
159.             .如果真结束
     
160. 
     
161.             局_WinHttp.方法 (“SetRequestHeader”, 内部_协议头取名 (局_发送协议头 [局_计次]), 内部_协议头取值 (局_发送协议头 [局_计次]))
     
162.         .如果真结束
     
163. 
     
164.     .计次循环尾 ()
     
165. .判断结束
     
166. 
     
167. tt1 ＝ 取启动时间 ()
     
168. .判断开始 (字节集提交 ＝ {  })
     
169.     局_WinHttp.方法 (“Send”, 提交信息)
     
170. .默认
     
171.     局_变体提交.赋值 (字节集提交, )
     
172.     局_WinHttp.方法 (“Send”, 局_变体提交)
     
173. .判断结束
     
174. 调试输出 (“发送数据耗时：”, 取启动时间 () － tt1)
     
175. 
     
176. 局_网页数据 ＝ 局_WinHttp.读属性 (“ResponseBody”, ).取字节集 ()
     
177. 返回协议头 ＝ 局_WinHttp.读文本属性 (“GetAllResponseHeaders”, )
     
178. 返回状态代码 ＝ 局_WinHttp.读数值属性 (“Status”, )
     
179. 局_WinHttp.读文本属性 (“StatusText”, )
     
180. 局_返回协议头 ＝ 分割文本 (返回协议头, #换行符, )
     
181. 返回Cookies ＝ “”
     
182. .计次循环首 (取数组成员数 (局_返回协议头), 局_计次)
     
183.     .如果真 (文本_取左边 (局_返回协议头 [局_计次], “: ”) ＝ “Set-Cookie”)
     
184.         .判断开始 (寻找文本 (局_返回协议头 [局_计次], “;”, , 假) ≠ -1)
     
185.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (文本_取出中间文本 (局_返回协议头 [局_计次], “Set-Cookie:”, “;”)) ＋ “; ”
     
186.         .默认
     
187.             返回Cookies ＝ 返回Cookies ＋ 删首尾空 (子文本替换 (局_返回协议头 [局_计次], “Set-Cookie:”, , , , 假)) ＋ “; ”
     
188.         .判断结束
     
189. 
     
190.     .如果真结束
     
191. 
     
192. .计次循环尾 ()
     
193. .如果真 (取文本左边 (返回Cookies, 2) ＝ “; ”)
     
194.     返回Cookies ＝ 取文本左边 (返回Cookies, 取文本长度 (返回Cookies) － 2)
     
195. .如果真结束
     
196. 
     
197. 
     
198. .如果真 (是否自动合并更新Cookie)
     
199.     .如果真 (取反 (是否为空 (提交Cookies)))
     
200.         返回Cookies ＝ 网页_Cookie合并更新 (提交Cookies, 返回Cookies)
     
201.     .如果真结束
     
202. 
     
203. .如果真结束
     
204. 局_WinHttp.清除 ()
     
205. 线程_取消COM库 ()
     
206. 调试输出 (“耗时：”, 取启动时间 () － tt)
     
207. 返回 (局_网页数据)
     

复制代码

我的联系QQ：

@项目部004