多线程完美不崩溃防卡死

anyuezhiji

多线程完美不崩溃防卡死.rar (17.96 KB, 下载次数: 570)

2016-8-31 02:16 上传

点击文件名下载附件
下载积分: 精币 -2 枚

1. 开始：第1条（由线程1处理）...
   
2. 开始：第2条（由线程2处理）...
   
3. 开始：第3条（由线程3处理）...
   
4. 开始：第4条（由线程4处理）...
   
5. 开始：第5条（由线程5处理）...
   
6. 开始：第6条（由线程6处理）...
   
7. 开始：第7条（由线程7处理）...
   
8. 开始：第8条（由线程8处理）...
   
9. 开始：第9条（由线程10处理）...
   
10. 开始：第10条（由线程14处理）...
    
11. 开始：第11条（由线程18处理）...
    
12. 开始：第12条（由线程9处理）...
    
13. 开始：第13条（由线程11处理）...
    
14. 开始：第14条（由线程12处理）...
    
15. 开始：第15条（由线程13处理）...
    
16. 开始：第16条（由线程15处理）...
    
17. 开始：第17条（由线程16处理）...
    
18. 开始：第18条（由线程17处理）...
    
19. 开始：第19条（由线程19处理）...
    
20. 开始：第20条（由线程20处理）...
    
21. 开始：第21条（由线程21处理）...
    
22. 结束：第6条（由线程6处理），状态为【正常结束】...
    
23. 开始：第22条（由线程6处理）...
    
24. 结束：第3条（由线程3处理），状态为【正常结束】...
    
25. 开始：第23条（由线程3处理）...
    
26. 结束：第5条（由线程5处理），状态为【正常结束】...
    
27. 开始：第24条（由线程5处理）...
    
28. 结束：第1条（由线程1处理），状态为【正常结束】...
    
29. 开始：第25条（由线程1处理）...
    
30. 结束：第8条（由线程8处理），状态为【正常结束】...
    
31. 结束：第14条（由线程12处理），状态为【正常结束】...
    
32. 开始：第27条（由线程12处理）...
    
33. 结束：第12条（由线程9处理），状态为【正常结束】...
    
34. 开始：第28条（由线程9处理）...
    
35. 结束：第10条（由线程14处理），状态为【正常结束】...
    
36. 开始：第29条（由线程14处理）...
    
37. 开始：第26条（由线程8处理）...
    
38. 结束：第13条（由线程11处理），状态为【正常结束】...
    
39. 开始：第30条（由线程11处理）...
    
40. 结束：第18条（由线程17处理），状态为【正常结束】...
    
41. 开始：第31条（由线程17处理）...
    
42. 结束：第17条（由线程16处理），状态为【正常结束】...
    
43. 开始：第32条（由线程16处理）...
    
44. 结束：第11条（由线程18处理），状态为【正常结束】...
    
45. 开始：第33条（由线程18处理）...
    
46. 结束：第4条（由线程4处理），状态为【正常结束】...
    
47. 结束：第20条（由线程20处理），状态为【正常结束】...
    
48. 开始：第35条（由线程20处理）...
    
49. 开始：第34条（由线程4处理）...
    
50. 结束：第22条（由线程6处理），状态为【正常结束】...
    
51. 开始：第36条（由线程6处理）...
    
52. 结束：第23条（由线程3处理），状态为【正常结束】...
    
53. 开始：第37条（由线程3处理）...
    
54. 结束：第24条（由线程5处理），状态为【正常结束】...
    
55. 开始：第38条（由线程5处理）...
    
56. 结束：第25条（由线程1处理），状态为【正常结束】...
    
57. 结束：第27条（由线程12处理），状态为【正常结束】...
    
58. 结束：第29条（由线程14处理），状态为【正常结束】...
    
59. 结束：第32条（由线程16处理），状态为【正常结束】...
    
60. 结束：第33条（由线程18处理），状态为【正常结束】...
    
61. 结束：第35条（由线程20处理），状态为【正常结束】...
    
62. 结束：第34条（由线程4处理），状态为【正常结束】...
    
63. 结束：第36条（由线程6处理），状态为【正常结束】...
    
64. 结束：第2条（由线程2处理），状态为【超时退出】...
    
65. 结束：第9条（由线程10处理），状态为【超时退出】...
    
66. 结束：第7条（由线程7处理），状态为【超时退出】...
    
67. 结束：第15条（由线程13处理），状态为【超时退出】...
    
68. 结束：第21条（由线程21处理），状态为【超时退出】...
    
69. 结束：第19条（由线程19处理），状态为【超时退出】...
    
70. 结束：第16条（由线程15处理），状态为【超时退出】...
    
71. 结束：第28条（由线程9处理），状态为【超时退出】...
    
72. 结束：第26条（由线程8处理），状态为【超时退出】...
    
73. 结束：第30条（由线程11处理），状态为【超时退出】...
    
74. 结束：第31条（由线程17处理），状态为【超时退出】...
    
75. 结束：第38条（由线程5处理），状态为【超时退出】...
    
76. 结束：第37条（由线程3处理），状态为【超时退出】...
    
77. 共耗时：5.507秒...
    

复制代码

补充内容 (2016-9-4 16:02):
http://125.confly.eu.org/forum.php?mod= ... 13934092&extra=

补充内容 (2016-9-4 16:02):
已更新版本，地址见上面

anyuezhiji

1. 强制结束线程 (线程句柄 [条目])

复制代码

昨天写得太匆忙没检查，少了一句关键的，超时的线程太多时还是可能崩溃，现在补上
修改后的代码如下

  

子程序名	返回值类型	公开	备 注
处理条目
参数名	类 型	参考	可空	数组	备 注
线程数

