如何在 F# 中模拟鼠标点击和按键

Posted 2023-04-14

【中文标题】如何在 F# 中模拟鼠标点击和按键

【英文标题】：How to simulate mouse clicks and keypresses in F#

【发布时间】：2011-05-09 20:04:03

【问题描述】：

我正在做一个程序，它应该移动鼠标并在我在代码中指定的位置自动按下。现在我已经设法通过使用这一行来移动光标： Cursor.Position

我还没有发现如何模拟鼠标点击或按键。我唯一发现的是 MSDN (http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.aspx) 的 SendKeys 类。我试图用这个类模拟按键，但我收到了运行时错误消息。

我使用的线路是： SendKeys.Send("ENTER")

我收到的错误消息： “SendKeys 无法在此应用程序中运行，因为该应用程序未处理 Windows 消息。请更改应用程序以处理消息，或使用 SendKeys.SendWait 方法。”

所以我用 SendWait 方法替换了它，但它似乎仍然没有发送按键。我该怎么做呢？我真正希望完成的程序能够做的是将键和鼠标点击发送到另一个已经在后台打开的程序。例如，在 Paint 中自动绘制图像。

【参考方案1】：

如果您想避免 Win32 本机互操作，Windows Input Simulator 是一个看起来很有前途的托管包装器 SendInput。但最新版本不支持鼠标模拟。但是，活动主干有一个支持鼠标模拟的补丁（参见this 讨论）。项目使用VS2010 C#，可以从subversion仓库here导出构建自己。

如果您对 Win32 本机互操作感兴趣，我将展示如何将 SendInput API 与 F# 一起使用。此应用程序模拟右键单击。

open System
open System.Runtime.InteropServices

type MOUSEINPUT = struct
    val dx:int
    val dy:int
    val mouseData:int
    val dwFlags:int
    val time:int
    val dwExtraInfo:int
    new(_dx, _dy, _mouseData, _dwFlags, _time, _dwExtraInfo) = dx=_dx; dy=_dy; mouseData=_mouseData; dwFlags=_dwFlags; time=_time; dwExtraInfo=_dwExtraInfo
end

type INPUT = struct
    //need to escape traditional INPUT identifier here since "type" is a reserved word
    //though could use any other identifier name if so desired
    val ``type``:int //0 is mouse
    val mi:MOUSEINPUT
    new(_type, _mi) = ``type``=_type; mi=_mi
end

let MOUSEEVENTF_RIGHTDOWN = 0x0008
let MOUSEEVENTF_RIGHTUP = 0x0010

[<DllImport("user32.dll", SetLastError=true)>]
extern uint32 SendInput(uint32 nInputs, INPUT* pInputs, int cbSize)

let mutable inputRightDown = INPUT(0, MOUSEINPUT(0, 0, 0, MOUSEEVENTF_RIGHTDOWN, 0, 0))
let mutable inputRightUp = INPUT(0, MOUSEINPUT(0, 0, 0, MOUSEEVENTF_RIGHTUP, 0, 0))

SendInput(uint32 1, &&inputRightDown, Marshal.SizeOf(inputRightDown))
SendInput(uint32 1, &&inputRightUp, Marshal.SizeOf(inputRightUp))

在第二次阅读您的问题时，我发现您最终希望将模拟的鼠标和键盘事件发送到在后台运行的应用程序，在这种情况下，SendMessage / PostMessage 可能是更合适的 API。这仍然需要本机互操作，希望我使用 SendInput 的示例会有所帮助。 Here 是一个相关问题。

【讨论】：

InputSimulator 的优秀技巧！！ +1

【参考方案2】：

您正在寻找SendInput Win32 API 调用。

【参考方案3】：

open System.Runtime.InteropServices

module InteropWithNative = 
    [<DllImport("user32.dll", CharSet = CharSet.Auto, CallingConvention = CallingConvention.StdCall)>]
    extern void mouse_event(System.Int64, System.Int64, System.Int64, System.Int64, System.Int64)

    let MOUSEEVENTF_LEFTDOWN    = 0x02L
    let MOUSEEVENTF_LEFTUP      = 0x04L
    let MOUSEEVENTF_RIGHTDOWN   = 0x08L
    let MOUSEEVENTF_RIGHTUP     = 0x10L

    let  MouseLeftClick () = 
        mouse_event(MOUSEEVENTF_LEFTDOWN, 0L, 0L, 0L, 0L)
        mouse_event(MOUSEEVENTF_LEFTUP, 0L, 0L, 0L, 0L)

然后使用：

    InteropWithNative.MouseLeftClick ()