鱼刺类多线程投递任务崩溃

SummerTail

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程池	鱼刺类_线程池
post	类_POST数据类

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

线程池.创建 (20, 真, )

子程序名	返回值类型	公开	备 注
zmpt取邮件id
参数名	类 型	参考	可空	数组	备 注
page	文本型

变量名	类 型	静态	数组	备 注
maxPage	整数型
index	整数型
data	文本型
dom	类_DOM
size	整数型
i	整数型
href	文本型
_page	文本型
_cookie	文本型

线程_初始化COM库 ()
_cookie ＝
_page ＝ page
data ＝ 编码_Utf8到Ansi (网页_访问 (“” ＋ 到文本 (_page), 0, , _cookie, , , , , , , , , , ))
dom.解析 (data)
size ＝ dom.取节点_按节点名_数组 (“a”).取成员数 ()
计次循环首 (size, i)
href ＝ dom.取节点_按节点名_数组 (“a”)._ (i).取href ()
如果真 (文本_寻找文本 (href, “about:messages.php?action=viewmessage&id=”, , ) ≠ -1)
post.添加 (“messages[]”, 子文本替换 (href, “about:messages.php?action=viewmessage&id=”, “”, , , 真), )

计次循环尾 ()
线程_取消COM库 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
index	整数型

线程池.投递任务 (&zmpt取邮件id, 0, )
线程池.投递任务 (&zmpt取邮件id, 1, )
线程池.投递任务 (&zmpt取邮件id, 2, )
启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

判断循环首 (线程池.取_是否空闲 () ＝ 假)
判断循环尾 ()
调试输出 (post.获取Post数据 ())

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程池, 鱼刺类_线程池<br /> .程序集变量 post, 类_POST数据类<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 线程池.创建 (20, 真, )<br /> <br /> <br /> .子程序 zmpt取邮件id, , 公开<br /> .参数 page, 文本型<br /> .局部变量 maxPage, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 data, 文本型<br /> .局部变量 dom, 类_DOM<br /> .局部变量 size, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 href, 文本型<br /> .局部变量 _page, 文本型<br /> .局部变量 _cookie, 文本型<br /> <br /> <br /> 线程_初始化COM库 ()<br /> <br /> _cookie ＝<br /> _page ＝ page<br /> data ＝ 编码_Utf8到Ansi (网页_访问 (“” ＋ 到文本 (_page), 0, , _cookie, , , , , , , , , , ))<br /> dom.解析 (data)<br /> size ＝ dom.取节点_按节点名_数组 (“a”).取成员数 ()<br /> <br /> .计次循环首 (size, i)<br />     href ＝ dom.取节点_按节点名_数组 (“a”)._ (i).取href ()<br />     .如果真 (文本_寻找文本 (href, “about:messages.php?action=viewmessage&id=”, , ) ≠ -1)<br />         post.添加 (“messages[]”, 子文本替换 (href, “about:messages.php?action=viewmessage&id=”, “”, , , 真), )<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 线程_取消COM库 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 index, 整数型<br /> <br /> <br /> 线程池.投递任务 (&zmpt取邮件id, 0, )<br /> 线程池.投递任务 (&zmpt取邮件id, 1, )<br /> 线程池.投递任务 (&zmpt取邮件id, 2, )<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> <br /> .判断循环首 (线程池.取_是否空闲 () ＝ 假)<br /> <br /> .判断循环尾 ()<br /> 调试输出 (post.获取Post数据 ())

说明一下，投递一个任务没问题，但凡多一个都会崩溃

po1718

po1718 发表于 2023-8-16 16:22
看修改例子

多线程_加许可.e (1.09 MB, 下载次数: 83)

2023-8-16 16:25 上传

点击文件名下载附件
加许可证

冬夏

post 属于程序集公共变量，你多条线程一起操作肯定崩溃啊，加个许可证吧

SummerTail

冬夏 发表于 2023-8-16 15:07
post 属于程序集公共变量，你多条线程一起操作肯定崩溃啊，加个许可证吧 ...

加了也崩溃

SK在线

精易那么多多线程例子，，扒一个就好了噻！
https://bbs.125.la/forum.php?mod ... 14791920&extra=

小李哥v5

兄弟，千万不要用精易模块的网页访问类，用鱼刺自己的http类吧，曾经我为了找多线程崩溃，找了四五天，最后使用崩溃拦截模块，发现是网页访问的问题

po1718

多线程.e (1.09 MB, 下载次数: 22)

2023-8-16 16:22 上传

点击文件名下载附件


看修改例子