AutoIt und Pointer auslesen

12/19/2012 20:58 MrBaltimore#1

Moinsen,

Hab mich mal an�s Thema Pointer gegeben. CE hat soweit auch funktioniert, nur bekomm ich das nicht umgesetzt in AutoIt.
Mal meinen Code:

Code:

#include <Pointer.au3>
#include <Array.au3>

PointerLesen()

Func PointerLesen()
	Local $av_Offset[3]
	$av_Offset[0] = 0
	$av_Offset[1] = 0x38
	$av_Offset[2] = 0x50

	$pid = ProcessExists("Gw.exe")
	$gw = _MemoryOpen($pid)

	If $pid = 0 Then
		MsgBox(16, @ScriptName, 'Prozess nicht gefunden, Skript wird beendet.')
		Exit 1
	EndIf

	$PointerReturn = _MemoryPointerRead(0x015F52CC, $gw, $av_Offset)
	_ArrayDisplay($PointerReturn)
EndFunc   ;==>PointerLesen

;~ <?xml version="1.0" encoding="utf-8"?>
;~ <CheatTable>
;~   <CheatEntries>
;~     <CheatEntry>
;~       <ID>1</ID>
;~       <Description>"pointerscan result"</Description>
;~       <Color>80000008</Color>
;~       <VariableType>4 Bytes</VariableType>
;~       <Address>"Gw.exe"+011F52CC</Address>
;~       <Offsets>
;~         <Offset>50</Offset>
;~         <Offset>38</Offset>
;~       </Offsets>
;~     </CheatEntry>
;~   </CheatEntries>
;~ </CheatTable>

Der auskommentierte Teil unten ist von CE kopiert. Keine Ahnung wie man hier Spoiler macht. Bin anscheinend blind.

Kann mir mal einer sagen, was ich da falsch mache. Bekomme immer 0 als Ergebnis, was mir sagt, dass ich da wohl was falsch mache!

LG
MrBaltimore

12/19/2012 21:26 BladeTiger12#2

So m�sste es gehen:

Spoiler

Code:

#RequireAdmin
#include <Pointer.au3>
#include <Array.au3>

PointerLesen()

Func PointerLesen()
	Global $av_Offset[2]
	$av_Offset[1] = 0x38
	$av_Offset[2] = 0x50

	$pid = ProcessExists("Gw.exe")
	$gw = _MemoryOpen($pid)

	$Module = _MemoryModuleGetBaseAddress($pid , "Gw.exe")
	$PointerAdress = $Module + 0x015F52CC

	If $pid = 0 Then
		MsgBox(16, @ScriptName, 'Prozess nicht gefunden, Skript wird beendet.')
		Exit 1
	EndIf

	$PointerReturn = _MemoryRead($PointerAdress , $gw) + $av_Offset[0]
	$PointerReturn = _MemoryRead($PointerReturn , $gw) + $av_Offset[1]
	$PointerReturn = _MemoryRead($PointerReturn , $gw)
	_ArrayDisplay($PointerReturn)
EndFunc   ;==>PointerLesen

;~ <?xml version="1.0" encoding="utf-8"?>
;~ <CheatTable>
;~   <CheatEntries>
;~     <CheatEntry>
;~       <ID>1</ID>
;~       <Description>"pointerscan result"</Description>
;~       <Color>80000008</Color>
;~       <VariableType>4 Bytes</VariableType>
;~       <Address>"Gw.exe"+011F52CC</Address>
;~       <Offsets>
;~         <Offset>50</Offset>
;~         <Offset>38</Offset>
;~       </Offsets>
;~     </CheatEntry>
;~   </CheatEntries>
;~ </CheatTable>

Func _MemoryModuleGetBaseAddress($iPID, $sModule)
    If Not ProcessExists($iPID) Then Return SetError(1, 0, 0)

    If Not IsString($sModule) Then Return SetError(2, 0, 0)

    Local   $PSAPI = DllOpen("psapi.dll")

    ;Get Process Handle
    Local   $hProcess
    Local   $PERMISSION = BitOR(0x0002, 0x0400, 0x0008, 0x0010, 0x0020) ; CREATE_THREAD, QUERY_INFORMATION, VM_OPERATION, VM_READ, VM_WRITE

    If $iPID > 0 Then
        Local $hProcess = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", $PERMISSION, "int", 0, "dword", $iPID)
        If $hProcess[0] Then
            $hProcess = $hProcess[0]
        EndIf
    EndIf

    ;EnumProcessModules
    Local   $Modules = DllStructCreate("ptr[1024]")
    Local   $aCall = DllCall($PSAPI, "int", "EnumProcessModules", "ptr", $hProcess, "ptr", DllStructGetPtr($Modules), "dword", DllStructGetSize($Modules), "dword*", 0)
    If $aCall[4] > 0 Then
        Local   $iModnum = $aCall[4] / 4
        Local   $aTemp
        For $i = 1 To $iModnum
            $aTemp =  DllCall($PSAPI, "dword", "GetModuleBaseNameW", "ptr", $hProcess, "ptr", Ptr(DllStructGetData($Modules, 1, $i)), "wstr", "", "dword", 260)
            If $aTemp[3] = $sModule Then
                DllClose($PSAPI)
                Return Ptr(DllStructGetData($Modules, 1, $i))
            EndIf
        Next
    EndIf

    DllClose($PSAPI)
    Return SetError(-1, 0, 0)

EndFunc

PS: Die Funktion _MemoryModuleGetBaseAddress geh�rt nicht mir :)
Mehr helfen kann ich dir �ber Skype: MrBladeTiger12

12/19/2012 21:35 MrBaltimore#3

@BladeTiger12

Leider funktioniert es nicht. L�uft einfach durch, also ist $PointerReturn kein Array. Mal sehen.

Melde mich morgen mal �ber Skype. Muss gleich mal in die Urne.

12/19/2012 21:40 BladeTiger12#4

Ja du musst das array display raus nehmen
es ist nur noch eine value
also : MsgBox(64 , "" , $PointerReturn)

12/19/2012 21:51 MrBaltimore#5

Das wars. Funktioniert einwandfrei. THX

12/19/2012 21:57 BladeTiger12#6

Kein Problem.
Weiter hilfe �ber Skype.
Helfe immer gern.