EnableExplicit

Prototype.l GetProcessMemoryInfo(hProcess.l, *p, cb.l)

Define psApiDLL.i
Define hproc.i
Define memoryInUseMB.f

Define GetProcessMemoryInfo.GetProcessMemoryInfo
Define p.PROCESS_MEMORY_COUNTERS

psApiDLL = OpenLibrary(#PB_Any, "PSAPI.DLL")
If psApiDLL > 0
  GetProcessMemoryInfo = GetFunction(psApiDLL, "GetProcessMemoryInfo") 
  Debug "GetProcessMemoryInfo = " + Str(GetProcessMemoryInfo)
Else
  MessageRequester("error", "Unable To open PSAPI.DLL")
  End
EndIf
  

Procedure.i memBase(ProcessId.i,Name.s)
  Protected handle.i
  Protected me32.MODULEENTRY32
  Protected base.i
  handle = CreateToolhelp32Snapshot_(#TH32CS_SNAPMODULE32|#TH32CS_SNAPMODULE,ProcessId)
  If Not handle = #INVALID_HANDLE_VALUE
    me32\dwSize = SizeOf(MODULEENTRY32)
    If Module32First_(handle,@me32)
      Name = LCase(Name)
      Repeat
        If LCase(PeekS(@me32\szModule)) = Name
          base = me32\modBaseAddr
          Break
        EndIf
      Until Module32Next_(handle,@me32) = #False
    EndIf
    CloseHandle_(handle)
  EndIf
  ProcedureReturn base
EndProcedure

Procedure.i Main()
  Protected hwnd.i
  Protected pid.i
  Protected hproc.i
  Protected base.i
  Protected address.i
  ; поиск хендла по названию окна
  hwnd = FindWindow_(#Null, "Gens r57shell mod - Idle")
  If hwnd
    ; получаем пид из хендла
    GetWindowThreadProcessId_(hwnd, @pid)
    Debug "hwnd:  0x" + Hex(hwnd)
    Debug "pid:   " + pid
    ; открываем процесс по полученному пид для чтения (и видимо записи?)
    hproc = OpenProcess_(#PROCESS_ALL_ACCESS, #False, pid)
    
    If hproc
      ; если открылся процесс
      Debug "hproc: 0x" + Hex(hproc)
      
      ; видимо получение адреса, начиная с которого этот ехе болтается в памяти
      base = memBase(pid, "Gens_R57Shell_mod.exe");<-not sure what the exe name is!
      Debug "base:  0x" + Hex(base)
      Debug ""
      
      ;{ пока пропускаем
      Goto marker:
      ; прочитать из какого-то адреса (base + $A55D64) нужный размер данных (4) в переменную (address)
      ReadProcessMemory_(hproc, base + $A55D64, @address, 4, #Null);<- a pointer is 4 bytes according to CE
      
      If address
        Debug "addr1: 0x" + Hex(address)
        ; если данные были получены
        
        ; дальше уже прыгать от полученного адреса дальше и читать
        ReadProcessMemory_(hproc, address + $110, @address, 4, #Null)
        If address
          Debug "addr2: 0x" + Hex(address)
          ReadProcessMemory_(hproc, address, @address, 4, #Null)
          If address
            Debug "health: " + Str(address)
          EndIf
        EndIf
      EndIf
      marker:
      ;}
       
      ;CloseHandle_(hproc)
    EndIf
    
  EndIf
  
  ProcedureReturn hproc
  
EndProcedure

hproc = Main()
If hproc
  
  ; не хочет скатина внутри процедуры
  If GetProcessMemoryInfo(hproc, @p, SizeOf(PROCESS_MEMORY_COUNTERS))
  
  ;DWORD  cb;
  ;DWORD  PageFaultCount;
  ;SIZE_T PeakWorkingSetSize;
  ;SIZE_T WorkingSetSize;
  ;SIZE_T QuotaPeakPagedPoolUsage;
  ;SIZE_T QuotaPagedPoolUsage;
  ;SIZE_T QuotaPeakNonPagedPoolUsage;
  ;SIZE_T QuotaNonPagedPoolUsage;
  ;SIZE_T PagefileUsage;
  ;SIZE_T PeakPagefileUsage;
  
  Debug "cb = " + Str(p\cb)
  Debug "PageFaultCount = " + Str(p\PageFaultCount)
  Debug "PeakWorkingSetSize = " + Str(p\PeakWorkingSetSize)
  Debug "WorkingSetSize = " + Str(p\WorkingSetSize)
  Debug "QuotaPeakPagedPoolUsage = " + Str(p\QuotaPeakPagedPoolUsage)
  Debug "QuotaPagedPoolUsage = " + Str(p\QuotaPagedPoolUsage)
  Debug "QuotaPeakNonPagedPoolUsage = " + Str(p\QuotaPeakNonPagedPoolUsage)
  Debug "QuotaNonPagedPoolUsage = " + Str(p\QuotaNonPagedPoolUsage)
  Debug "PagefileUsage = " + Str(p\PagefileUsage)
  Debug "PeakPagefileUsage = " + Str(p\PeakPagefileUsage)
  
  
  memoryInUseMB = (p\WorkingSetSize + p\PagefileUsage) / 1048576 ; (откуда это число 1048576...)
  Debug memoryInUseMB  
  Debug "memory use = " + StrF(memoryInUseMB, 2)
  
  EndIf
  
  CloseHandle_(hproc)
  
EndIf

End


;cb = 40
;PageFaultCount = 1354
;PeakWorkingSetSize = 5242880
;WorkingSetSize = 5242880
;QuotaPeakPagedPoolUsage = 125288
;QuotaPagedPoolUsage = 124648
;QuotaPeakNonPagedPoolUsage = 8160
;QuotaNonPagedPoolUsage = 7680
;PagefileUsage = 1130496
;PeakPagefileUsage = 1146880
;6.078125
;memory use = 6.08

; и где тут размер в 904килобайт?!?!?!