谁能吧这个例子改成鱼刺多线程

851375257

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

启动线程 (&子程序2, , )
返回 (0)  ' 可以根据您的需要返回任意数值

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

计次循环首 (99999, )
子程序1 ()
处理事件 ()
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_text	文本型
局_json	类_json
局_url	文本型
局_任务数	整数型
局_次数	整数型
局_任务id	文本型
局_data	文本型

局_url ＝ “www.baidu.com”
局_text ＝ 到文本 (网页_访问_对象 (局_url))
如果真 (局_json.解析 (局_text))
局_任务数 ＝ 局_json.成员数 (“data.data”)
计次循环首 (局_任务数, 局_次数)
局_任务id ＝ 局_json.取通用属性 (“data.data[” ＋ 到文本 (局_次数 － 1) ＋ “].id”)
局_url ＝ “www.baidu.com”
局_data ＝ 局_任务id
局_text ＝ 到文本 (网页_访问_对象 (局_url, 1, 局_data, ))
如果真 (局_text ≠ “”)
' 临界.进入 ()
' 成功  
' 临界.退出 ()

处理事件 ()
计次循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 启动线程 (&子程序2, , )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序2<br /> <br /> .计次循环首 (99999, )<br />     子程序1 ()<br />     处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 局_text, 文本型<br /> .局部变量 局_json, 类_json<br /> .局部变量 局_url, 文本型<br /> .局部变量 局_任务数, 整数型<br /> .局部变量 局_次数, 整数型<br /> .局部变量 局_任务id, 文本型<br /> .局部变量 局_data, 文本型<br /> <br /> 局_url ＝ “<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com</a>”<br /> 局_text ＝ 到文本 (网页_访问_对象 (局_url))<br /> .如果真 (局_json.解析 (局_text))<br />     局_任务数 ＝ 局_json.成员数 (“data.data”)<br />     .计次循环首 (局_任务数, 局_次数)<br />         局_任务id ＝ 局_json.取通用属性 (“data.data[” ＋ 到文本 (局_次数 － 1) ＋ “].id”)<br /> <br /> <br />         局_url ＝ “<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">www.baidu.com</a>”<br />         局_data ＝ 局_任务id<br />         局_text ＝ 到文本 (网页_访问_对象 (局_url, 1, 局_data, ))<br />         .如果真 (局_text ≠ “”)<br /> '临界.进入 ()<br />             ' 成功  <br /> '临界.退出 ()<br />         .如果真结束<br /> <br /> <br />         处理事件 ()<br />     .计次循环尾 ()<br /> .如果真结束

谁能把这个例子改成鱼刺多线程
最好能备注 说明一下

青舟

https://bbs.125.la/forum.php?mod ... 14523654&extra=
看看这个应该你就能改了

就是那个秋

简单              

851375257

lazy心宿 发表于 2020-1-6 01:33
https://bbs.125.la/forum.php?mod=viewthread&tid=14523654&extra=
看看这个应该你就能改了

主要是循环里面  临界什么的不会用  内存 cpu 卡飞

冷风丶

  

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

启动线程 (&子程序2, , )
返回 (0)  ' 可以根据您的需要返回任意数值

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

变量名	类 型	静态	数组	备 注
线程池	鱼刺类_线程池Ex
线程数	整数型

线程数 ＝ 10
线程池.创建 (线程数, 线程数)
计次循环首 (99999, )
如果真 (线程池.取_空闲线程数=0)
线程池.等待任务动态 ()
线程池.投递任务 (&子程序1)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
局_text	文本型
局_json	类_json
局_url	文本型
局_任务数	整数型
局_次数	整数型
局_任务id	文本型
局_data	文本型

线程_初始化COM库 ()
局_url ＝ “http://www.baidu.com”
局_text ＝ 到文本 (网页_访问_对象 (局_url))
如果真 (局_json.解析 (局_text))
局_任务数 ＝ 局_json.成员数 (“data.data”)
计次循环首 (局_任务数, 局_次数)
局_任务id ＝ 局_json.取通用属性 (“data.data[” ＋ 到文本 (局_次数 － 1) ＋ “].id”)
局_url ＝ “http://www.baidu.com”
局_data ＝ 局_任务id
局_text ＝ 到文本 (网页_访问_对象 (局_url, 1, 局_data, ))
如果真 (局_text ≠ “”)
' 临界.进入 ()
' 成功
' 临界.退出 ()

处理事件 ()
计次循环尾 ()
线程_取消COM库 ()

.版本 2<br /> <br /> <br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 启动线程 (&子程序2, , )<br /> 返回 (0)  ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 子程序2<br /> .局部变量 线程池, 鱼刺类_线程池Ex<br /> .局部变量 线程数, 整数型<br /> <br /> 线程数 ＝ 10<br /> 线程池.创建 (线程数, 线程数)<br /> .计次循环首 (99999, )<br />     .如果真 (线程池.取_空闲线程数=0)<br />         线程池.等待任务动态 ()<br />     .如果真结束<br />     线程池.投递任务 (&子程序1)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> .局部变量 局_text, 文本型<br /> .局部变量 局_json, 类_json<br /> .局部变量 局_url, 文本型<br /> .局部变量 局_任务数, 整数型<br /> .局部变量 局_次数, 整数型<br /> .局部变量 局_任务id, 文本型<br /> .局部变量 局_data, 文本型<br /> <br /> 线程_初始化COM库 ()<br /> 局_url ＝ “<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com</a>”<br /> 局_text ＝ 到文本 (网页_访问_对象 (局_url))<br /> .如果真 (局_json.解析 (局_text))<br />     局_任务数 ＝ 局_json.成员数 (“data.data”)<br />     .计次循环首 (局_任务数, 局_次数)<br />         局_任务id ＝ 局_json.取通用属性 (“data.data[” ＋ 到文本 (局_次数 － 1) ＋ “].id”)<br />         局_url ＝ “<a href="http://www.baidu.com" rel="nofollow" rel="nofollow" rel="nofollow" rel="nofollow" target="_blank">http://www.baidu.com</a>”<br />         局_data ＝ 局_任务id<br />         局_text ＝ 到文本 (网页_访问_对象 (局_url, 1, 局_data, ))<br />         .如果真 (局_text ≠ “”)<br />             ' 临界.进入 ()<br />             ' 成功<br />             '临界.退出 ()<br />         .如果真结束<br /> <br />         处理事件 ()<br />     .计次循环尾 ()<br /> .如果真结束<br /> 线程_取消COM库 ()

补充内容 (2020-1-6 14:25):
把处理事件删掉

你是我的眼哦

楼上不是解答了吗