j'ai l'imperssion qu'il s'agit de leaktrap
même si tu n'a rien direct pour VB6, suffit de lire entre les lignes.
voyant :
LONG WINAPI DetourTransactionBegin();
LONG WINAPI DetourTransactionAbort();
LONG WINAPI DetourTransactionCommit();
LONG WINAPI DetourTransactionCommitEx(PVOID **pppFailedPointer);
LONG WINAPI DetourUpdateThread(HANDLE hThread);
LONG WINAPI DetourAttach(PVOID *ppPointer,
PVOID pDetour);
LONG WINAPI DetourAttachEx(PVOID *ppPointer,
PVOID pDetour,
PDETOUR_TRAMPOLINE *ppRealTrampoline,
PVOID *ppRealTarget,
PVOID *ppRealDetour);
LONG WINAPI DetourDetach(PVOID *ppPointer,
PVOID pDetour);
VOID WINAPI DetourSetIgnoreTooSmall(BOOL fIgnore);
je ferai quelque chose comme:
Private Declare Function DetourTransactionBegin Lib "leaktrap.dll" () As Long
Private Declare Function DetourTransactionAbort Lib "leaktrap.dll" () As Long
Private Declare Function DetourTransactionCommit Lib "leaktrap.dll" () As Long
Private Declare Function DetourTransactionCommitEx Lib "leaktrap.dll" (ByRef pppFailedPointer As Any) As Long
Private Declare Function DetourUpdateThread Lib "leaktrap.dll" (Byval hThread As Long) As Long
Private Declare Function DetourAttach Lib "leaktrap.dll" (ByRef ppPointer As Long, Byval pDetour As Long) As Long
Private Declare Function DetourAttachEx Lib "leaktrap.dll" (ByRef ppPointer As Long, _
Byval pDetour As Long, _
Byref ppRealTrampoline As Any, _
ByRef ppRealTarget As Long, _
ByRef ppRealDetour As Long) As Long
Private Declare Function DetourDetach Lib "leaktrap.dll" (ByRef ppPointer As Long, Byval pDetour As Long) As Long
Private Declare Sub DetourAttach Lib "leaktrap.dll" (Byval fIgnore As Long)
Renfield - Admin CodeS-SourceS - MVP Visual Basic