Question

我正在做一个应该移动鼠标并在我在代码中指定的地方自动按下的程序。现在我已经设法通过使用这一行移动光标： Cursor.Position＆lt; - System.Drawing.Point（x，y）

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

我使用的是： SendKeys.Send（ “{ENTER}”）

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

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

Answer 1

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

如果您对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的例子会有所帮助。 Here是一个相关问题。

Answer 2

您正在寻找SendInput Win32 API调用。

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

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

3 个答案: