API
求教：mouse event 事件执行单击无效。
墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年，写一次发全网
我也要 关注 + 加入社区小弟在写一个程序，需要远程控制另外一台电脑。在测试模拟鼠标事件中，发现无法执行模拟单击。
代码如下：
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)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
代码如下：
Private Sub Timer1_Timer()
SetCursorPos 288, 718 '设置鼠标位置(1024X768)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '单击时用左按键下or左按键上，双击时写两句
Timer1.Enabled = False
End Sub
确切来说，是测试的时候，单击暂停暴风影音可以实现，但是，在单击 word 文档的工具栏时就不行了。所有测试均在xp系统中。
求高手支招！谢谢。
代码如下：
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)
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Private Const MOUSEEVENTF_LEFTUP = &H4 ' left button up
代码如下：
Private Sub Timer1_Timer()
SetCursorPos 288, 718 '设置鼠标位置(1024X768)
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '单击时用左按键下or左按键上，双击时写两句
Timer1.Enabled = False
End Sub
确切来说，是测试的时候，单击暂停暴风影音可以实现，但是，在单击 word 文档的工具栏时就不行了。所有测试均在xp系统中。
求高手支招！谢谢。
...全文
