SendMessage

せぷ 2007-11-14 23:59:38 No: 138120

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

(報告) 2007-11-15 00:43:47 No: 138121

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

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