【蠢新学汇编】多线程是否全部执行完毕

笨来无一悟

之前也写过一个类似的例子 不是汇编版本的 需要支持库 现在优化一个汇编版本的 旧版的写法就可以扔了

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
是否完毕	逻辑型	0

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

' 应用场景:需要等待多个线程全部执行完毕之后再执行接下来的其他操作
' 只要不是同时写入同一个数组成员 多线程不加许可证并不会导致报错或者出错 可放心食用
' 省去了进出许可区的耗时和用线程句柄判断线程状态的耗时 用程序集或者全局逻辑型数组进行判断速度更快

子程序名	返回值类型	公开	备 注
执行完毕	逻辑型		全真 返回真
参数名	类 型	参考	可空	数组	备 注
任务状态	逻辑型				真 假

置入代码 ({ 54, 139, 117, 8, 62, 139, 54, 131, 198, 4, 62, 139, 14, 133, 201, 116, 13, 62, 139, 4, 142, 133, 192, 116, 5, 73, 227, 2, 235, 243, 201, 194, 4, 0 })
返回 (假)  ' 全真 返回真 否则 返回假
' MOV ESI, DWORD PTR SS:[EBP+8]
' MOV ESI, DWORD PTR DS:[ESI]
' ADD ESI, 4
' MOV ECX, DWORD PTR DS:[ESI]
' TEST ECX, ECX
' JE END
' XH:
' MOV EAX, DWORD PTR DS:[ESI+ECX*4]
' TEST EAX, EAX
' JE END
' DEC ECX
' JECXZ END
' JMP XH
' END:
' LEAVE
' RET 4

子程序名	返回值类型	公开	备 注
_启动_被单击

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

如果真 (执行完毕 (是否完毕) ＝ 假)
调试输出 (“急什么急 上一车砖头还没搬完”)
返回 ()  ' 可以在执行之前 判断上次执行的任务有没有完成 避免冲突 返回之前 要进行哪些操作 自己决定
数量 ＝ 12345  ' 为了照顾小白 方便理解最后一个参数是啥
重定义数组 (是否完毕, 假, 数量)
计次循环首 (取数组成员数 (是否完毕), 计次)
处理事件 ()  ' 避免卡界面
启动线程 (&线程, 计次, )
计次循环尾 ()
循环判断首 ()
处理事件 ()  ' 避免卡界面
延迟 (500)  ' 检测间隔时长根据任务强度灵活修改
循环判断尾 (执行完毕 (是否完毕) ＝ 假)
调试输出 (是否完毕, “砖头搬完了 工钱结一下”)
' 这儿写所有线程全部执行完毕之后再进行的某些操作

子程序名	返回值类型	公开	备 注
线程
参数名	类 型	参考	可空	数组	备 注
编号	整数型

延迟 (取随机数 (10, 80))  ' 模仿线程执行某些操作造成的耗时
是否完毕 [编号] ＝ 真  ' 每条线程执行完毕之后赋值为真

i支持库列表	支持库注释
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 是否完毕, 逻辑型, , "0"<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 应用场景:需要等待多个线程全部执行完毕之后再执行接下来的其他操作<br /> ' 只要不是同时写入同一个数组成员 多线程不加许可证并不会导致报错或者出错 可放心食用<br /> ' 省去了进出许可区的耗时和用线程句柄判断线程状态的耗时 用程序集或者全局逻辑型数组进行判断速度更快<br /> <br /> .子程序 执行完毕, 逻辑型, , 全真 返回真<br /> .参数 任务状态, 逻辑型, 数组, 真 假<br /> <br /> 置入代码 ({ 54, 139, 117, 8, 62, 139, 54, 131, 198, 4, 62, 139, 14, 133, 201, 116, 13, 62, 139, 4, 142, 133, 192, 116, 5, 73, 227, 2, 235, 243, 201, 194, 4, 0 })<br /> 返回 (假)  ' 全真 返回真 否则 返回假<br /> ' MOV ESI, DWORD PTR SS:[EBP+8]<br /> ' MOV ESI, DWORD PTR DS:[ESI]<br /> ' ADD ESI, 4<br /> ' MOV ECX, DWORD PTR DS:[ESI]<br /> ' TEST ECX, ECX<br /> ' JE END<br /> ' XH:<br /> ' MOV EAX, DWORD PTR DS:[ESI+ECX*4]<br /> ' TEST EAX, EAX<br /> ' JE END<br /> ' DEC ECX<br /> ' JECXZ END<br /> ' JMP XH<br /> ' END:<br /> ' LEAVE<br /> ' RET 4<br /> <br /> .子程序 _启动_被单击<br /> .局部变量 计次, 整数型<br /> .局部变量 数量, 整数型<br /> <br /> .如果真 (执行完毕 (是否完毕) ＝ 假)<br />     调试输出 (“急什么急 上一车砖头还没搬完”)<br />     返回 ()  ' 可以在执行之前 判断上次执行的任务有没有完成 避免冲突 返回之前 要进行哪些操作 自己决定<br /> .如果真结束<br /> 数量 ＝ 12345  ' 为了照顾小白 方便理解最后一个参数是啥<br /> 重定义数组 (是否完毕, 假, 数量)<br /> .计次循环首 (取数组成员数 (是否完毕), 计次)<br />     处理事件 ()  ' 避免卡界面<br />     启动线程 (&线程, 计次, )<br /> .计次循环尾 ()<br /> .循环判断首 ()<br />     处理事件 ()  ' 避免卡界面<br />     延迟 (500)  ' 检测间隔时长根据任务强度灵活修改<br /> .循环判断尾 (执行完毕 (是否完毕) ＝ 假)<br /> 调试输出 (是否完毕, “砖头搬完了 工钱结一下”)<br /> ' 这儿写所有线程全部执行完毕之后再进行的某些操作<br /> <br /> .子程序 线程<br /> .参数 编号, 整数型<br /> <br /> 延迟 (取随机数 (10, 80))  ' 模仿线程执行某些操作造成的耗时<br /> 是否完毕 [编号] ＝ 真  ' 每条线程执行完毕之后赋值为真

shaojiecn

支持开源

qq977352880

很喜欢这种深入浅出的教学方式。

无名霸道

666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666666

光影魔术

感谢分享源码

qq977352880

这个的价值无法用言语形容，谢谢！

axin666yes

感谢分享，很给力！太棒了

本森Bin

感谢分享，很给力！

豆豆灰常开心

感谢楼主分享！

查过

感谢您对论坛的支持！