5

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

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

我使用的行是： SendKeys.Send("{ENTER}")

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

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

4

3 回答 3

3

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

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

于 2010-11-14T19:51:56.200 回答
2

您正在寻找SendInputWin32 API 调用。

于 2010-11-14T14:13:20.613 回答
0 
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 ()
于 2012-05-30T15:44:21.440 回答