Как симулировать щелчки мышью и нажатия клавиш в F # - PullRequest
Новая
       43

Как симулировать щелчки мышью и нажатия клавиш в F #

5 голосов
/ 14 ноября 2010

Я делаю программу, которая должна перемещать мышь и автоматически нажимать в местах, где я указываю в коде.Прямо сейчас мне удалось переместить курсор с помощью этой строки: Cursor.Position <- System.Drawing.Point (x, y) </p>

То, что я еще не выяснил, - это то, как имитировать щелчки мышью илинажатия клавиш.Единственное, что я нашел по этому поводу, это класс SendKeys из MSDN (http://msdn.microsoft.com/en-us/library/system.windows.forms.sendkeys.aspx). Я пытался имитировать нажатие клавиш этим классом, но я получаю сообщение об ошибке во время выполнения.

Строка, которую я использую: SendKeys.Send ("{ENTER}")

Я получаю сообщение об ошибке: «SendKeys не может работать внутри этого приложения, поскольку приложение не обрабатывает сообщения Windows. Либо измените приложение для обработки сообщений, либо используйте SendKeys.Метод SendWait. "

Поэтому я заменил его на метод SendWait, но, похоже, он не отправляет нажатие клавиш. Как мне это сделать? Что я действительно хочу, чтобы готовая программа могла делать,отправляет ключи и щелчки мышью в другую программу, которая уже открыта в фоновом режиме, например, автоматически рисует изображение в Paint.

Ответы [ 3 ]

3 голосов
/ 14 ноября 2010

Если вы хотите избежать встроенного взаимодействия с Win32, Windows Input Simulator - это многообещающая перспективная управляемая оболочка для SendInput .Но последний выпуск не поддерживает симуляцию мыши.Однако в активном стволе есть патч для поддержки симуляции мыши (см. это обсуждение).В проекте используется VS2010 C #, и вы можете экспортировать и собрать себя из хранилища Subversion здесь .

Если вы заинтересованы в родном взаимодействии Win32, я собрал демонстрацию того, как использоватьAPI SendInput с 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 поможет. Здесь является связанным вопросом.

2 голосов
/ 14 ноября 2010

Вы ищете SendInput Win32 API-вызов.

0 голосов
/ 30 мая 2012 
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 ()
...