работа с областью памяти

[Gotha]

getCount сканит область памяти на определенное значение, но все это делается в цикле и постоянно юзается ф-ция чтения значений из памяти процесса, может это можно как-то оптимизировать? подскажите, а то меня хватило только на такой вариант

Код: Выделить всё

Private Const MobHPAdress = &H54EA10

Public Declare Function Toolhelp32ReadProcessMemory Lib "kernel32.dll" (ByVal th32ProcessID As Long, ByRef lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal cbRead As Long, ByRef lpNumberOfBytesRead As Long) As Long

Function getMLong(ByVal addr As Long) As Long
Dim mp As Long
    Toolhelp32ReadProcessMemory ByVal pid, ByVal addr, mp, 4, 0
    getMLong = mp
End Function

Function getCount(ByVal myHP&) As Integer
Dim i&, Num&
    For i = HPAdress To HPAdress + 66900 Step 168
        Num = getMLong(i)
        DoEvents
        If Num <> 0 Then
           getCount = getCount + 1
        End If
    Next i
End Function

[Viper]

а не проще сразу считать блок памяти в буфер и просматривать его на нужное значение?

[ANDLL]

Октрывать процесс через OpenProcess т дальше юзать ReadProcessMemory, который, может так оказаться, быстрее твоей функции.

[Gotha]

попробую оба варианта, спасибо. Только с вариантом !Viper! придется повозиться - сделать структуру чтобы читать определенные поля

[Viper]

записывай память в массив типа Long и читай значение по нужному индексу

З.Ы. Long и имелся ввиду

[Gotha]

просто у меня там тип лонг, да и степ через 168*4 байтов