变量名	类 型	静态	数组	备 注
i	整数型
条目
状态	文本型
运行时间
线程句柄			0
通讯信号	线程传参		0

' 调试输出 (线程数)
' 调试输出 (超时时长)
重定义数组 (线程句柄, 真, 总条数)
重定义数组 (通讯信号, 真, 总条数)
判断循环首 (总计次 ＜ 总条数)
' ——————————————————————
进入许可区 (许可证0)
总计次 ＝ 总计次 ＋ 1
如果真 (总计次 ＞ 总条数)
退出许可区 (许可证1)
跳出循环 ()
条目 ＝ 总计次
退出许可区 (许可证0)
' ——————————————————————
' 开始处理第（条目）条并输出结果
进入许可区 (许可证1)
编辑框5.加入文本 (“开始：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理）...” ＋ #换行符 )
处理事件 ()
退出许可区 (许可证1)
' ——————————————————————
运行时间 ＝ 取启动时间 ()
通讯信号 [条目].条目 ＝ 条目
启动线程 (&处理条目_子程序, 取指针地址 (通讯信号 [条目]), 线程句柄 [条目])
判断循环首 (条目 ＞ 0)  ' 无限循环，判断
延时 (300)
如果真 (通讯信号 [条目].信号 ＝ 1)
状态 ＝ “正常结束”
跳出循环 ()
如果真 (取启动时间 () － 运行时间 ＞ 超时时长)
强制结束线程 (线程句柄 [条目])
状态 ＝ “超时退出”
跳出循环 ()
如果真 (结束信号)
进入许可区 (许可证0)
如果真 (条目 ＝ 总条数)
总计次 ＝ 总计次 ＋ 1
逆计次 ＝ 逆计次 － 1
退出许可区 (许可证0)
返回 ()

判断循环尾 ()
' ——————————————————————
进入许可区 (许可证1)
编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符 )
处理事件 ()
退出许可区 (许可证1)
' 完成处理第（条目）条并输出结果
' ——————————————————————
进入许可区 (许可证0)
如果真 (条目 ＝ 总条数)
总计次 ＝ 总计次 ＋ 1
逆计次 ＝ 逆计次 － 1
退出许可区 (许可证0)
判断循环尾 ()

i支持库列表	支持库注释
EThread	多线程支持库
shellEx	扩展功能支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 shellEx<br /> <br /> .子程序 处理条目<br /> .参数 线程数<br /> .局部变量 i, 整数型<br /> .局部变量 条目<br /> .局部变量 状态, 文本型<br /> .局部变量 运行时间<br /> .局部变量 线程句柄, , , "0"<br /> .局部变量 通讯信号, 线程传参, , "0"<br /> <br /> ' 调试输出 (线程数)<br /> ' 调试输出 (超时时长)<br /> 重定义数组 (线程句柄, 真, 总条数)<br /> 重定义数组 (通讯信号, 真, 总条数)<br /> <br /> .判断循环首 (总计次 ＜ 总条数)<br />     ' ——————————————————————<br />     进入许可区 (许可证0)<br />     总计次 ＝ 总计次 ＋ 1<br />     .如果真 (总计次 ＞ 总条数)<br />         退出许可区 (许可证1)<br />         跳出循环 ()<br />     .如果真结束<br />     条目 ＝ 总计次<br />     退出许可区 (许可证0)<br />     ' ——————————————————————<br />     ' 开始处理第（条目）条并输出结果<br />     进入许可区 (许可证1)<br />     编辑框5.加入文本 (“开始：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理）...” ＋ #换行符)<br />     处理事件 ()<br />     退出许可区 (许可证1)<br />     ' ——————————————————————<br />     运行时间 ＝ 取启动时间 ()<br />     通讯信号 [条目].条目 ＝ 条目<br />     启动线程 (&处理条目_子程序, 取指针地址 (通讯信号 [条目]), 线程句柄 [条目])<br />     .判断循环首 (条目 ＞ 0)  ' 无限循环，判断<br />         延时 (300)<br />         .如果真 (通讯信号 [条目].信号 ＝ 1)<br />             状态 ＝ “正常结束”<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (取启动时间 () － 运行时间 ＞ 超时时长)<br />             强制结束线程 (线程句柄 [条目])<br />             状态 ＝ “超时退出”<br />             跳出循环 ()<br />         .如果真结束<br />         .如果真 (结束信号)<br />             进入许可区 (许可证0)<br />             .如果真 (条目 ＝ 总条数)<br />                 总计次 ＝ 总计次 ＋ 1<br />             .如果真结束<br />             逆计次 ＝ 逆计次 － 1<br />             退出许可区 (许可证0)<br />             返回 ()<br />         .如果真结束<br /> <br />     .判断循环尾 ()<br />     ' ——————————————————————<br />     进入许可区 (许可证1)<br />     编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符)<br />     处理事件 ()<br />     退出许可区 (许可证1)<br />     ' 完成处理第（条目）条并输出结果<br />     ' ——————————————————————<br />     进入许可区 (许可证0)<br />     .如果真 (条目 ＝ 总条数)<br />         总计次 ＝ 总计次 ＋ 1<br />     .如果真结束<br />     逆计次 ＝ 逆计次 － 1<br />     退出许可区 (许可证0)<br /> .判断循环尾 ()

flaychan

支持开源~！感谢分享

clm6068

表项颜色事件下判断需要显示什么颜色, 让设置颜色更简单

hack_koko

网页操作的时候不卡死才是真理啊

52dthu

多线程完美不崩溃防卡死.

liantan

感谢分享源码，学习中。

smj328

谢谢楼主的分享

cht870422

谢谢,虽然不太好,毕竟学习了

hexiaoqing82

谢谢,,学习中

Toxic玖伴

学习了

QQ9645

谢谢楼主的分享