如何用 PostMessage 模拟鼠标按键？

2006-11-16 12:41:19 530 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

硬件工程师面试高频考点：ADC采样、EMC整改与运放稳定性深度拆解在电子系统设计中，模拟信号采集与电磁兼容是决定产品可靠性的核心环节。从传感器输出的微弱信号需经运放调理、ADC数字化，而电源与高速数字电路产生的噪声又可能通过共模路径引发EMC问题。理解采样保持、电荷注入、共模电流回流等物理过程，掌握相位裕度补偿、共模扼流圈选型等工程方法，能显著提升硬件系统的精度与抗扰度。这些技术广泛应用于工业采集、通信控制等场景，也是硬件岗位面试的重点考察方向。本文围绕ADC采样链路、EMC整改与运放补偿等高频话题，结合实战案例展开深度解析。阅读详情

不要使用 Mouse_Event ，会导致鼠标移动过去

用 PostMessage 向某一个程序的一个界面的（X，Y）轴发送点左键的信息，怎么实现？？

可以的话给我比较完整的代码，

我不知道怎么把 X，Y轴这个参数整合到 PostMessage 里面去

...全文

硬件工程师面试高频20问：底层认知与考点全拆解硬件工程师面试看似考察基础知识，实则检验工程师是否建立完整的底层认知体系。从电路原理、电源设计、信号链到PCB布局，每一个技术点背后都对应着物理原理与工程实践逻辑。理解这些基础概念，掌握其推导过程与适用边界，能够帮助工程师在真实项目中快速定位问题、优化设计，从而提升系统的稳定性和可靠性。无论是校招笔试、面试真题，还是日常的硬件开发工作，扎实的底层认知都是成长路线的基石。本文围绕面试中反复出现的高频问题，从知识框架、答题逻辑到追问链路，系统拆解硬件岗位的核心考察点，助力工程师从“背八股文”走向真正的技术理解。阅读详情

小泽zz

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

cangwu_lee 2006-11-16

打赏
举报

鼠标移动和点击

这个代码片断需要一个窗体（废话）~~三个CommandButton 四个Label 一个模块
注释：以下代码在Form1中

注释：************[ Functions ]********************************
#If Win32 Then

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
注释：【参数表】
注释：dwFlags -------- Long，下述标志的一个组合
注释：MOUSEEVENTF_ABSOLUTE
注释：dx和dy指定鼠标坐标系统中的一个绝对位置。在鼠标坐标系统中，屏幕在水平和垂
注释：直方向上均匀分割成65535×65535个单元 - MOUSEEVE
注释： NTF_MOVE
注释：移动鼠标
注释：MOUSEEVENTF_LEFTDOWN
注释：模拟鼠标左键按下
注释：MOUSEEVENTF_LEFTUP
注释：模拟鼠标左键抬起
注释：MOUSEEVENTF_RIGHTDOWN
注释：模拟鼠标右键按下
注释：MOUSEEVENTF_RIGHTUP
注释：模拟鼠标右键按下
注释：MOUSEEVENTF_MIDDLEDOWN
注释：模拟鼠标中键按下
注释：MOUSEEVENTF_MIDDLEUP
注释：模拟鼠标中键按下
注释：dx
注释：Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定水平方向的绝对位置或相
注释：对运动
注释：dy ------------- Long，根据是否指定了MOUSEEVENTF_ABSOLUTE标志，指定垂直
注释：方向的绝对位置或相对运动
注释：cButtons ------- Long，未使用
注释：dwExtraInfo ---- Long，通常未用的一个值。用GetMessageExtraInfo函数可取得
注释：这个值。可用的值取决于特定的驱动程序
#End If 注释：WIN32
注释：**********<<[ EOF ]>>***********************************
Dim p1 As POINTAPI, p2 As POINTAPI
Dim x
Dim Y
Dim X1
Dim Y1
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_LEFTDOWN = &H2

Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Sub Command1_Click()
MsgBox "no"
End Sub

Private Sub Command2_Click()
MsgBox "yes"
End Sub

Private Sub Command3_Click()
Call MoveCursor(p1, p2) 注释：Mouse由Command1 ->Command2
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTDOWN, X1, Y1, 0, 0
mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_LEFTUP, X1, Y1, 0, 0
End Sub

Private Sub Form_Load()
Dim rect5 As RECT

Call GetWindowRect(Command1.hwnd, rect5) 注释：取得Command1相对於Screen的座标
p1.x = (rect5.Left + rect5.Right) 2
p1.Y = (rect5.ToP + rect5.Bottom) 2
Call GetWindowRect(Command2.hwnd, rect5)
p2.x = (rect5.Left + rect5.Right) 2
p2.Y = (rect5.ToP + rect5.Bottom) 2
Label1.Caption = p2.x
Label2.Caption = p2.Y
x = Label1.Caption
Y = Label2.Caption
X1 = (65535 1024) * x
Y1 = (65535 768) * Y
Label3.Caption = X1
Label4.Caption = Y1
End Sub
注释：以下代码在模块里
Type RECT
Left As Long
ToP As Long
Right As Long
Bottom As Long
End Type
Type POINTAPI
x As Long
Y As Long
End Type

Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal Y As Long) As Long
Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub MoveCursor(FromP As POINTAPI, ToP As POINTAPI)
Dim stepx As Long, stepy As Long, k As Long
Dim i As Long, j As Long, sDelay As Long
stepx = 1
stepy = 1
i = (ToP.x - FromP.x)
If i < 0 Then stepx = -1
i = (ToP.Y - FromP.Y)
If i < 0 Then stepy = -1
For i = FromP.x To ToP.x Step stepx
Call SetCursorPos(i, FromP.Y)
Sleep (1)
Next i
For i = FromP.Y To ToP.Y Step stepy
Call SetCursorPos(ToP.x, i)
Sleep (1)
Next i
End Sub

小泽zz 2006-11-16

打赏
举报

Mouse_Event 不好，会导致鼠标移动过去``````

我要后台发送信息的好

gguueesstt 2006-11-16

打赏
举报

对不起错了，

应该是
makelong=65536 * x + y

gguueesstt 2006-11-16

打赏
举报

使用MakeLong
大致是这样的

function makelong(x,y )as long
makelong=&HFF * x +y
end sub

如何用 PostMessage 模拟 鼠标按键 ？

相关推荐

如何用 PostMessage 模拟鼠标按键？