home *** CD-ROM | disk | FTP | other *** search
/ Cracking 2 / Cracking II..iso / Tools / ApiHooks 2.2 / examples / VB / NONSENS / ApiHooks.bas next >
Encoding:
BASIC Source File  |  2000-04-08  |  1.7 KB  |  56 lines
  1. Attribute VB_Name = "IncludeModule"
  2. Public Const HOOK_EXPORT       As Long = 1
  3. Public Const HOOK_IMPORT       As Long = 2
  4. Public Const HOOK_BY_ADDRESS   As Long = 4
  5. Public Const HOOK_HARD         As Long = 8
  6. Public Const HOOK_NO_UNBIND    As Long = 16
  7.  
  8. Public Const HOOK_EXACT        As Long = HOOK_EXPORT Or HOOK_IMPORT
  9. Public Const HOOK_ALL          As Long = HOOK_EXPORT Or HOOK_BY_ADDRESS
  10.   
  11. Public Const HOOKS_END         As Long = -1
  12. Public Const HOOKS_DYNAMIC     As Long = -2
  13.  
  14. Public Const ALL_MODULES       As Long = -1
  15.  
  16. Public Const ErrorSuccess      As Long = 0
  17. Public Const ErrorException    As Long = 1
  18. Public Const ErrorOpenProcess  As Long = 2
  19. Public Const ErrorRemoteAlloc  As Long = 3
  20. Public Const ErrorRemoteExec   As Long = 4
  21. Public Const ErrorRemoteFree   As Long = 5
  22. Public Const ErrorTimeOut      As Long = 9
  23.  
  24.  
  25. Public Type ADDRESS_CONTENTS
  26.     ReturnWhere As Long
  27.     ReturnWhat  As Long
  28. End Type
  29.  
  30. Public Type API_UNHOOK
  31.     MaxNoAddr   As Long
  32.     CurNoAddr   As Long
  33.     WhereWhat() As ADDRESS_CONTENTS
  34. End Type
  35.  
  36. Public Declare Function LoadModule Lib "ApiHooks.dll" _
  37.     Alias "LoadModuleA" _
  38.    (ByVal lpszDll As String, ByVal lProcessID As Long, _
  39.     ByVal HowManyTimes As Long) As Long
  40.  
  41. Public Declare Function UnloadModule Lib "ApiHooks.dll" _
  42.     Alias "UnloadModuleA" _
  43.     (ByVal lpszDll As String, ByVal lProcessID As Long, _
  44.      ByVal HowManyTimes As Long) As Long
  45.  
  46. Public Declare Function HookApi Lib "ApiHooks.dll" _
  47.     Alias "HookApiA" ( _
  48.     ByVal ExportModule As Any, _
  49.     ByVal ApiNameOrOrd As Any, _
  50.     ByVal dwFlags As Long, _
  51.     ByVal ImportModule As Any, _
  52.     UnhookAddresses As Any, _
  53.     ByVal HookAddress As Long, _
  54.     ByRef ExcludeModules As Any _
  55.     ) As Long
  56.