AutoHotkeyMemoryLib.ahk

if (A_PtrSize != 4)
{
	MsgBox, You are not running 32-bit version of Autohotkey L, reinstall correct version. Script will now terminate.
	ExitApp	
}
GetModuleInfo(ModuleName, PID, byRef mBase="", byRef mSize="")
{
    TH32CS_SNAPMODULE := 0x00000008
    INVALID_HANDLE_VALUE = -1
    VarSetCapacity(me32, 548, 0)
    NumPut(548, me32)
	
    snapMod := DllCall("CreateToolhelp32Snapshot", "Uint", TH32CS_SNAPMODULE, "Uint", PID)
	
    If (snapMod = INVALID_HANDLE_VALUE) {
        Return 0
    }
	
    If (DllCall("Module32First", "Uint", snapMod, "Uint", &me32)){
		
		If StrGet(&me32 + 32, "cp0")=ModuleName
		{
                mBase:=NumGet(&me32 + 20)
				mSize:=NumGet(&me32 + 24)
                DllCall("CloseHandle", "UInt", snapMod)
				Return

		}
				
        while(DllCall("Module32Next", "Uint", snapMod, "UInt", &me32)) 
		{
            If StrGet(&me32 + 32, "cp0")=ModuleName
			{
                mBase:=NumGet(&me32 + 20)
				mSize:=NumGet(&me32 + 24)
                DllCall("CloseHandle", "UInt", snapMod)
                Return
            }
        }
    }
	
    DllCall("CloseHandle", "Uint", snapMod)
}

GetProcessHandle(pid)
{
	return DllCall("OpenProcess", "UInt", 0x8|0x10|0x20, "UInt", 0, "UInt", pid, "UInt")
}

ReadMemFloat(ProcessHandle, MADDRESS) 
{
	if DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Float*",MVALUE,"UInt",4,"UInt*",0)!=0
	{
		return MVALUE
	}	
}

ReadMemUInt(ProcessHandle, MADDRESS) 
{ 
	if DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"UInt*",MVALUE,"UInt",4,"UInt*",0)!=0
	{
		return MVALUE
	}	
}

ReadMemSInt(ProcessHandle, MADDRESS) 
{ 
	if DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Int*",MVALUE,"UInt",4,"UInt*",0)!=0
	{
		return MVALUE
	}	
}

WriteMemUInt(ProcessHandle, MADDRESS, val) 
{ 
	DllCall("WriteProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"UInt*",val,"UInt",4,"UInt*",0)!=0
}

WriteMemSInt(ProcessHandle, MADDRESS, val) 
{ 
	DllCall("WriteProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Int*",val,"UInt",4,"UInt*",0)!=0
}

WriteMemFloat(ProcessHandle, MADDRESS, val) 
{ 
	DllCall("WriteProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"Float*",val,"UInt",4,"UInt*",0)!=0
}

ReadMemStr(ProcessHandle, MADDRESS, maxlen=255, cp="cp0") 
{ 
	
	VarSetCapacity(MVALUE,maxlen)
	
	if DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",MADDRESS,"PTR",&MVALUE,"UInt",maxlen,"UInt*",bytesread)!=0
	{
		Str:=StrGet(&MVALUE,cp)
		VarSetCapacity(MVALUE,0)
		return Str
	}
	
	VarSetCapacity(MVALUE,0)	
}

GetMultilevelPointer(ProcessHandle, PARRAY)
{		
	if PARRAY._MaxIndex()<2
		return
	
	if (DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",PARRAY[1],"UInt*",currOffset,"UInt",4,"UInt*",0)!=0)	
	{

		i:=2
		while (i<=PARRAY._MaxIndex() && DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",currOffset+PARRAY[i],"UInt*",currOffset,"UInt",4,"UInt*",0)!=0)
		{
			i:=i+1
		}
		
		if (i>PARRAY._MaxIndex())
		{
			return currOffset
		}
	}
}

AobScan(ProcessHandle,mBase,mSize, ByRef patternArray)
{
	if (patternArray._MaxIndex()>mSize)
	{
		MsgBox, aobscan fail : pattern array is larger than module size
		return
	}

	VarSetCapacity(ClientCodeSegment,mSize)
	
	if (DllCall("ReadProcessMemory","UInt",ProcessHandle,"UInt",mBase,"PTR",&ClientCodeSegment,"UInt",mSize,"UInt*",bytesread)!=0)
	{
		
		pLen:=patternArray._MaxIndex()		
		if (bytesread<>mSize)
		{
			VarSetCapacity(ClientCodeSegment,0)
			MsgBox, aobscan fail : mSize=%mSize%  bytesread=%bytesread%
			return
		}		
		i:=0
		
		while (i<=mSize-pLen-1)
		{
			j:=1
			while (j<=pLen)
			{
				if (patternArray[j]="?" || NumGet(ClientCodeSegment, i+j-1, "UChar")=patternArray[j])
				{
					j:=j+1
				}
				else
				{
					break
				}
			}
			
			if (j>pLen)
			{
				VarSetCapacity(ClientCodeSegment,0)
				return i
			}
			i:=i+1			
		}	
	}
	MsgBox, aobscan fail : pattern not found
	VarSetCapacity(ClientCodeSegment,0)
}