突然想的一个点子 不知道是否可行  我觉得这样连cdecl的函数 我都敢去调用 只要参数不超过10个。。。

1.     Asm          '这个可以支持多达10个参数的任意回调函数(回调函数的参数数量可以随意)
   
2.         push ebp  ;  mov ebp, esp  ;  Sub esp, 16 + 40
   
3.         
   
4.         mov  DWORD Ptr [ebp - 16], eax      '保存eax
   
5.         mov  DWORD Ptr [ebp - 12], ecx      '保存ecx
   
6.         mov  DWORD Ptr [ebp -  8], esi      '保存esi
   
7.         mov  DWORD Ptr [ebp -  4], edi      '保存edi
   
8.         
   
9.         lea  edi, [esp +  0]        
   
10.         lea  esi, [ebp + 12]
    
11.         mov  ecx, 10                        '复制 10个参数到 新开的栈区
    
12.         rep  movsd
    
13. 
    
14.         lea  edi, [ebp + 12]
    
15.         mov  ecx, 10                        '置零 10个参数的 栈空间
    
16.         mov  eax, 0
    
17.         rep  stosd
    
18.         
    
19.         mov  eax, DWORD Ptr [ebp - 16]      '还原eax
    
20.         mov  ecx, DWORD Ptr [ebp - 12]      '还原ecx
    
21.         mov  esi, DWORD Ptr [ebp -  8]      '还原esi
    
22.         mov  edi, DWORD Ptr [ebp -  4]      '还原edi
    
23.         
    
24.         Call DWORD Ptr [ebp + 8]            '调用 回调函数
    
25.         
    
26.         mov  esp, ebp  ;  pop ebp  ;  ret 44
    
27.     End Asm

复制代码

1. 'Dim FAddr As Long : FAddr = Cast(Long, @ANY_FUNC)
   
2. 'Print "调用 CallWindowProc ", CallWindowProcW(Cast(any Ptr, FAddr), Cast(hWnd, 1), 2, 4, 8)
   
3. 'Print "调用 VB6_CALLBACK   ", VB6_CALLBACK(FAddr, 1, 2, 4, 8)
   
4. Function ANY_FUNC(a1 As Long, a2 As Long, a3 As Long, a4 As Long) As Long
   
5.     Return (a1 + a2 + a3 + a4)
   
6. End Function

复制代码

啥也不说了，帖子就是带劲！