API的一些函数

Option   Explicit  
   
  Private   Declare   Function   ReadProcessMemory   Lib   "kernel32"   (ByVal   hProcess   As   Long,   lpBaseAddress   As   Any,   lpBuffer   As   Any,   ByVal   nSize   As   Long,   lpNumberOfBytesWritten   As   Long)   As   Long  
  Private   Declare   Function   WriteProcessMemory   Lib   "kernel32"   (ByVal   hProcess   As   Long,   lpBaseAddress   As   Any,   lpBuffer   As   Any,   ByVal   nSize   As   Long,   lpNumberOfBytesWritten   As   Long)   As   Long  
  Private   Declare   Function   OpenProcess   Lib   "kernel32"   (ByVal   dwDesiredAccess   As   Long,   ByVal   bInheritHandle   As   Long,   ByVal   dwProcessId   As   Long)   As   Long  
  Private   Declare   Function   EnumProcesses   Lib   "psapi.dll"   (lpidProcess   As   Any,   ByVal   cb   As   Long,   cbNeeded   As   Long)   As   Boolean  
  Private   Declare   Function   EnumProcessModules   Lib   "psapi.dll"   (ByVal   hProcess   As   Long,   lphModule   As   Any,   ByVal   cb   As   Long,   lpcbNeeded)   As   Boolean  
  Private   Declare   Function   GetModuleBaseName   Lib   "psapi.dll"   Alias   "GetModuleBaseNameA"   (ByVal   hProcess   As   Long,   ByVal   hModule   As   Long,   ByVal   lpBaseName   As   String,   ByVal   nSize   As   Long)   As   Long  
  Private   Declare   Function   CloseHandle   Lib   "kernel32"   (ByVal   hObject   As   Long)   As   Long  
   
   
  Private   Const   SYNCHRONIZE   =   &H100000  
  Private   Const   STANDARD_RIGHTS_REQUIRED   =   &HF0000  
  Private   Const   PROCESS_TERMINATE   =   &H1  
  Private   Const   PROCESS_CREATE_THREAD   =   &H2  
  Private   Const   PROCESS_SET_SESSIONID   =   &H4  
  Private   Const   PROCESS_VM_OPERATION   =   &H8  
  Private   Const   PROCESS_VM_READ   =   &H10  
  Private   Const   PROCESS_VM_WRITE   =   &H20  
  Private   Const   PROCESS_DUP_HANDLE   =   &H40  
  Private   Const   PROCESS_CREATE_PROCESS   =   &H80  
  Private   Const   PROCESS_SET_QUOTA   =   &H100  
  Private   Const   PROCESS_SET_INFORMATION   =   &H200  
  Private   Const   PROCESS_QUERY_INFORMATION   =   &H400  
  Private   Const   PROCESS_ALL_ACCESS   =   STANDARD_RIGHTS_REQUIRED   Or   SYNCHRONIZE   Or   92