使用API CallWindowProc实现稳定的回调函数方法

leolee82

原理将函数地址和参数传给CallWindowProc,由系统进行函数回调。参数多的话可以封装到数组中。
网上有很多详细的介绍，但好像没稳定的实现。自己弄了个通用的方法，用了好几年，简单整理了下，分享给大家。

1. '运行速度比接口(I_Compare)形式慢3倍左右,非大量回调的算法类基本无影响
   
2. 'Application.Run慢XX倍
   
3. '排序等算法类建议用接口形式进行回调.
   
4. Declare Function CallBackProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpProc As Long, Optional Param1 As Any, Optional Param2 As Any, Optional Param3 As Any, Optional Param4 As Any) As Long
   
5. 
   
6. 'lpProc must be a Sub
   
7. Sub CallBackSub_(ByVal lpProc As Long, Optional ByRef Param1 = 0, Optional ByRef Param2 = 0, Optional ByRef Param3 = 0, Optional ByRef Param4 = 0)
   
8.     Call CallBackProc(lpProc, Param1, Param2, Param3, Param4)
   
9. End Sub
   
10. 
    
11. 'lpProc must be a Sub
    
12. Function CallBackFunction_(ByVal lpProc As Long, Optional ByRef Param1 = 0, Optional ByRef Param2 = 0, Optional ByRef Param3 = 0)
    
13.     Call CallBackProc(lpProc, CallBackFunction_, Param1, Param2, Param3)
    
14. End Function
    
15. 
    
16. '''==回调函数格式=========================================================================================
    
17. '''所有参数不一定使用但必须声名,参数类型为variant
    
18. Sub SubExample(Param1, Param2, Param3, Param4)
    
19.     Debug.Print "SubExample", Param1, Param2, Param3, Param4
    
20.     Param1 = 5
    
21. End Sub
    
22. 
    
23. Sub FunctionExample(Ret, Param1, Param2, Param3)
    
24.     Ret = Param1 & Param2
    
25.     Debug.Print "FunctionExample"
    
26. End Sub

复制代码

ggmmlol

楼主你好，能否出一个兼容64位Excel的版本？
我把API函数对应改成64位的，相应参数的类型也做了修改，运行时不报错，但Excel直接崩溃了。

joforn

ggmmlol 发表于 2020-12-2 11:45
楼主你好，能否出一个兼容64位Excel的版本？
我把API函数对应改成64位的，相应参数的类型也做了修改，运行 ...

其实只要看到这个参数ByVal lpProc As Long的定义，就会知道不管怎么CALL，在64位中肯定是一运行就得飞啊。其实也挺好玩的，多飞几次就习惯了。

leolee82

ggmmlol 发表于 2020-12-2 11:45
楼主你好，能否出一个兼容64位Excel的版本？
我把API函数对应改成64位的，相应参数的类型也做了修改，运行 ...

主要是参数的内存空间要适配，variant引用都是指针类型。

1. LRESULT CallWindowProcA( //LRESULT 指针64位
   
2.   WNDPROC lpPrevWndFunc,  //指针64位
   
3.   HWND    hWnd, //句柄64位
   
4.   UINT    Msg, //unsigned int 查了一下应该是32位，问题应该就出在这了。
   
5.   WPARAM  wParam, //指针64位
   
6.   LPARAM  lParam //指针64位
   
7. );

复制代码

我一直没用64位office。试试把所有相关的倒数第三个参数声名为byval long，使用时这个参数只能用long，或者干脆别用这个参数了

joforn

    LRESULT CallWindowProcA( //LRESULT 指针64位
      WNDPROC lpPrevWndFunc,  //指针64位
      HWND    hWnd, //句柄64位
      UINT    Msg, //unsigned int 查了一下应该是32位，问题应该就出在这了。
      WPARAM  wParam, //指针64位
      LPARAM  lParam //指针64位
    );

    LRESULT CallWindowProcA( //LRESULT 指针64位
      WNDPROC lpPrevWndFunc,  //指针64位
      HWND    hWnd, //句柄64位
      UINT    Msg, //unsigned int 查了一下应该是32位，问题应该就出在这了。
      WPARAM  wParam, //指针64位
      LPARAM  lParam //指针64位
    );

翻译过来就是：
Declare PtrSafe Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcW" ( _
         ByVal lpPrevWndFunc As LongPtr, _
         ByVal hwnd As LongPtr, _
         ByVal msg As Long, _
         ByVal wParam As LongPtr, _
         ByVal lParam As LongPtr) As LongPtr

返回值并不必须是LongPtr，用Long也可以，但要看具体的被Call的函数它的返回值

ggmmlol

我用的就是64位的API函数声明：
Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As LongPtr, ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As LongPtr, ByVal lParam As LongPtr) As LongPtr

joforn

ggmmlol 发表于 2020-12-2 15:24
我用的就是64位的API函数声明：
Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWin ...

嗯。那应该是你传入的地址有问题。就是你在调用时没有处理好变量的指针和变量之间的转换。