GetAsyncKeyState使用数字？ Visual Basic

Question

我正在为自己制作一个键盘记录器，我无法理解如何使这些数字有效。

key1 = GetAsyncKeyState(Keys.B)
If Key1 = True Then
    RichTextBox1.SelectedText = "B"
End If

你能以其他方式做到这一点吗？如果是的话，请告诉我！

谢谢！ C：

Answer 1

好吧，我建议你使用一些更先进的方法。首先，在类中声明GetAsyncKeyState：

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

然后，获得密钥1：

If (GetAsyncKeyState(49)) Then
    'Do something with 1
End If

获取小键盘键1：

If (GetAsyncKeyState(97)) Then
    'Do something with keypad number 1
End If    

现在你想知道，你从哪里得到这些数字？在这里，您可以看到哪个数字是哪个键：http://help.adobe.com/en_US/AS2LCR/Flash_10.0/help.html?content=00000520.html向下滚动一下，您可以看到所有数字到键翻译。您要使用的数字是“密码”数字。

如果你不想记住所有这些数字，你可以创建存储这些数字的整数，例如：

Dim Key_1 As Integer = 49

我希望你不要将它用于非法目的。