多线程简单实用例子分享【新手推荐】

小凡じ亦匿名

{:soso_e120:}{:soso_e120:}{:soso_e120:}抽了一小分享一下
给大家分享一个简单鱼刺多线程，若有bug请自行检查修改哦，【推荐新手参考】望大家笑纳

内容：并发，指定个数换IP，任务完成初始，打码 ==




鱼刺线程池简单例子[内带打码].rar (536.16 KB, 下载次数: 518)

2015-7-3 18:17 上传

点击文件名下载附件
鱼刺线程池简单例子.rar (52.91 KB, 下载次数: 437)

2015-7-3 17:33 上传

点击文件名下载附件

  

窗口程序集名	保 留	保 留	备 注
窗口_程序
变量名	类 型	数组	备 注
线程池_任务	鱼刺类_线程池
线程数	整数型
任务数	整数型
IP已工作	整数型

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

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

计次循环首 (20, i)
超级列表框1.插入表项 (, 到文本 (i), , , , )
超级列表框1.置标题 (i － 1, 1, “等待任务”)
计次循环尾 ()

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

按钮_开始.禁止 ＝ 真
按钮_停止.禁止 ＝ 假
启动线程 (&启动_任务, , )

子程序名	返回值类型	公开	备 注
启动_任务

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

线程数 ＝ 到整数 (编辑框_线程数.内容)
任务数 ＝ 超级列表框1.取表项数 ()
线程池_任务.创建 (线程数)
count ＝ 线程池_任务.取_线程池容量 ()  ' 先取到线程池能加到多少线程,你想并发几条就设置多少,原则意义上线程的数量不能低于自己cpu的核心数的
计次循环首 (任务数, index)
如果真 (按钮_停止.禁止 ＝ 真)
跳出循环 ()
如果真 (到整数 (编辑框_IP工作数.内容) ≠ 0)
如果真 (IP已工作 ＝ 到整数 (编辑框_IP工作数.内容))
调试输出 (“开始换IP”)
延时 (10000)
调试输出 (“IP更换完成”)
IP已工作 ＝ 0

线程池_任务.投递任务 (&执行_任务, index － 1)
循环判断首 ()
run ＝ 线程池_任务.取_执行线程数 ()
如果真 (run ≠ count)
跳出循环 ()
延时 (500)
循环判断尾 (run ＝ count)
计次循环尾 ()

子程序名	返回值类型	公开	备 注
执行_任务
参数名	类 型	参考	可空	数组	备 注
index	整数型

如果 (按钮_停止.禁止 ＝ 真)
任务数 ＝ 0
超级列表框1.置标题 (index, 1, “正在执行任务，请稍等”)
延时 (6000)
超级列表框1.置标题 (index, 1, “任务执行完毕”)
IP已工作 ＝ IP已工作 ＋ 1
任务数 ＝ 任务数 － 1
如果真 (任务数 ≤ 0)
调试输出 (“任务完成”)
按钮_开始.禁止 ＝ 假
按钮_停止.禁止 ＝ 真

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

' 线程池_任务.销毁 ()
按钮_开始.禁止 ＝ 假
按钮_停止.禁止 ＝ 真

子程序名	返回值类型	公开	备 注
_窗口_程序_将被销毁

线程池_任务.销毁 ()
结束 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 EThread<br /> .支持库 spec<br /> <br /> .程序集 窗口_程序<br /> .程序集变量 线程池_任务, 鱼刺类_线程池<br /> .程序集变量 线程数, 整数型<br /> .程序集变量 任务数, 整数型<br /> .程序集变量 IP已工作, 整数型<br /> <br /> .子程序 _窗口_程序_创建完毕<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (20, i)<br />     超级列表框1.插入表项 (, 到文本 (i), , , , )<br />     超级列表框1.置标题 (i － 1, 1, “等待任务”)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_开始_被单击<br /> <br /> 按钮_开始.禁止 ＝ 真<br /> 按钮_停止.禁止 ＝ 假<br /> 启动线程 (&启动_任务, , )<br /> <br /> .子程序 启动_任务<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 count, 整数型<br /> .局部变量 run, 整数型<br /> <br /> 线程数 ＝ 到整数 (编辑框_线程数.内容)<br /> 任务数 ＝ 超级列表框1.取表项数 ()<br /> 线程池_任务.创建 (线程数)<br /> count ＝ 线程池_任务.取_线程池容量 ()  ' 先取到线程池能加到多少线程,你想并发几条就设置多少,原则意义上线程的数量不能低于自己cpu的核心数的<br /> .计次循环首 (任务数, index)<br />     .如果真 (按钮_停止.禁止 ＝ 真)<br />         跳出循环 ()<br />     .如果真结束<br />     .如果真 (到整数 (编辑框_IP工作数.内容) ≠ 0)<br />         .如果真 (IP已工作 ＝ 到整数 (编辑框_IP工作数.内容))<br />             调试输出 (“开始换IP”)<br />             延时 (10000)<br />             调试输出 (“IP更换完成”)<br />             IP已工作 ＝ 0<br />         .如果真结束<br /> <br />     .如果真结束<br />     线程池_任务.投递任务 (&执行_任务, index － 1)<br />     .循环判断首 ()<br />         run ＝ 线程池_任务.取_执行线程数 ()<br />         .如果真 (run ≠ count)<br />             跳出循环 ()<br />         .如果真结束<br />         延时 (500)<br />     .循环判断尾 (run ＝ count)<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 执行_任务<br /> .参数 index, 整数型<br /> <br /> .如果 (按钮_停止.禁止 ＝ 真)<br />     任务数 ＝ 0<br /> .否则<br />     超级列表框1.置标题 (index, 1, “正在执行任务，请稍等”)<br />     延时 (6000)<br />     超级列表框1.置标题 (index, 1, “任务执行完毕”)<br /> .如果结束<br /> IP已工作 ＝ IP已工作 ＋ 1<br /> 任务数 ＝ 任务数 － 1<br /> .如果真 (任务数 ≤ 0)<br />     调试输出 (“任务完成”)<br />     按钮_开始.禁止 ＝ 假<br />     按钮_停止.禁止 ＝ 真<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 _按钮_停止_被单击<br /> <br /> ' 线程池_任务.销毁 ()<br /> 按钮_开始.禁止 ＝ 假<br /> 按钮_停止.禁止 ＝ 真<br /> <br /> <br /> .子程序 _窗口_程序_将被销毁<br /> <br /> 线程池_任务.销毁 ()<br /> 结束 ()

djawei1990

谢谢分享  支持

铁血勇士

谢谢分享  学习一下

a285166799

感谢分享 发布辛苦~

music154

下载看看呀 学习下多线程

guo713050500

不错，正需要学习呢！！！！！

a5661333

学习了

戏雨流年

感谢楼主分享  下载学习了

xiute123

非常好的。。。。。

wyfiwqc

谢谢分享 学习一下

sj798

看看学习了