Работа с памятью процесса

WriteProcessMemory(title,addresse,wert,size)  
{ 
VarSetCapacity(idvar,32,0) 
VarSetCapacity(processhandle,32,0) 
VarSetCapacity(value, 32, 0) 
NumPut(wert,value,0,Uint) 
address=%addresse% 
WinGet ,idvar,PID,%title% 
processhandle:=DllCall("OpenProcess","Uint",0x38,"int",0,"int",idvar) 
Bvar:=DllCall("WriteProcessMemory","Uint",processhandle,"Uint",address+0,"Uint",&value,"Uint",size,"Uint",0) 
} 

ReadMemory(MADDRESS,PROGRAM) 
{ 
       winget, pid, PID, %PROGRAM% 

       VarSetCapacity(MVALUE,4,0) 
       ProcessHandle := DllCall("OpenProcess", "Int", 24, "Char", 0, "UInt", pid, "UInt") 
       DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0) 

       Loop 4 
       result += *(&MVALUE + A_Index-1) << 8*(A_Index-1) 

       return, result 
} 

ReadMemoryFloat(MADDRESS=0,PROGRAM="") 
{ 
    Static OLDPROC, ProcessHandle 
    VarSetCapacity(MVALUE,4,0) 
    If PROGRAM != %OLDPROC% 
    { 
       WinGet, pid, pid, % OLDPROC := PROGRAM 
       ProcessHandle := ( ProcessHandle ? 0*(closed:=DllCall("CloseHandle" 
       ,"UInt",ProcessHandle)) : 0 )+(pid ? DllCall("OpenProcess" 
       ,"Int",2035711,"Int",0,"UInt",pid) : 0) 
    } 
    If (ProcessHandle) && DllCall("ReadProcessMemory","UInt" 
    ,ProcessHandle,"UInt",MADDRESS,"Str",MVALUE,"UInt",4,"UInt *",0) 
    { 
       MVALUE := *(&MVALUE+3)<<24 | *(&MVALUE+2)<<16 | *(&MVALUE+1)<<8 | *(&MVALUE) 
       return (1-2*(MVALUE>>31)) * (2**((MVALUE>>23 & 255)-127)) * (1+(MVALUE & 8388607)/8388608) 
    } 
    return !ProcessHandle ? "Handle Closed: " closed : "Fail" 
}