vb里的POSTmessage

时间：2017.01.01 发布人：Pluuto
vb里的POSTmessage

已解决问题

谷歌Pluuto用户在2017.01.01提交了关于“邓稼先vb里的POSTmessage”的提问，欢迎大家涌跃发表自己的观点。目前共有2个回答，最后更新于2025-03-12T20:20:43。

Postmessage

xy=&h**0C3A069A'高低位十六进制坐标，真实坐标为（3130，1690）

PostMessageForm1.hwnd,WM_LBUTTONDOWN,0,ByValxy
PostMessageForm1.hwnd,WM_LBUTTO**P,0,ByValxy

跪求，为什么没有响应，常量都已经声明了

坐标是基于Form窗体的，根据vb里面坐标

但我不知道这样写是不是坐标错了。

希望大家能够帮助她。

详细问题描述及疑问：

Postmessage

xy=&h**0C3A069A'高低位十六进制坐标，真实坐标为（3130，1690）

PostMessageForm1.hwnd,WM_LBUTTONDOWN,0,ByValxy
PostMessageForm1.hwnd,WM_LBUTTO**P,0,ByValxy

跪求，为什么没有响应，常量都已经声明了

坐标是基于Form窗体的，根据vb里面坐标

但我不知道这样写是不是坐标错了。

期待您的答案，真心佩服你,谢谢 ！

希望以下的回答，能够帮助你。

第1个回答

用户名：.旧巷.  

'模拟鼠标点击参考。窗口设三个Command按钮，按钮3用来测试。测试环境：W7
PrivateDeclareFunctionP来自ostMessa问答geLib"user32"A批lias"PostMessag切铁住eA"(ByValhWndAsLong,ByValwMsgAsLong,ByValwParamAsLon例别云校编g,ByVallParamAsLong)AsLong
PrivateConstWM_LBUTTONDOWN=&h**201
PrivateConstWM_LBUTTO**P=&h**202
PrivateSubCommand1_Click()
'给定坐标鼠标模拟点击
DimXAsLong,YAsLong,ZAsLong
Me.ScaleMode=3'坐标单位设为像素
X=Command3.Width/2'按钮中心点x坐标，非屏幕坐标。超出边界，宣斗牛志介按钮成为焦点，但不响应点击。
Y=Command3.于定层阳教当h**eight/2'按钮中心点y坐标，非屏幕坐标。超出边界，按钮成为焦点，但不响应点击。
Z=Y*65536+X
P新袁服ostMessageCom仍帝mand3.hWnd,WM_LBUTTONDOWN,0,ByValZ'按下鼠标左键
PostMessageCommand3.hWnd,WM_LBUTTONUP,0,ByValZ'释放鼠标左键
'如果是在Form窗口点击，句柄使用Me.hWnd
EndSub
PrivateSubCommand2_Click()
'如果仅实现点击Command按钮，不需要坐标也可以
PostMessageCommand3.hWnd,WM_LBUTTONDOWN,0,0
PostMessageCommand3.hWnd,WM_LBUTTO**P,0,0
End换京书至Sub
PrivateSubCommand3_Click()
MsgBox"模拟鼠标点击测试."
EndSub

第2个回答

用户名：whoami1978  

(我现在没时保否判层若耐间测试)

简单的方法用VS的spy++,监视下消息日志

看下实际点击与同院让么务升张你发的消息有什么差异,很容易发现问题的