AHK: Работа с памятью

processName  := "gta_sa.exe"
address := 0x00B7CD98 + 0x2E4
data := 99
type := "Float"

F1::
    Try {
        MsgBox % r := ProcessReadMemory(address, processName, type)
        MsgBox % ProcessWriteMemory(data, address, processName, type)
        MsgBox % ProcessReadMemory(address, processName, type)
        MsgBox % ProcessWriteMemory(r, address, processName, type)
        MsgBox % ProcessReadMemory(address, processName, type)
    }
    Catch e
        MsgBox,, Error, % e.Message
    return


ProcessReadMemory(address, processIDorName, type := "Int", numBytes := 4) {
    VarSetCapacity(buf, numBytes, 0)

    Process Exist, %processIDorName%
    if !processID := ErrorLevel
        throw Exception("Invalid process name or process ID:`n`n""" . processIDorName . """")

    if !processHandle := DllCall("OpenProcess", "Int", 24, "UInt", 0, "UInt", processID, "Ptr")
        throw Exception("Failed to open process.`n`nError code:`t" . A_LastError)

    result := DllCall("ReadProcessMemory", "Ptr", processHandle, "Ptr", address, "Ptr", &buf, "Ptr", numBytes, "PtrP", numBytesRead, "UInt")

    if !DllCall("CloseHandle", "Ptr", processHandle, "UInt") && !result
        throw Exception("Failed to close process handle.`n`nError code:`t" . A_LastError)

    if !result
        throw Exception("Failed to read process memory.`n`nError code:`t" . A_LastError)

    if !numBytesRead
        throw Exception("Read 0 bytes from the`n`nprocess:`t" . processIDorName . "`naddress:`t" . address)

    return (type = "Str")
        ? StrGet(&buf, numBytes)
        : NumGet(buf, type)
}

ProcessWriteMemory(data, address, processIDorName, type := "Int", numBytes := 4) {
    VarSetCapacity(buf, numBytes, 0)
    (type = "Str")
        ? StrPut(data, &buf, numBytes)
        : NumPut(data, buf, type)

    Process Exist, %processIDorName%
    if !processID := ErrorLevel
        throw Exception("Invalid process name or process ID:`n`n""" . processIDorName . """")

    if !processHandle := DllCall("OpenProcess", "Int", 40, "UInt", 0, "UInt", processID, "Ptr")
        throw Exception("Failed to open process.`n`nError code:`t" . A_LastError)

    result := DllCall("WriteProcessMemory", "Ptr", processHandle, "Ptr", address, "Ptr", &buf, "Ptr", numBytes, "UInt", 0, "UInt")

    if !DllCall("CloseHandle", "Ptr", processHandle, "UInt") && !result
        throw Exception("Failed to close process handle.`n`nError code:`t" . A_LastError)

    if !result
        throw Exception("Failed to write process memory.`n`nError code:`t" . A_LastError)

    return result
}

F1::
    Try
        SetActorHP(99)
    Catch e
        MsgBox,, Error, % e.Message
    return

SetActorHP(value)
{
    baseAddress := ProcessReadMemory(0xB7CD98, "gta_sa.exe", "Ptr", A_PtrSize)
    ProcessWriteMemory(value, baseAddress + 0x2E4, "gta_sa.exe", "Float")
}


ProcessReadMemory(address, processIDorName, type := "Int", numBytes := 4) {
    VarSetCapacity(buf, numBytes, 0)

    Process Exist, %processIDorName%
    if !processID := ErrorLevel
        throw Exception("Invalid process name or process ID:`n`n""" . processIDorName . """")

    if !processHandle := DllCall("OpenProcess", "Int", 24, "UInt", 0, "UInt", processID, "Ptr")
        throw Exception("Failed to open process.`n`nError code:`t" . A_LastError)

    result := DllCall("ReadProcessMemory", "Ptr", processHandle, "Ptr", address, "Ptr", &buf, "Ptr", numBytes, "PtrP", numBytesRead, "UInt")

    if !DllCall("CloseHandle", "Ptr", processHandle, "UInt") && !result
        throw Exception("Failed to close process handle.`n`nError code:`t" . A_LastError)

    if !result
        throw Exception("Failed to read process memory.`n`nError code:`t" . A_LastError)

    if !numBytesRead
        throw Exception("Read 0 bytes from the`n`nprocess:`t" . processIDorName . "`naddress:`t" . address)

    return (type = "Str")
        ? StrGet(&buf, numBytes)
        : NumGet(buf, type)
}

ProcessWriteMemory(data, address, processIDorName, type := "Int", numBytes := 4) {
    VarSetCapacity(buf, numBytes, 0)
    (type = "Str")
        ? StrPut(data, &buf, numBytes)
        : NumPut(data, buf, type)

    Process Exist, %processIDorName%
    if !processID := ErrorLevel
        throw Exception("Invalid process name or process ID:`n`n""" . processIDorName . """")

    if !processHandle := DllCall("OpenProcess", "Int", 40, "UInt", 0, "UInt", processID, "Ptr")
        throw Exception("Failed to open process.`n`nError code:`t" . A_LastError)

    result := DllCall("WriteProcessMemory", "Ptr", processHandle, "Ptr", address, "Ptr", &buf, "Ptr", numBytes, "UInt", 0, "UInt")

    if !DllCall("CloseHandle", "Ptr", processHandle, "UInt") && !result
        throw Exception("Failed to close process handle.`n`nError code:`t" . A_LastError)

    if !result
        throw Exception("Failed to write process memory.`n`nError code:`t" . A_LastError)

    return result
}

<div id="download-container"><a class="download" href="//l.autohotkey.net/AutoHotkey_L_Install.exe" title="Download and install in seconds" onclick="javascript:_gaq.push(['_trackPageview','/download/AutoHotkey_L_Install.exe']);">Download AutoHotkey</a></div>

ProcessName = Client.exe                        
Process, Exist, %ProcessName%
If(!Errorlevel) {
   MsgBox, Процесс не найден.
      ExitApp
}
P_1 = 0x0008
P_2 = 0x0010
P_3 = 0x0020
PID := Errorlevel
hProcess := DllCall("OpenProcess", UInt, P_1 | P_2 | P_3
                                 , UInt, False
                                 , UInt, PID)
If (!hProcess) {
MsgBox, Не удалось открыть процесс.
ExitApp
}



ReadAddress = 0x02BBEDEC                        
ReadSize = 4                                      
offsets := Array("0x0", "0x28", "0xDF8")            
VarSetCapacity(Buf_1, ReadSize, 0) 
for i in offsets
{
Ret_1 := DllCall("ReadProcessMemory", UInt, hProcess
                                    , UInt, ReadAdress
                                    , UInt, &Buf_1
                                    , UInt, ReadSize
                                    , UInt, 0)
If(!Ret_1) {
      MsgBox, Не удалось прочитать адрес!!!
      ExitApp
}

auto off = hv::read< uint64_t >( base + 0x608F64 );
auto idk = hv::read< uint64_t >( off + 0x60 );
auto idk2 = hv::read< uint64_t >( idk + 0x80 );
auto idk3 = hv::read< uint64_t >( idk2 + 0x4 );
auto idk4 = hv::read< uint64_t >( idk3 + 0x1B8 );
auto idk5 = hv::read< uint64_t >( idk4 + 0x194 );
auto idk6 = hv::read< uint64_t >( idk5 + 0x8 );
hv::write< float >( idk7, 999 );