将光标设置为转到外部应用程序，使用外部程序答案

【问题标题】：Set cursor to go to external application, work with external program将光标设置为转到外部应用程序，使用外部程序
【发布时间】：2014-02-16 09:56:01
【问题描述】：

我正在使用鼠标代码。我正在尝试将鼠标移动到外部应用程序点或使其从外部应用程序转到按钮？例如，将其移至 Windows 计算器按钮并使用程序按下它。

有没有办法调用外部应用程序上的按钮按下或使用 vb 将焦点更改到另一个应用程序？

【问题讨论】：

你是不是先google了，没找到答案？
是的。我先谷歌，我只找到 1 个答案，但我不知道如何将消息发送到鼠标（使用 win32）。

标签： vb.net windows cursor external

【解决方案1】：

如果您知道要单击的按钮的位置，假设 x,y 在屏幕坐标中，您可以这样做：

Public Declare Auto Function SetCursorPos Lib "User32.dll" _
       (ByVal X As Integer, ByVal Y As Integer) As Long
Public Declare Auto Function GetCursorPos Lib "User32.dll" _
       (ByRef lpPoint As Point) As Long
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" _
      (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, _
       ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Public Const MOUSEEVENTF_LEFTDOWN = &H2 ' left button down
Public Const MOUSEEVENTF_LEFTUP = &H4 ' left button up

SetCursorPos(x, y) 'moves cursor to x,y position

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) 'Invoke mouse down event
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0) 'Invoke mouse up event

鼠标按下和鼠标按下事件模拟按钮的单击。希望有帮助

变态

【讨论】：