Question

我正在尝试捕获所有的keystokes，并且我得到了“无法在DLL'user32'中找到名为'GetAsncKeyState'的入口点”错误 result = GetAsncKeyState（i）这是代码

Private Declare Function GetAsncKeyState Lib "user32" (ByVal vkey As Integer) As Integer
Private Sub tmrKeys_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrKeys.Tick
    Dim result As Integer
    Dim key As String
    Dim i As Integer
    For i = 2 To 90
        result = 0
        result = GetAsncKeyState(i)
        If result = -3276 Then
            key = Chr(i)
            If i = 13 Then key = vbNewLine
            Exit For
        End If
    Next i

Answer 1

您描述错误的原因是因为函数名称为 GetAsyncKeyState ，而不是 GetAsncKeyState 。

同样在 .NET 中，您应该考虑使用DllImport属性而不是Declare语句（这是一种过时的 VB6-stylish 方法）provide more control over how platform invoke functions are called。

以下是GetAsyncKeyState声明that I use，其中包含XML文档：

''' ----------------------------------------------------------------------------------------------------
''' <summary>
''' Determines whether a key is up or down at the time the function is called, 
''' and whether the key was pressed after a previous call to <see cref="GetAsyncKeyState"/>.
''' </summary>
''' ----------------------------------------------------------------------------------------------------
''' <remarks>
''' <see href="http://msdn.microsoft.com/en-us/library/windows/desktop/ms646310%28v=vs.85%29.aspx"/>
''' </remarks>
''' ----------------------------------------------------------------------------------------------------
''' <param name="vKey">
''' The virtual-key code.
''' <para></para>
''' You can use left- and right-distinguishing constants to specify certain keys.
''' <para></para>
''' See Virtual-Key Codes: 
''' <see href="http://msdn.microsoft.com/en-us/library/windows/desktop/dd375731%28v=vs.85%29.aspx"/>
''' </param>
''' ----------------------------------------------------------------------------------------------------
''' <returns>
''' If the function succeeds, 
''' the return value specifies whether the key was pressed since the last call to <see cref="GetAsyncKeyState"/>, 
''' and whether the key is currently up or down.
''' <para></para>
''' If the most significant bit is set, the key is down, and if the least significant bit is set, 
''' the key was pressed after the previous call to <see cref="GetAsyncKeyState"/>.
''' <para></para>
''' However, you should not rely on this last behavior.
''' <para></para>
''' <para></para>
''' The return value is zero for the following cases: 
''' <para></para>
''' The current desktop is not the active desktop.
''' <para></para>
''' The foreground thread belongs to another process and the desktop does not allow the hook or the journal record.
''' </returns>
''' ----------------------------------------------------------------------------------------------------
<SuppressUnmanagedCodeSecurity>
<DllImport("user32.dll", CharSet:=CharSet.Auto)>
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys
) As Short
End Function

注意：如果您愿意，可以将vKey参数更改为Integer数据类型。

无法在DLL“user32”中找到名为“GetAsncKeyState”的入口点

1 个答案: