方法: コードでマウス イベントとキーボード イベントをシミュレートする
Windows フォームには、マウスとキーボードの入力をプログラムでシミュレートするためのオプションがいくつか用意されています。 このトピックでは、これらのオプションの概要について説明します。
マウス入力のシミュレート
マウス イベントをシミュレートする最善の方法は、シミュレートするマウス イベントを発生させる On
EventName メソッドを呼び出す方法です。 このオプションは通常、カスタム コントロールとフォーム内でのみ可能です。イベントを発生させるメソッドは保護されており、コントロールまたはフォームの外部からはアクセスできないためです。 たとえば、次の手順は、コード内のマウスの右ボタンのクリックをシミュレートする方法を示しています。
プログラムでマウスの右ボタンをクリックするには
MouseEventArgs を作成します。その Button プロパティは MouseButtons.Right 値に設定されています。
この MouseEventArgs を引数として使用して、OnMouseClick メソッドを呼び出します。
カスタム コントロールの詳細については、「デザイン時の Windows フォーム コントロールの開発 」を参照してください。
マウス入力をシミュレートする方法は他にもあります。 たとえば、マウス入力によって通常設定される状態を表すコントロール プロパティ (CheckBox コントロールの Checked プロパティなど) をプログラムで設定したり、シミュレートするイベントにアタッチされているデリゲートを直接呼び出したりすることができます。
キーボード入力のシミュレート
上で説明したマウス入力の方法を使用してキーボード入力をシミュレートできますが、Windows フォームには、アクティブなアプリケーションにキーストロークを送信するための SendKeys クラスも用意されています。
注意
アプリケーションがさまざまなキーボードでの国際使用を目的としている場合は、SendKeys.Send を使用すると予測できない結果が生じる可能性があり、回避する必要があります。
手記
.NET Framework 3.0 の SendKeys クラスが更新され、Windows Vista で実行されるアプリケーションで使用できるようになりました。 Windows Vista の強化されたセキュリティ (ユーザー アカウント制御または UAC と呼ばれます) により、以前の実装が想定どおりに動作できなくなります。
SendKeys クラスはタイミングの問題の影響を受けやすく、一部の開発者は回避する必要がありました。 更新された実装は、タイミングの問題の影響を受けやすくなりますが、若干高速であり、回避策の変更が必要になる場合があります。 SendKeys クラスは最初に前の実装を使用しようとしますが、失敗した場合は新しい実装を使用します。 その結果、SendKeys クラスはオペレーティング システムによって動作が異なる場合があります。 さらに、SendKeys クラスが新しい実装を使用する場合、SendWait メソッドは、メッセージが別のプロセスに送信されるときに処理されるのを待機しません。
アプリケーションがオペレーティング システムに関係なく一貫した動作に依存している場合は、app.config ファイルに次のアプリケーション設定を追加することで、SendKeys クラスに新しい実装を強制的に使用させることができます。
<appSettings>
<add key="SendKeys" value="SendInput"/>
</appSettings>
SendKeys クラスで前の実装を強制的に使用するには、代わりに値 "JournalHook"
を使用します。
キーストロークを同じアプリケーションに送信するには
SendKeys クラスの Send または SendWait メソッドを呼び出します。 指定されたキーストロークは、アプリケーションのアクティブなコントロールによって受け取ります。 次のコード例では、Send を使用して、ユーザーがフォームの表面をダブルクリックしたときに Enter キーを押すのをシミュレートします。 この例では、タブ インデックスが 0 の単一の Button コントロールを持つ Form を想定しています。
// Send a key to the button when the user double-clicks anywhere // on the form. private: void Form1_DoubleClick(Object^ sender, EventArgs^ e) { // Send the enter key to the button, which triggers the click // event for the button. This works because the tab stop of // the button is 0. SendKeys::Send("{ENTER}"); }
// Send a key to the button when the user double-clicks anywhere // on the form. private void Form1_DoubleClick(object sender, EventArgs e) { // Send the enter key to the button, which raises the click // event for the button. This works because the tab stop of // the button is 0. SendKeys.Send("{ENTER}"); }
' Send a key to the button when the user double-clicks anywhere ' on the form. Private Sub Form1_DoubleClick(ByVal sender As Object, _ ByVal e As EventArgs) Handles Me.DoubleClick ' Send the enter key to the button, which raises the click ' event for the button. This works because the tab stop of ' the button is 0. SendKeys.Send("{ENTER}") End Sub
別のアプリケーションにキーストロークを送信するには
キーストロークを受け取るアプリケーション ウィンドウをアクティブ化し、Send または SendWait メソッドを呼び出します。 別のアプリケーションをアクティブ化するためのマネージド メソッドがないため、ネイティブ Windows メソッドを使用して他のアプリケーションに強制的に集中させる必要があります。 次のコード例では、プラットフォーム呼び出しを使用して
FindWindow
メソッドとSetForegroundWindow
メソッドを呼び出して Calculator アプリケーション ウィンドウをアクティブ化し、SendWait を呼び出して電卓アプリケーションに一連の計算を発行します。手記
電卓アプリケーションを検索する
FindWindow
呼び出しの正しいパラメーターは、Windows のバージョンによって異なります。 次のコードは、Windows 7 で電卓アプリケーションを検索します。 Windows Vista では、最初のパラメーターを "SciCalc" に変更します。 Visual Studio に含まれている Spy++ ツールを使用して、正しいパラメーターを決定できます。// Get a handle to an application window. public: [DllImport("USER32.DLL", CharSet = CharSet::Unicode)] static IntPtr FindWindow(String^ lpClassName, String^ lpWindowName); public: // Activate an application window. [DllImport("USER32.DLL")] static bool SetForegroundWindow(IntPtr hWnd); // Send a series of key presses to the Calculator application. private: void button1_Click(Object^ sender, EventArgs^ e) { // Get a handle to the Calculator application. The window class // and window name were obtained using the Spy++ tool. IntPtr calculatorHandle = FindWindow("CalcFrame", "Calculator"); // Verify that Calculator is a running process. if (calculatorHandle == IntPtr::Zero) { MessageBox::Show("Calculator is not running."); return; } // Make Calculator the foreground application and send it // a set of calculations. SetForegroundWindow(calculatorHandle); SendKeys::SendWait("111"); SendKeys::SendWait("*"); SendKeys::SendWait("11"); SendKeys::SendWait("="); }
// Get a handle to an application window. [DllImport("USER32.DLL", CharSet = CharSet.Unicode)] public static extern IntPtr FindWindow(string lpClassName, string lpWindowName); // Activate an application window. [DllImport("USER32.DLL")] public static extern bool SetForegroundWindow(IntPtr hWnd); // Send a series of key presses to the Calculator application. private void button1_Click(object sender, EventArgs e) { // Get a handle to the Calculator application. The window class // and window name were obtained using the Spy++ tool. IntPtr calculatorHandle = FindWindow("CalcFrame","Calculator"); // Verify that Calculator is a running process. if (calculatorHandle == IntPtr.Zero) { MessageBox.Show("Calculator is not running."); return; } // Make Calculator the foreground application and send it // a set of calculations. SetForegroundWindow(calculatorHandle); SendKeys.SendWait("111"); SendKeys.SendWait("*"); SendKeys.SendWait("11"); SendKeys.SendWait("="); }
' Get a handle to an application window. Declare Auto Function FindWindow Lib "USER32.DLL" ( _ ByVal lpClassName As String, _ ByVal lpWindowName As String) As IntPtr ' Activate an application window. Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _ (ByVal hWnd As IntPtr) As Boolean ' Send a series of key presses to the Calculator application. Private Sub button1_Click(ByVal sender As Object, _ ByVal e As EventArgs) Handles button1.Click ' Get a handle to the Calculator application. The window class ' and window name were obtained using the Spy++ tool. Dim calculatorHandle As IntPtr = FindWindow("CalcFrame", "Calculator") ' Verify that Calculator is a running process. If calculatorHandle = IntPtr.Zero Then MsgBox("Calculator is not running.") Return End If ' Make Calculator the foreground application and send it ' a set of calculations. SetForegroundWindow(calculatorHandle) SendKeys.SendWait("111") SendKeys.SendWait("*") SendKeys.SendWait("11") SendKeys.SendWait("=") End Sub
例
次のコード例は、前のコード例の完全なアプリケーションです。
#using <System.Drawing.dll>
#using <System.Windows.Forms.dll>
#using <System.dll>
using namespace System;
using namespace System::Runtime::InteropServices;
using namespace System::Drawing;
using namespace System::Windows::Forms;
namespace SimulateKeyPress
{
public ref class Form1 : public Form
{
public:
Form1()
{
Button^ button1 = gcnew Button();
button1->Location = Point(10, 10);
button1->TabIndex = 0;
button1->Text = "Click to automate Calculator";
button1->AutoSize = true;
button1->Click += gcnew EventHandler(this, &Form1::button1_Click);
this->DoubleClick += gcnew EventHandler(this,
&Form1::Form1_DoubleClick);
this->Controls->Add(button1);
}
// Get a handle to an application window.
public:
[DllImport("USER32.DLL", CharSet = CharSet::Unicode)]
static IntPtr FindWindow(String^ lpClassName, String^ lpWindowName);
public:
// Activate an application window.
[DllImport("USER32.DLL")]
static bool SetForegroundWindow(IntPtr hWnd);
// Send a series of key presses to the Calculator application.
private:
void button1_Click(Object^ sender, EventArgs^ e)
{
// Get a handle to the Calculator application. The window class
// and window name were obtained using the Spy++ tool.
IntPtr calculatorHandle = FindWindow("CalcFrame", "Calculator");
// Verify that Calculator is a running process.
if (calculatorHandle == IntPtr::Zero)
{
MessageBox::Show("Calculator is not running.");
return;
}
// Make Calculator the foreground application and send it
// a set of calculations.
SetForegroundWindow(calculatorHandle);
SendKeys::SendWait("111");
SendKeys::SendWait("*");
SendKeys::SendWait("11");
SendKeys::SendWait("=");
}
// Send a key to the button when the user double-clicks anywhere
// on the form.
private:
void Form1_DoubleClick(Object^ sender, EventArgs^ e)
{
// Send the enter key to the button, which triggers the click
// event for the button. This works because the tab stop of
// the button is 0.
SendKeys::Send("{ENTER}");
}
};
}
[STAThread]
int main()
{
Application::EnableVisualStyles();
Application::Run(gcnew SimulateKeyPress::Form1());
}
using System;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Windows.Forms;
namespace SimulateKeyPress
{
class Form1 : Form
{
private Button button1 = new Button();
[STAThread]
public static void Main()
{
Application.EnableVisualStyles();
Application.Run(new Form1());
}
public Form1()
{
button1.Location = new Point(10, 10);
button1.TabIndex = 0;
button1.Text = "Click to automate Calculator";
button1.AutoSize = true;
button1.Click += new EventHandler(button1_Click);
this.DoubleClick += new EventHandler(Form1_DoubleClick);
this.Controls.Add(button1);
}
// Get a handle to an application window.
[DllImport("USER32.DLL", CharSet = CharSet.Unicode)]
public static extern IntPtr FindWindow(string lpClassName,
string lpWindowName);
// Activate an application window.
[DllImport("USER32.DLL")]
public static extern bool SetForegroundWindow(IntPtr hWnd);
// Send a series of key presses to the Calculator application.
private void button1_Click(object sender, EventArgs e)
{
// Get a handle to the Calculator application. The window class
// and window name were obtained using the Spy++ tool.
IntPtr calculatorHandle = FindWindow("CalcFrame","Calculator");
// Verify that Calculator is a running process.
if (calculatorHandle == IntPtr.Zero)
{
MessageBox.Show("Calculator is not running.");
return;
}
// Make Calculator the foreground application and send it
// a set of calculations.
SetForegroundWindow(calculatorHandle);
SendKeys.SendWait("111");
SendKeys.SendWait("*");
SendKeys.SendWait("11");
SendKeys.SendWait("=");
}
// Send a key to the button when the user double-clicks anywhere
// on the form.
private void Form1_DoubleClick(object sender, EventArgs e)
{
// Send the enter key to the button, which raises the click
// event for the button. This works because the tab stop of
// the button is 0.
SendKeys.Send("{ENTER}");
}
}
}
Imports System.Runtime.InteropServices
Imports System.Drawing
Imports System.Windows.Forms
Namespace SimulateKeyPress
Class Form1
Inherits Form
Private WithEvents button1 As New Button()
<STAThread()> _
Public Shared Sub Main()
Application.EnableVisualStyles()
Application.Run(New Form1())
End Sub
Public Sub New()
button1.Location = New Point(10, 10)
button1.TabIndex = 0
button1.Text = "Click to automate Calculator"
button1.AutoSize = True
Me.Controls.Add(button1)
End Sub
' Get a handle to an application window.
Declare Auto Function FindWindow Lib "USER32.DLL" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As IntPtr
' Activate an application window.
Declare Auto Function SetForegroundWindow Lib "USER32.DLL" _
(ByVal hWnd As IntPtr) As Boolean
' Send a series of key presses to the Calculator application.
Private Sub button1_Click(ByVal sender As Object, _
ByVal e As EventArgs) Handles button1.Click
' Get a handle to the Calculator application. The window class
' and window name were obtained using the Spy++ tool.
Dim calculatorHandle As IntPtr = FindWindow("CalcFrame", "Calculator")
' Verify that Calculator is a running process.
If calculatorHandle = IntPtr.Zero Then
MsgBox("Calculator is not running.")
Return
End If
' Make Calculator the foreground application and send it
' a set of calculations.
SetForegroundWindow(calculatorHandle)
SendKeys.SendWait("111")
SendKeys.SendWait("*")
SendKeys.SendWait("11")
SendKeys.SendWait("=")
End Sub
' Send a key to the button when the user double-clicks anywhere
' on the form.
Private Sub Form1_DoubleClick(ByVal sender As Object, _
ByVal e As EventArgs) Handles Me.DoubleClick
' Send the enter key to the button, which raises the click
' event for the button. This works because the tab stop of
' the button is 0.
SendKeys.Send("{ENTER}")
End Sub
End Class
End Namespace
コードのコンパイル
この例では、次のものが必要です。
- System、System.Drawing、System.Windows.Forms アセンブリへの参照。
関連項目
.NET Desktop feedback