| ■40943 / inTopicNo.3) | Re[1]: API関数sendinputについて |
| ■No40912 (たぬき さん) に返信 > それと、kybd_eventの代わりにsendinput関数を使おうと思ったのですが、宣言の仕方がいまいちわかりません。 検索すれば、宣言の仕方は出てくると思うんだけど、何がどう分からないのかまで書かないとダメだよね。 ただ分からないで簡易的に質問されるより、ここをこうやったけどと提示された上で質問できるようになればいいなー '押されているキーの判定 Dim ss As New System.Text.StringBuilder For Each kk As DirectInput.Key In [Enum].GetValues(GetType(DirectInput.Key)) If keystate(kk) Then 'キーkkが押されている ss.AppendFormat("{0} ", kk) End If Next DirectInputで、上記ではどのキーが押されたかが文字列で取れている。 SendInputに渡すキーは、DirectInputとの変換マップを作成(文字列検索してコードを渡すなど) するなりしてコードを渡すようにするとか もっと簡易的な方法があるかも知れないけど･･･ Key 列挙型 http://msdn.microsoft.com/ja-jp/library/ms835979.aspx DirectInputを使う方法 http://www.geocities.co.jp/SiliconValley/7406/tips/mouse/mouse3.html スクリーンキーボードを作る http://homepage1.nifty.com/yasunari/VB/VB2005/ScreenKeyBoardMaking.htm スクリーンキーボードのシフトキー http://dobon.net/vb/bbs/log3-36/22123.html |