SendMessage

---

SendMessageで書き直したいのですが、どのように書き直せばよいのか教えてください。
（VB2005です）↓

    'キーコード送信
    Dim DownUp As Integer = 0
    Dim Down As Integer = 1
    Dim Up As Integer = 2
    Private Sub KBD(ByVal KEY_CODE As Byte, ByVal 状態 As Integer, ByVal ms As Integer)
        Sleep(ms)
        If 状態 = 1 Then
            Call keybd_event(KEY_CODE, 0, 0, 0)
        ElseIf 状態 = 2 Then
            Call keybd_event(KEY_CODE, 0, &H2, 0)
        ElseIf 状態 = 0 Then
            Call keybd_event(KEY_CODE, 0, 0, 0)
            Call keybd_event(KEY_CODE, 0, &H2, 0)
        Else
        End If
    End Sub

編集 削除

---

[マルチポストについて]
http://www.ippo.ne.jp/g/53.html

http://bbs.wankuma.com/index.cgi?mode=al2&namber=10240

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する