2杯奶茶 帮改一下dm多线程代码

xubb01

帮忙改一改代码 ，有偿！

请叫我胖虎

dm多线程.e (153.39 KB, 下载次数: 13)

2025-3-20 09:48 上传

点击文件名下载附件

成功和失败调用的位置自己放置

熊猫xpanda

利用消息队列化即可，不需要加许可证

  

子程序名	返回值类型	公开	备 注
做任务
参数名	类 型	参考	可空	数组	备 注
序号

变量名	类 型	静态	数组	备 注
是否执行成功	逻辑型
dm	dmsoft

dm ＝ 线程信息 [序号].dm
dm.MoveTo (222, 194)
dm.LeftClick ()
脚本延时 (序号, 500)
判断 (是否执行成功)
多线程_异步通知UI ( #消息常量_执行成功, 序号)
判断 (是否执行成功 ＝ 假)
多线程_异步通知UI ( #消息常量_执行失败, 序号)
多线程_异步通知UI ( #消息常量_其他状态, 序号)

.版本 2<br /> <br /> .子程序 做任务<br /> .参数 序号<br /> .局部变量 是否执行成功, 逻辑型<br /> .局部变量 dm, dmsoft<br /> <br /> dm ＝ 线程信息 [序号].dm<br /> dm.MoveTo (222, 194)<br /> dm.LeftClick ()<br /> 脚本延时 (序号, 500)<br /> <br /> .判断开始 (是否执行成功)<br />     多线程_异步通知UI (#消息常量_执行成功, 序号)<br /> .判断 (是否执行成功 ＝ 假)<br />     多线程_异步通知UI (#消息常量_执行失败, 序号)<br /> .默认<br />     多线程_异步通知UI (#消息常量_其他状态, 序号)

  

子程序名	返回值类型	公开	备 注
WindowProc	整数型
参数名	类 型	参考	可空	数组	备 注
hwnd	整数型
msg	整数型
wparam	整数型
lparam	整数型

变量名	类 型	静态	数组	备 注
列表索引	整数型
主索引	整数型
通知类型	整数型
szEdit	文本型
dwEdit	整数型

如果真 (msg ＝ #通知消息 )
列表索引 ＝ 取列表索引号 (lparam)
如果 (列表索引 ≥ 0)
通知类型 ＝ wparam
主索引 ＝ lparam
如果真 (主索引 ＞ MaxHwnd)
主索引 ＝ 主索引 － MaxHwnd

如果真 (wparam ＝ #通知类型_更新 )
UI_更新 (主索引, #UI_更新 )

如果真 (通知类型 ＝ #通知类型_停止 )
多线程_结束 (主索引)

如果真 (通知类型 ＝ #通知类型_重新运行 )
多线程_重新运行 (主索引)

判断 (通知类型 ＝ #消息常量_执行成功 )
szEdit ＝ _启动窗口.编辑框1.内容
dwEdit ＝ 到整数 (szEdit) ＋ 1
_启动窗口.编辑框1.内容 ＝ 到文本 (dwEdit)
判断 (通知类型 ＝ #消息常量_执行失败 )
szEdit ＝ _启动窗口.编辑框2.内容
dwEdit ＝ 到整数 (szEdit) ＋ 1
_启动窗口.编辑框2.内容 ＝ 到文本 (dwEdit)
判断 (通知类型 ＝ #消息常量_其他状态 )




日志输出 (“索引找不到 序号:” ＋ 到文本 (lparam))

返回 (CallWindowProcA (pOldProc, hwnd, msg, wparam, lparam))

.版本 2<br /> <br /> .子程序 WindowProc, 整数型<br /> .参数 hwnd, 整数型<br /> .参数 msg, 整数型<br /> .参数 wparam, 整数型<br /> .参数 lparam, 整数型<br /> .局部变量 列表索引, 整数型<br /> .局部变量 主索引, 整数型<br /> .局部变量 通知类型, 整数型<br /> .局部变量 szEdit, 文本型<br /> .局部变量 dwEdit, 整数型<br /> <br /> <br /> .如果真 (msg ＝ #通知消息)<br />     列表索引 ＝ 取列表索引号 (lparam)<br /> <br />     .如果 (列表索引 ≥ 0)<br />         通知类型 ＝ wparam<br />         主索引 ＝ lparam<br />         .如果真 (主索引 ＞ MaxHwnd)<br />             主索引 ＝ 主索引 － MaxHwnd<br />         .如果真结束<br /> <br />         .如果真 (wparam ＝ #通知类型_更新)<br />             UI_更新 (主索引, #UI_更新)<br />         .如果真结束<br /> <br />         .如果真 (通知类型 ＝ #通知类型_停止)<br />             多线程_结束 (主索引)<br />         .如果真结束<br /> <br />         .如果真 (通知类型 ＝ #通知类型_重新运行)<br />             多线程_重新运行 (主索引)<br />         .如果真结束<br /> <br />         .判断开始 (通知类型 ＝ #消息常量_执行成功)<br />             szEdit ＝ _启动窗口.编辑框1.内容<br />             dwEdit ＝ 到整数 (szEdit) ＋ 1<br />             _启动窗口.编辑框1.内容 ＝ 到文本 (dwEdit)<br />         .判断 (通知类型 ＝ #消息常量_执行失败)<br />             szEdit ＝ _启动窗口.编辑框2.内容<br />             dwEdit ＝ 到整数 (szEdit) ＋ 1<br />             _启动窗口.编辑框2.内容 ＝ 到文本 (dwEdit)<br /> <br />         .判断 (通知类型 ＝ #消息常量_其他状态)<br /> <br />         .默认<br /> <br />         .判断结束<br /> <br />     .否则<br />         日志输出 (“索引找不到 序号:” ＋ 到文本 (lparam))<br />     .如果结束<br /> <br /> .如果真结束<br /> 返回 (CallWindowProcA (pOldProc, hwnd, msg, wparam, lparam))

熊猫xpanda

熊猫xpanda 发表于 2025-3-20 15:18
利用消息队列化即可，不需要加许可证
[e=0].版本 2

dm多线程_修改后.e (153.77 KB, 下载次数: 8)

2025-3-20 15:20 上传

点击文件名下载附件