多线程完美不崩溃防卡死

anyuezhiji

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

2016-8-31 02:16 上传

点击文件名下载附件

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://bbs.125.la/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

谢谢楼主的分享