PostThreadMessageA 发送消息丢失问题

caojianfei

我在尝试做一个鼠标同步软件，监视鼠标行为，然后通过 PostThreadMessageA 这个 API 将鼠标消息发送给一个子线程处理，但是我发现如果子线程处理业务逻辑的过程中，PostThreadMessageA  继续发送消息，那这部分消息则会丢失，查了很多资料没想明白，按理说我消息发送成功进入队列，然后就是一条一条消费就可以了，不存在丢失的问题。

发送消息和消费消息的示例代码贴在下面，劳烦大佬指点一二

  

子程序名	返回值类型	公开	备 注
鼠标_回调
参数名	类 型	参考	可空	数组	备 注
键代码	整数型
按键状态	整数型
窗口	整数型

变量名	类 型	静态	数组	备 注
i	整数型
x	整数型
y	整数型
文本	文本型		2
坐标	文本型		2
坐标1	精易_坐标
消息发送结果	整数型
窗口文本	文本型
文本数组	文本型		2
窗口句柄	整数型
循环变量	整数型
消息类型	整数型

' 调试输出 (键代码, 按键类型)
窗口文本 ＝ 指针_到文本 (窗口)
文本_分割文本 (窗口文本, “|”, 2, 文本数组)
窗口句柄 ＝ 到整数 (文本数组 [1])
如果真 (键代码 ≠ 0)
如果真 (窗口_取鼠标处窗口句柄 () ＝ 主窗口句柄)
坐标1 ＝ 鼠标_取窗口坐标 (主窗口句柄)
x ＝ 坐标1.横
y ＝ 坐标1.纵
消息类型 ＝ 鼠标_获取消息类型 (键代码, 按键状态)
如果真 (消息类型 ＝ -1)  ' 不处理的事件
返回 ()

计次循环首 (取数组成员数 (窗口列表), 循环变量)
如果真 (窗口列表 [循环变量].主窗口 ＝ 假 且 窗口列表 [循环变量].线程ID ＞ 0)
消息发送结果 ＝ PostThreadMessageA (窗口列表 [循环变量].线程ID, 消息类型, x, y)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 鼠标_回调<br /> .参数 键代码, 整数型<br /> .参数 按键状态, 整数型<br /> .参数 窗口, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 y, 整数型<br /> .局部变量 文本, 文本型, , "2"<br /> .局部变量 坐标, 文本型, , "2"<br /> .局部变量 坐标1, 精易_坐标<br /> .局部变量 消息发送结果, 整数型<br /> .局部变量 窗口文本, 文本型<br /> .局部变量 文本数组, 文本型, , "2"<br /> .局部变量 窗口句柄, 整数型<br /> .局部变量 循环变量, 整数型<br /> .局部变量 消息类型, 整数型<br /> <br /> ' 调试输出 (键代码, 按键类型)<br /> 窗口文本 ＝ 指针_到文本 (窗口)<br /> 文本_分割文本 (窗口文本, “|”, 2, 文本数组)<br /> 窗口句柄 ＝ 到整数 (文本数组 [1])<br /> <br /> .如果真 (键代码 ≠ 0)<br />     .如果真 (窗口_取鼠标处窗口句柄 () ＝ 主窗口句柄)<br />         坐标1 ＝ 鼠标_取窗口坐标 (主窗口句柄)<br />         x ＝ 坐标1.横<br />         y ＝ 坐标1.纵<br /> <br />         消息类型 ＝ 鼠标_获取消息类型 (键代码, 按键状态)<br />         .如果真 (消息类型 ＝ -1)  ' 不处理的事件<br />             返回 ()<br />         .如果真结束<br /> <br />         .计次循环首 (取数组成员数 (窗口列表), 循环变量)<br /> <br />             .如果真 (窗口列表 [循环变量].主窗口 ＝ 假 且 窗口列表 [循环变量].线程ID ＞ 0)<br />                 消息发送结果 ＝ PostThreadMessageA (窗口列表 [循环变量].线程ID, 消息类型, x, y)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束

  

子程序名	返回值类型	公开	备 注
处理鼠标消息
参数名	类 型	参考	可空	数组	备 注
序号	整数型
消息类型	整数型
x	整数型
y	整数型

变量名	类 型	静态	数组	备 注
dm	Dm
模拟	逻辑型

模拟 ＝ 真
如果真 (模拟)
程序_延时 (1000)
返回 ()

