精易论坛

标题: 多线程完美不崩溃防卡死 [打印本页]

---

作者: anyuezhiji    时间: 2016-8-31 02:17
标题: 多线程完美不崩溃防卡死
多线程完美不崩溃防卡死.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):
已更新版本，地址见上面

---

作者: 无夜    时间: 2016-8-31 02:20
这种只适合用来参照写法，至于是否会崩溃卡死，还是得具体到实际的应用当中。。

真正运用到实例上面，线程里面执行的代码，计算应该是很复杂的，耗费时间绝对比你这个要长，那个时候出现崩溃卡死才是要真正的去解决

---

作者: 15039346689    时间: 2016-8-31 09:08
不好使，该慢的还慢，该卡的还卡，咋写差不错

---

作者: hellohexiang    时间: 2016-8-31 12:06
我怎么一点就卡死啊

---

作者: anyuezhiji    时间: 2016-8-31 12:34

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 /> .判断循环尾 ()

---

作者: anyuezhiji    时间: 2016-8-31 12:36

hellohexiang 发表于 2016-8-31 12:06
我怎么一点就卡死啊

已补充代码（置顶到了二楼），你再测试下，看还卡么

---

作者: 西瓜撞地球    时间: 2016-8-31 12:43
感觉没什么用啊

---

作者: 2446789312    时间: 2016-8-31 13:38
看看有什么用

---

作者: 先锋小七    时间: 2016-8-31 16:43
多线程卡死，关键的地方是在循环里面加延时

---

作者: aismy    时间: 2016-8-31 17:22
感谢分享。
楼主这个是没问题，但如果是 WinInet的方式访问网页、WinHttp对象的方式访问网页，经常超时，10分钟左右，程序是否会崩溃呢？

---

作者: Jack100    时间: 2016-8-31 17:25
学习中......

---

作者: anyuezhiji    时间: 2016-8-31 19:23
@aismy

  

如果真 (取启动时间 () － 运行时间 ＞ 超时时长)            强制结束线程 (线程句柄 [条目])
状态 ＝ “超时退出”
跳出循环 ()

        .如果真 (取启动时间 () － 运行时间 ＞ 超时时长)            强制结束线程 (线程句柄 [条目])<br />             状态 ＝ “超时退出”<br />             跳出循环 ()<br />         .如果真结束

超时的线程被强制关闭，对主流程没影响

  

进入许可区 (许可证1)
编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符 )
处理事件 ()
退出许可区 (许可证1)

进入许可区 (许可证1)<br />     编辑框5.加入文本 (“结束：第” ＋ 到文本 (条目) ＋ “条（由线程” ＋ 到文本 (线程数) ＋ “处理），状态为【” ＋ 状态 ＋ “】...” ＋ #换行符)<br />     处理事件 ()<br />     退出许可区 (许可证1)

在这里可以根据【状态】对超时与非超时的做不同的后续处理

---

作者: anyuezhiji    时间: 2016-8-31 19:26
为什么直接回复@aismy 无法成功提交，提交了很多次都失败了
直接回复主贴居然没问题

---

作者: 寻找自我价值    时间: 2016-8-31 20:21
谢谢 分享 这个必须学习

---

作者: 朱悟能    时间: 2016-9-1 17:39
亲，可有QQ呀，实在无法把你这个运用到我代码上去。。。希望能远程帮下。。。

---

作者: iock    时间: 2016-9-1 18:04
能否推荐下学习多线程的方法什么的呢

---

作者: aidicil    时间: 2016-9-2 12:40
谢谢，学习了

---

作者: linting160    时间: 2016-9-2 13:00

---

作者: QQ9645    时间: 2016-9-2 18:59
谢谢楼主的分享

---

作者: Toxic玖伴    时间: 2016-9-7 09:35
学习了

---

作者: hexiaoqing82    时间: 2016-9-15 13:45
谢谢,,学习中

---

作者: cht870422    时间: 2016-9-26 14:33
谢谢,虽然不太好,毕竟学习了

---

作者: smj328    时间: 2016-11-24 23:56

谢谢楼主的分享

---

作者: liantan    时间: 2016-12-25 21:21
感谢分享源码，学习中。

---

作者: 52dthu    时间: 2017-7-24 09:33
多线程完美不崩溃防卡死.

---

作者: hack_koko    时间: 2018-4-12 16:53
网页操作的时候不卡死才是真理啊

---

作者: clm6068    时间: 2023-2-4 18:30
表项颜色事件下判断需要显示什么颜色, 让设置颜色更简单

---

作者: flaychan    时间: 2024-7-9 17:29
支持开源~！感谢分享

---

欢迎光临 精易论坛 (https://125.confly.eu.org/)

Powered by Discuz! X3.4