Excel VBA中GetMouseMovePointsEx调用修复及复杂Windows API转换技巧求助

嘿，我完全懂你这种困境——简单的Windows API比如SwapMouseButton或者SetDoubleClickTime，照着抄个声明就能用，但碰到GetMouseMovePointsEx这种带结构体、数组参数的复杂API，确实容易在类型匹配、参数传递上卡壳。我先帮你把这个函数的VBA实现搞定，再分享几个我多年踩坑总结的转换技巧，应该能帮你以后处理这类问题更顺畅。

这个函数需要配合POINT结构体使用，而且参数的类型对应和传递方式有不少细节要注意，我直接给你完整的可运行代码：

首先定义对应的结构体（和Windows API的POINT结构体完全匹配）：

Type POINTAPI
    x As Long
    y As Long
End Type

然后是函数的正确声明（注意参数的类型和传递方式，避免栈溢出或参数错误）：

Private Declare Function GetMouseMovePointsEx Lib "user32.dll" ( _
    ByVal cbSize As Long, _
    ByRef lppt As POINTAPI, _
    ByRef lpptBuf As POINTAPI, _
    ByVal nBufPoints As Long, _
    ByVal resolution As Long _
) As Long

' 辅助函数：获取当前鼠标位置，用来作为查询的起始点
Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

接下来是调用示例，比如获取最近10个鼠标移动点：

Sub TestMouseMovePoints()
    Dim startPoint As POINTAPI
    Dim pointBuffer(9) As POINTAPI ' 准备存储10个点的数组
    Dim retrievedCount As Long
    Dim i As Long
    
    ' 先获取当前鼠标位置作为查询起点
    GetCursorPos startPoint
    
    ' 调用GetMouseMovePointsEx
    retrievedCount = GetMouseMovePointsEx( _
        Len(startPoint), ' 传入POINTAPI结构体的大小，必填
        startPoint, ' 查询的起始点
        pointBuffer(0), ' 数组的第一个元素（传递数组的首地址）
        10, ' 数组的长度
        1 ' 使用屏幕坐标（GMMP_USE_DISPLAY_POINTS的常量值）
    )
    
    ' 输出结果到立即窗口
    If retrievedCount > 0 Then
        Debug.Print "成功获取到 " & retrievedCount & " 个鼠标移动点："
        For i = 0 To retrievedCount - 1
            Debug.Print "点" & i + 1 & ": X=" & pointBuffer(i).x & ", Y=" & pointBuffer(i).y
        Next i
    Else
        Debug.Print "获取失败，错误码：" & Err.LastDllError
        ' 可以根据错误码查MSDN，比如87是参数无效
    End If
End Sub

这些是我平时处理这类问题的核心思路，能帮你少走很多弯路：

• 先啃透官方文档：一定要去查微软的MSDN文档，重点看参数的类型、结构体的定义、返回值的含义，还有必填参数的要求。比如GetMouseMovePointsEx的文档里明确说了cbSize必须是POINT结构体的大小，这个细节错了就会直接调用失败。
• 精准匹配数据类型：VBA和C++的类型差异是重灾区，记住几个关键对应：
  • C++的DWORD/INT/UINT → VBA的Long（都是4字节，别用Integer，它只有2字节）
  • C++的BOOL → VBA的Long（VBA的Boolean是2字节，和API的4字节BOOL不兼容，会导致栈溢出）
  • C++的指针（比如LPPOINT）→ 如果是数组，就传数组第一个元素的ByRef；如果是字符串，用ByVal String或者Byte()数组
• 结构体要完全对齐：VBA的Type定义必须和C++的结构体字节数、成员顺序完全一致。比如POINTAPI的x和y都是Long，和Windows的POINT结构体完全匹配，字节数刚好8字节，不会有对齐问题。如果遇到带字节对齐的特殊结构体，可能需要手动调整，但大部分Windows API结构体都不用。
• 从简单场景测试：不要一开始就写复杂的调用，先从最小可行场景入手。比如先调用GetMouseMovePointsEx获取1个点，确认返回值正常，再扩展到数组。
• 用错误码排查问题：API调用失败时，用Err.LastDllError获取Windows的错误码，然后查对应的错误含义，比如87是参数无效，122是内存不足，这样能快速定位哪里错了。
• 参考现成的VBA示例：很多复杂API都有现成的VBA实现，搜的时候加上“VBA”关键词，比如“VBA GetMouseMovePointsEx”，能找到别人已经踩过的坑和正确的写法。
• 注意Unicode/ANSI版本：很多API有A（ANSI）和W（Unicode）两个版本，VBA默认是Unicode环境，所以尽量用W版本，或者直接用不带后缀的函数名（VBA会自动适配）。比如GetMouseMovePointsEx其实是GetMouseMovePointsExW的别名，直接用就行。

内容的提问来源于stack exchange，提问作者user7393973