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}")

「アプリケーションが Windows メッセージを処理していないため、このアプリケーション内で SendKeys を実行できません。アプリケーションを変更してメッセージを処理するか、SendKeys.SendWait メソッドを使用してください」

それでSendWaitメソッドに置き換えましたが、まだキープレスを送信していないようです。どうすればいいですか？私が本当に完成したプログラムでできるようにしたいのは、バックグラウンドで既に開いている別のプログラムにキーとマウスのクリックを送信することです。たとえば、ペイントで画像を自動的にペイントします。

4

3 に答える 3

3

Win32 ネイティブの相互運用を避けたい場合は、Windows Input SimulatorがSendInputの有望なマネージ ラッパーです。ただし、最新のリリースではマウス シミュレーションがサポートされていません。ただし、アクティブ トランクには、マウス シミュレーションをサポートするためのパッチがあります (このディスカッションを参照)。このプロジェクトは VS2010 C# を使用しており、Subversion リポジトリからエクスポートしてビルドできます。

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

あなたの質問を 2 度目に読むと、最終的にはシミュレートされたマウスとキーボードのイベントをバックグラウンドで実行されているアプリケーションに送信したいことがわかります。その場合、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 に答える