[VB.NET]调用API获取/设置键盘按键状态

Public Class ImitateKeyClass
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Integer, ByVal wMapType As Integer) As Integer
    Private Declare Function GetAsyncKeyState Lib "user32 " (ByVal vKey As Integer) As Integer
    ‘‘‘ <summary>
    ‘‘‘ 发送按键
    ‘‘‘ </summary>
    ‘‘‘ <param name="CharArray"></param>
    Public Sub SendString(CharArray As String)
        For Each SubChar As Char In CharArray
            keybd_event(Asc(SubChar), MapVirtualKey(Asc(SubChar), 0), &H1 Or 0, 0) ‘按下
            System.Threading.Thread.Sleep(10) ‘延时
            keybd_event(Asc(SubChar), MapVirtualKey(Asc(SubChar), 0), &H1 Or &H2, 0) ‘弹起
            System.Threading.Thread.Sleep(10)
        Next
    End Sub
    ‘‘‘ <summary>
    ‘‘‘  获取A~Z的按键状态
    ‘‘‘ </summary>
    ‘‘‘ <returns></returns>
    Public Function GetActiveKey() As Byte
        For i = 65 To 90 ‘A~Z的ASICC码
            If CurrentKeyState(i) = True Then Return i
        Next
        Return 0
    End Function
    ‘‘‘ <summary>
    ‘‘‘ 获取键盘按键状态
    ‘‘‘ </summary>
    ‘‘‘ <param name="KeyCode"></param>
    ‘‘‘ <returns></returns>
    Private Function CurrentKeyState(ByVal KeyCode As Byte) As Boolean
        Dim temp As Integer = GetAsyncKeyState(KeyCode)
        Return (IIf(temp = -32767, True, False))
    End Function
End Class