dm ＝ 窗口列表 [序号].大漠
如果真 (消息类型 ＝ #WM_MOUSE_LEFT_DOWN )
调试输出 (“鼠标按下”)
dm.MoveTo (x, y)
程序_延时 (100)
dm.LeftDown ()

如果真 (消息类型 ＝ #WM_MOUSE_LEFT_UP )
调试输出 (“鼠标放开”)
dm.MoveTo (x, y)
程序_延时 (100)
dm.LeftUp ()

如果真 (消息类型 ＝ #WM_MOUSE_RIGHT_DOWN )
调试输出 (“鼠标右键按下”)
dm.MoveTo (x, y)
程序_延时 (100)
dm.RightDown ()

如果真 (消息类型 ＝ #WM_MOUSE_RIGHT_UP )
调试输出 (“鼠标邮件按下”)
dm.MoveTo (x, y)
程序_延时 (100)
dm.RightUp ()

子程序名	返回值类型	公开	备 注
键鼠同步测试
参数名	类 型	参考	可空	数组	备 注
序号	整数型

变量名	类 型	静态	数组	备 注
死循环	逻辑型
接收消息	整数型
msg	消息结构

窗口列表 [序号].线程状态 ＝ #线程状态_运行中
窗口列表 [序号].线程ID ＝ 线程_取自线程ID ()
PostThreadMessageA (窗口列表 [序号].线程ID, #WM_USER, 0, 0)
死循环 ＝ 真
判断循环首 (死循环)
接收消息 ＝ PeekMessage (msg, -1, 0, 0, #PM_REMOVE )
' 接收消息 ＝ GetMessage (msg, -1, #WM_USER, 0)
调试输出 (“-------------接收消息结果:” ＋ 到文本 (接收消息))
如果真 (接收消息 ＞ 0)
调试输出 (“=============== 接收到消息 ==============”)
' 调试输出 (“message:” ＋ 到文本 (msg.message))
调试输出 (“hwnd：” ＋ 到文本 (msg.hwnd))
调试输出 (“message：” ＋ 到文本 (msg.message))
调试输出 (“wParam：” ＋ 到文本 (msg.wParam))
调试输出 (“lParam：” ＋ 到文本 (msg.lParam))
调试输出 (“time：” ＋ 到文本 (msg.time))
调试输出 (“pt_x：” ＋ 到文本 (msg.pt_x))
调试输出 (“pt_y：” ＋ 到文本 (msg.pt_y))
调试输出 (“=============== 接收到消息 END ==============”)
程序_延时 (1000)

判断循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 处理鼠标消息<br /> .参数 序号, 整数型<br /> .参数 消息类型, 整数型<br /> .参数 x, 整数型<br /> .参数 y, 整数型<br /> .局部变量 dm, Dm<br /> .局部变量 模拟, 逻辑型<br /> <br /> 模拟 ＝ 真<br /> <br /> .如果真 (模拟)<br />     程序_延时 (1000)<br />     返回 ()<br /> <br /> .如果真结束<br /> <br /> <br /> <br /> dm ＝ 窗口列表 [序号].大漠<br /> <br /> .如果真 (消息类型 ＝ #WM_MOUSE_LEFT_DOWN)<br />     调试输出 (“鼠标按下”)<br />     dm.MoveTo (x, y)<br />     程序_延时 (100)<br />     dm.LeftDown ()<br /> .如果真结束<br /> <br /> .如果真 (消息类型 ＝ #WM_MOUSE_LEFT_UP)<br />     调试输出 (“鼠标放开”)<br />     dm.MoveTo (x, y)<br />     程序_延时 (100)<br />     dm.LeftUp ()<br /> .如果真结束<br /> <br /> .如果真 (消息类型 ＝ #WM_MOUSE_RIGHT_DOWN)<br />     调试输出 (“鼠标右键按下”)<br />     dm.MoveTo (x, y)<br />     程序_延时 (100)<br />     dm.RightDown ()<br /> .如果真结束<br /> <br /> .如果真 (消息类型 ＝ #WM_MOUSE_RIGHT_UP)<br />     调试输出 (“鼠标邮件按下”)<br />     dm.MoveTo (x, y)<br />     程序_延时 (100)<br />     dm.RightUp ()<br /> .如果真结束<br /> <br /> <br /> .子程序 键鼠同步测试<br /> .参数 序号, 整数型<br /> .局部变量 死循环, 逻辑型<br /> .局部变量 接收消息, 整数型<br /> .局部变量 msg, 消息结构<br /> <br /> 窗口列表 [序号].线程状态 ＝ #线程状态_运行中<br /> 窗口列表 [序号].线程ID ＝ 线程_取自线程ID ()<br /> PostThreadMessageA (窗口列表 [序号].线程ID, #WM_USER, 0, 0)<br /> <br /> 死循环 ＝ 真<br /> .判断循环首 (死循环)<br />     接收消息 ＝ PeekMessage (msg, -1, 0, 0, #PM_REMOVE)<br />     ' 接收消息 ＝ GetMessage (msg, -1, #WM_USER, 0)<br /> <br />     调试输出 (“-------------接收消息结果:” ＋ 到文本 (接收消息))<br /> <br />     .如果真 (接收消息 ＞ 0)<br />         调试输出 (“=============== 接收到消息 ==============”)<br />         ' 调试输出 (“message:” ＋ 到文本 (msg.message))<br />         调试输出 (“hwnd：” ＋ 到文本 (msg.hwnd))<br />         调试输出 (“message：” ＋ 到文本 (msg.message))<br />         调试输出 (“wParam：” ＋ 到文本 (msg.wParam))<br />         调试输出 (“lParam：” ＋ 到文本 (msg.lParam))<br />         调试输出 (“time：” ＋ 到文本 (msg.time))<br />         调试输出 (“pt_x：” ＋ 到文本 (msg.pt_x))<br />         调试输出 (“pt_y：” ＋ 到文本 (msg.pt_y))<br />         调试输出 (“=============== 接收到消息 END ==============”)<br />         程序_延时 (1000)<br />     .如果真结束<br /> <br /> .判断循环尾 ()

补充内容 (2025-2-27 11:42):
程序_延时 (1000) 这里用来模拟大漠操作鼠标，在这延时的1秒钟之内，PostThreadMessageA 都将丢失

frankiy

按理说我消息发送成功进入队列，然后就是一条一条消费就可以了，不存在丢失的问题。

但是并没有看到你做消息队列的处理啊。

b0y

那就用sendmessage

caojianfei

frankiy 发表于 2025-2-27 11:46
按理说我消息发送成功进入队列，然后就是一条一条消费就可以了，不存在丢失的问题。

但是并没有看到你做消 ...

查看 PeekMessage  那段代码 ，在 键鼠同步测试 这个方法内，这个方法是在线程中调用的

caojianfei

b0y 发表于 2025-2-27 11:47
那就用sendmessage

sendmessage 是给窗口发的