鱼刺多线程，如何操作，操作完删除一行账号

1113344477

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
多线程操作	鱼刺类_线程操作
索引	整数型
主线程句柄	整数型
线程池逻辑	逻辑型
线程池	鱼刺类_线程池Ex
线程操作	鱼刺类_线程操作
线程数	整数型

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

变量名	类 型	静态	数组	备 注
任务数	整数型
线程数	整数型
投递任务	整数型
销毁状态	逻辑型

任务数 ＝ 2
线程数 ＝ 2
如果真 (线程数 ＞ 任务数)
线程数 ＝ 任务数

如果真 (线程池.取_状态 () ＝ 0)
循环判断首 ()
循环判断尾 (线程池.创建 (线程数, 线程数, , 假, ) ＝ 假)

判断循环首 (任务数 ＞ 投递任务)
如果真 (线程池.取_空闲线程数 () ＞ 0)
线程池.投递任务 (&开始登录)
输出调试文本 (原子_递增 (投递任务))

延时 (10)
判断循环尾 ()
循环判断首 ()
延时 (500)
处理事件 ()
循环判断尾 (线程池.取_是否空闲 () ＝ 假)
如果真 (线程池.取_是否空闲 () ＝ 真)

循环判断首 ()
销毁状态 ＝ 线程池.销毁 (0, , )
延时 (500)
处理事件 ()
循环判断尾 (销毁状态 ＝ 假)
如果真 (线程池.销毁 (0, , ) ＝ 真)
线程操作.关闭句柄 ()
线程操作.强制结束 ()

线程池.销毁 (0, 1000, 假)

子程序名	返回值类型	公开	备 注
开始登录

变量名	类 型	静态	数组	备 注
Cookie	文本型
账号	文本型		0

账号 ＝ 分割文本 (编辑框1.内容, “----”, )
Cookie ＝ 开始操作 (账号 [1], 账号 [2])
判断 (Cookie ＝ “0”)
' 开始操作

子程序名	返回值类型	公开	备 注
开始操作	文本型
参数名	类 型	参考	可空	数组	备 注
账号	文本型
密码	文本型

变量名	类 型	静态	数组	备 注
结果	文本型

' 开始操作
' 操作结束
编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框1.内容, 1)
返回 (结果)

.版本 2<br /> <br /> <br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .程序集变量 多线程操作, 鱼刺类_线程操作<br /> <br /> .程序集变量 索引, 整数型<br /> <br /> .程序集变量 主线程句柄, 整数型<br /> <br /> .程序集变量 线程池逻辑, 逻辑型<br /> <br /> .程序集变量 线程池, 鱼刺类_线程池Ex<br /> <br /> .程序集变量 线程操作, 鱼刺类_线程操作<br /> <br /> .程序集变量 线程数, 整数型<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> .局部变量 任务数, 整数型<br /> <br /> .局部变量 线程数, 整数型<br /> <br /> .局部变量 投递任务, 整数型<br /> <br /> .局部变量 销毁状态, 逻辑型<br /> <br /> <br /> <br /> 任务数 ＝ 2<br /> <br /> 线程数 ＝ 2<br /> <br /> .如果真 (线程数 ＞ 任务数)<br /> <br />     线程数 ＝ 任务数<br /> <br /> .如果真结束<br /> <br /> .如果真 (线程池.取_状态 () ＝ 0)<br /> <br />     .循环判断首 ()<br /> <br /> <br /> <br />     .循环判断尾 (线程池.创建 (线程数, 线程数, , 假, ) ＝ 假)<br /> <br /> .如果真结束<br /> <br /> .判断循环首 (任务数 ＞ 投递任务)<br /> <br />     .如果真 (线程池.取_空闲线程数 () ＞ 0)<br /> <br />         线程池.投递任务 (&开始登录)<br /> <br />         输出调试文本 (原子_递增 (投递任务))<br /> <br /> <br /> <br /> <br /> <br />     .如果真结束<br /> <br />     延时 (10)<br /> <br /> <br /> <br /> .判断循环尾 ()<br /> <br /> <br /> <br /> .循环判断首 ()<br /> <br /> <br /> <br />     延时 (500)<br /> <br />     处理事件 ()<br /> <br /> <br /> <br /> .循环判断尾 (线程池.取_是否空闲 () ＝ 假)<br /> <br /> .如果真 (线程池.取_是否空闲 () ＝ 真)<br /> <br /> <br /> <br /> <br /> <br /> .如果真结束<br /> <br /> <br /> <br /> .循环判断首 ()<br /> <br />     销毁状态 ＝ 线程池.销毁 (0, , )<br /> <br />     延时 (500)<br /> <br />     处理事件 ()<br /> <br /> .循环判断尾 (销毁状态 ＝ 假)<br /> <br /> .如果真 (线程池.销毁 (0, , ) ＝ 真)<br /> <br />     线程操作.关闭句柄 ()<br /> <br />     线程操作.强制结束 ()<br /> <br /> <br /> <br /> .如果真结束<br /> <br /> 线程池.销毁 (0, 1000, 假)<br /> <br /> <br /> <br /> <br /> <br /> .子程序 开始登录<br /> <br /> .局部变量 Cookie, 文本型<br /> <br /> .局部变量 账号, 文本型, , "0"<br /> <br /> <br /> <br /> 账号 ＝ 分割文本 (编辑框1.内容, “----”, )<br /> <br /> Cookie ＝ 开始操作 (账号 [1], 账号 [2])<br /> <br /> .判断开始 (Cookie ＝ “0”)<br /> <br />     ' 开始操作<br /> <br /> .默认<br /> <br /> <br /> <br /> .判断结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 开始操作, 文本型<br /> <br /> .参数 账号, 文本型<br /> <br /> .参数 密码, 文本型<br /> <br /> .局部变量 结果, 文本型<br /> <br /> <br /> <br /> ' 开始操作<br /> <br /> <br /> <br /> ' 操作结束<br /> <br /> 编辑框1.内容 ＝ 文本_删除指定文本行 (编辑框1.内容, 1)<br /> <br /> <br /> <br /> 返回 (结果)

求求各位大哥，怎么写，我想多线程执行这几个子程序任务，然后返回，但是我不知道账号密码如何分配分割过去，有大佬有空帮我完善一下参考的吗，感谢

小方叻

好多种写法 得看你更适合那种 附件里面只是比较稳妥得写法例如 可以用超级列表框 实现一系列得操作显示 这种也比较常见 数量大得情况下 这种效率不高
写法很多 但是得看你更适合那种。
大哥.e (1.16 MB, 下载次数: 31)

2023-5-11 09:00 上传

点击文件名下载附件





补充内容 (2023-5-11 09:06):
多线程如果你直接操作编辑框删除 加上许可即可  那样效率会大大降低 所以给你写的这个 你看看适合你不 不适合再说 重撸

FanLi

多线程操作组件，一定要加许可证。

宇Y杰

你是想多线程传参嘛？