TrickAdvancedTools

Thanks Trick for the hooking function of these API. I added a few more by guessing.

Is there any way to list the parameters for these procedures, from the vba6 dll module?
For example I guessed that SetModuleName had a param for the name, and it works, but otherwise it crashes with any other params. Thanks again!

Code:

---

  pfnTipSetModuleName = GetProcAddress(hVba, "TipSetModuleName")
  If pfnTipSetModuleName = 0 Then Exit Function
  If Not HookFunction(pfnTipSetModuleName, AddressOf TipSetModuleName_user) Then
      Exit Function
  End If
  pfnTipDeleteModule = GetProcAddress(hVba, "TipDeleteModule")
  If pfnTipDeleteModule = 0 Then Exit Function
  If Not HookFunction(pfnTipDeleteModule, AddressOf TipDeleteModule_user) Then
      Exit Function
  End If
  pfnTipCompileModule = GetProcAddress(hVba, "TipCompileModule")
  If pfnTipCompileModule = 0 Then Exit Function
  If Not HookFunction(pfnTipCompileModule, AddressOf TipCompileModule_user) Then
      Exit Function
  End If

---

Code:

---

Public pfnTipCompileModule      As Long
Public pfnTipSetModuleName      As Long
Public pfnTipDeleteModule        As Long
Public Function TipSetModuleName_user(ByVal pVBProjectNative As Long, ByVal lpName As Long) As Long '
  On Error GoTo error_handler
  PauseHook pfnTipSetModuleName
 
  TipSetModuleName_user = CallByPointer(pfnTipSetModuleName, vbLong, pVBProjectNative, lpName)
 
  ResumeHook pfnTipSetModuleName
  Exit Function
error_handler:
  ErrorLog "modCallBack::TipSetModuleName_user"
End Function
Public Function TipDeleteModule_user(ByVal pVBProjectNative As Long) As Long '
  On Error GoTo error_handler
  PauseHook pfnTipDeleteModule

  MsgBox " deleting module: " & " " & pfnTipDeleteModule

  TipDeleteModule_user = CallByPointer(pfnTipDeleteModule, vbLong, pVBProjectNative)

  ResumeHook pfnTipDeleteModule
  Exit Function
error_handler:
  ErrorLog "modCallBack::TipDeleteModule_user"
End Function
Public Function TipCompileModule_user(ByVal pVBProjectNative As Long) As Long
  On Error GoTo error_handler
  PauseHook pfnTipCompileModule
  ' MakeEvent pVBProjectNative, "CompBefore"
  TipCompileModule_user = CallByPointer(pfnTipCompileModule, vbLong, pVBProjectNative)
 
  MsgBox " compile Module: " & TipCompileModule_user
 
  'MakeEvent pVBProjectNative, "CompAfter"
  ResumeHook pfnTipCompileModule
  Exit Function
error_handler:
  ErrorLog "modCallBack::TipCompileModule_user"
End Function

---