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

Question

我正在编写一个程序，它可以自动在代码中指定的地方移动鼠标并按下。目前，我可以使用以下代码移动光标：

Cursor.Position <- System.Drawing.Point(x,y)

但是我还没有找到如何模拟鼠标点击或按键操作。我在 MSDN 上找到了 SendKeys 类（http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.aspx）。我试图使用这个类来模拟按键操作，但是我收到了运行时错误信息。

我使用的行是：

SendKeys.Send("{ENTER}")

我得到的错误信息是：
"因为该应用程序未处理 Windows 消息，所以 SendKeys 无法在该应用程序内运行。请将应用程序更改为处理消息，或使用 SendKeys.SendWait 方法。"

于是我使用了 SendWait 方法，但似乎仍然无法发送按键。我该怎么做？我真正想要完成的程序是，可以向后台已经开启的另一个程序发送按键和鼠标点击。例如，在 Paint 中自动绘制图像。

- Alex

Answer 1

如果您想避免Win32本地交互，Windows输入模拟器是一个很有前途的托管包装器，可以使用SendInput。但是，最新版本不支持鼠标模拟。然而，活动主干有一个支持鼠标模拟的补丁（请参见此讨论）。该项目使用VS2010 C＃，您可以从子版本库这里导出并构建自己。

如果您对Win32本地交互感兴趣，我提供了一个演示如何使用F#使用SendInput API的应用程序。此应用程序模拟右键单击。

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的示例能够帮助您。这里有一个相关的问题。

- Stephen Swensen

---

InputSimulator 的绝妙技巧！！+1 - Andrei Rînea

Answer 2

你需要寻找的是 SendInput Win32 API 调用。

- SLaks

Answer 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 ()

- merrick