如何在F中模擬鼠標點擊和按鍵＃

Question

我正在做一個應該移動鼠標並在代碼中指定位置自動按下的程序。現在我已經設法移動光標使用這一行： Cursor.Position < - System.Drawing.Point（x，y）

我還沒有發現的是如何模擬鼠標點擊或按鍵。我唯一發現的就是MSDN的SendKeys Class（http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.aspx）。我試圖模擬這個類的按鍵，但我得到一個運行時錯誤消息。

我使用的路線是： SendKeys.Send（「{ENTER}」）

錯誤消息我得到： 「的SendKeys不能在此應用程序內運行，因爲該應用程序不處理Windows消息要麼改變處理消息的應用程序或使用SendKeys.SendWait方法。「

所以我用SendWait方法替換了它，但它似乎仍然沒有發送按鍵。我該怎麼做呢？我真正想要完成的程序能夠做到的是將鍵和鼠標點擊發送到已經在後臺打開的另一個程序。例如，自動在Paint中繪製圖像。

Answer 1

您正在尋找的SendInput Win32 API調用。

Answer 2

如果你想避免Win32 native interop，Windows Input Simulator是一個看起來很好看的管理包裝器，圍繞SendInput。但最新版本不支持鼠標模擬。但是，活動主幹具有用於支持鼠標模擬的補丁（請參閱this討論）。該項目使用VS2010 C＃，您可以從Subversion版本庫here導出和構建自己。

如果您對Win32 native interop感興趣，我將演示如何將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是一個相關的問題。

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