VBA 7.1调用Win32 EnumChildWindows致程序崩溃求助

核心崩溃原因 #

崩溃源于回调函数声明与Windows API调用约定不匹配，以及参数类型错误导致的内存访问异常：

1. EnumChildWindows的lParam参数为指针类型，VBA 7.1中需声明为LongPtr而非Long
2. 回调函数参数缺少ByVal修饰：Windows API传递句柄时按值传递，VBA默认按引用传递会导致内存地址错误
3. 回调函数返回值语义需明确：API要求返回非零值继续枚举，显式返回1比True更贴合API规范

修复后的完整代码 #

' 修正API声明，确保参数类型与64位环境兼容
Private Declare PtrSafe Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hwndParent As LongPtr, ByVal hwndChildAfter As LongPtr, ByVal lpszClass As String, ByVal lpszWindow As String) As LongPtr
Private Declare PtrSafe Function EnumChildWindows Lib "User32" (ByVal hwndParent As LongPtr, ByVal lpEnumFunc As LongPtr, ByVal lParam As LongPtr) As Long

' 修正回调函数参数，严格匹配API调用约定
Private Function myCallback(ByVal hwndEnum As LongPtr, ByVal lParam As LongPtr) As Long
    Dim testHwnd As LongPtr
    testHwnd = hwndEnum ' 现在可正常赋值，不会崩溃
    myCallback = 1 ' 返回1表示继续枚举，返回0终止枚举
End Function

Sub Main()
    Dim hwndParent As LongPtr, hwndChild As LongPtr, emptyLongPtr As LongPtr
    hwndParent = FindWindow(vbNullString, "Stock Size")
    hwndChild = FindWindowEx(hwndParent, emptyLongPtr, vbNullString, "Billet Dims")
    
    Dim retVal As Long
    retVal = EnumChildWindows(hwndChild, AddressOf myCallback, 0)
End Sub

额外注意事项 #

• 需在64位Office环境下运行，代码中已使用PtrSafe和LongPtr适配64位架构
• 若后续要读取文本框内容，可添加GetWindowText或SendMessage的API调用，需保证参数类型严格匹配
• 枚举第三方3D软件控件时，建议用Spy++工具确认目标控件的类名，避免枚举无关窗口

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