_memoryread mit 64bit programmen geht nicht! - winapi - profi - frage

Page 1 of 2 1 2
07/23/2011 14:14 Frennzy#1
hallo, ich bin ganz neu hier und habe eine kniffeliges problem.
ich versuche verzweifelt mit der _memoryread - funktion aus der nomadmemory.au3 unter 64bit zu arbeiten. und zwar so, dass ich auch auf 64bit speicherbereiche benutzen kann. - leider erhalte ich nur nullwerte zurück :( ich habe schon versucht das problem zu lösen, es leider nicht geschafft.
so wie ich das sehe ist das problem, dass wie ProcessReadMemory - winapi mit int´s "versorgt" wird was ja nut 4bytes/32bit halten kann. also hab ich versucht das durch int_prt zu ersetzen, was (nach meinem verständnis) dann je nach kompilierung (32/64bit) prt oder int verwendet.
aber leider hat es das nicht gebracht, bzw bekomme ich immer noch nur nullen zurück.

hier mein beispiel in dem ich einfach mal eine speicherstelle versuche auszulesen deren adresse im 64bit bereich liegt und laut cheat engine 64bit natürlich keinen nullwert enthält. ... die abgeänderte nomadmemory.au3 ist auch schon im code enthalten.

ich hoffe ihr könnt helfen!

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


#include-once
#region _Memory
;==================================================================================
; Function:            SetPrivilege( $privilege, $bEnable )
; Description:        Enables (or disables) the $privilege on the current process
;                   (Probably) requires administrator privileges to run
;
; Author(s):        Larry (from autoitscript.com's Forum)
; Notes(s):
; http://www.autoitscript.com/forum/index.php?s=&showtopic=31248&view=findpost&p=223999
;==================================================================================

Func SetPrivilege( $privilege, $bEnable )
    Const $TOKEN_ADJUST_PRIVILEGES = 0x0020
    Const $TOKEN_QUERY = 0x0008
    Const $SE_PRIVILEGE_ENABLED = 0x0002
    Local $hToken, $SP_auxret, $SP_ret, $hCurrProcess, $nTokens, $nTokenIndex, $priv
    $nTokens = 1
    $LUID = DLLStructCreate("dword;int")
    If IsArray($privilege) Then    $nTokens = UBound($privilege)
    $TOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $NEWTOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $hCurrProcess = DLLCall("kernel32.dll","hwnd","GetCurrentProcess")
    $SP_auxret = DLLCall("advapi32.dll","int","OpenProcessToken","hwnd",$hCurrProcess[0],   _
            "int",BitOR($TOKEN_ADJUST_PRIVILEGES,$TOKEN_QUERY),"int*",0)
    If $SP_auxret[0] Then
        $hToken = $SP_auxret[3]
        DLLStructSetData($TOKEN_PRIVILEGES,1,1)
        $nTokenIndex = 1
        While $nTokenIndex <= $nTokens
            If IsArray($privilege) Then
                $ntokenvar=$ntokenindex-1
                $priv = $privilege[$ntokenvar]
            Else
                $priv = $privilege
            EndIf
            $ret = DLLCall("advapi32.dll","int","LookupPrivilegeValue","str","","str",$priv,   _
                    "ptr",DLLStructGetPtr($LUID))
            If $ret[0] Then
                If $bEnable Then
                    DLLStructSetData($TOKEN_PRIVILEGES,2,$SE_PRIVILEGE_ENABLED,(3 * $nTokenIndex))
                Else
                    DLLStructSetData($TOKEN_PRIVILEGES,2,0,(3 * $nTokenIndex))
                EndIf
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,1),(3 * ($nTokenIndex-1)) + 1)
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,2),(3 * ($nTokenIndex-1)) + 2)
                DLLStructSetData($LUID,1,0)
                DLLStructSetData($LUID,2,0)
            EndIf
            $nTokenIndex += 1
        WEnd
        $ret = DLLCall("advapi32.dll","int","AdjustTokenPrivileges","hwnd",$hToken,"int",0,   _
                "ptr",DllStructGetPtr($TOKEN_PRIVILEGES),"int",DllStructGetSize($NEWTOKEN_PRIVILEGES),   _
                "ptr",DllStructGetPtr($NEWTOKEN_PRIVILEGES),"int*",0)
        $f = DLLCall("kernel32.dll","int","GetLastError")
    EndIf
    $NEWTOKEN_PRIVILEGES=0
    $TOKEN_PRIVILEGES=0
    $LUID=0
    If $SP_auxret[0] = 0 Then Return 0
    $SP_auxret = DLLCall("kernel32.dll","int","CloseHandle","hwnd",$hToken)
    If Not $ret[0] And Not $SP_auxret[0] Then Return 0
    return $ret[0]
EndFunc  ;==>SetPrivilege
;=================================================================================================
; AutoIt Version:    3.1.127 (beta)
; Language:            English
; Platform:            All Windows
; Author:            Nomad
; Requirements:        These functions will only work with beta.
;=================================================================================================
; Credits:    wOuter - These functions are based on his original _Mem() functions.  But they are
;            easier to comprehend and more reliable.  These functions are in no way a direct copy
;            of his functions.  His functions only provided a foundation from which these evolved.
;=================================================================================================
;
; Functions:
;
;=================================================================================================
; Function:            _MemoryOpen($iv_Pid(, $iv_DesiredAccess(, $iv_InheritHandle)))
; Description:        Opens a process and enables all possible access rights to the process.  The
;                    Process ID of the process is used to specify which process to open.  You must
;                    call this function before calling _MemoryClose(), _MemoryRead(), or _MemoryWrite().
; Parameter(s):        $iv_Pid - The Process ID of the program you want to open.
;                    $iv_DesiredAccess - (optional) Set to 0x1F0FFF by default, which enables all
;                                        possible access rights to the process specified by the
;                                        Process ID.
;                    $if_InheritHandle - (optional) If this value is TRUE, all processes created by
;                                        this process will inherit the access handle.  Set to TRUE
;                                        (1) by default.  Set to 0 if you want it to be FALSE.
; Requirement(s):    A valid process ID.
; Return Value(s):     On Success - Returns an array containing the Dll handle and an open handle to
;                                 the specified process.
;                    On Failure - Returns 0
;                    @Error - 0 = No error.
;                             1 = Invalid $iv_Pid.
;                             2 = Failed to open Kernel32.dll.
;                             3 = Failed to open the specified process.
; Author(s):        Nomad
; Note(s):
;=================================================================================================
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
    
    If Not ProcessExists($iv_Pid) Then
        SetError(1)
        Return 0
    EndIf
    
    Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
    
    If @Error Then
        SetError(2)
        Return 0
    EndIf
    
    Local $av_OpenProcess = DllCall($ah_Handle[0], 'int_ptr', 'OpenProcess', 'int_ptr', $iv_DesiredAccess, 'int_ptr', $if_InheritHandle, 'int_ptr', $iv_Pid)
    
    If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf
    
    $ah_Handle[1] = $av_OpenProcess[0]
    
    Return $ah_Handle
    
EndFunc

;=================================================================================================
; Function:            _MemoryRead($iv_Address, $ah_Handle(, $sv_Type))
; Description:        Reads the value located in the memory address specified.
; Parameter(s):        $iv_Address - The memory address you want to read from. It must be in hex
;                                  format (0x00000000).
;                    $ah_Handle - An array containing the Dll handle and the handle of the open
;                                 process as returned by _MemoryOpen().
;                    $sv_Type - (optional) The "Type" of value you intend to read.  This is set to
;                                'dword'(32bit(4byte) signed integer) by default.  See the help file
;                                for DllStructCreate for all types.
;                                An example: If you want to read a word that is 15 characters in
;                                length, you would use 'char[16]'.
; Requirement(s):    The $ah_Handle returned from _MemoryOpen.
; Return Value(s):    On Success - Returns the value located at the specified address.
;                    On Failure - Returns 0
;                    @Error - 0 = No error.
;                             1 = Invalid $ah_Handle.
;                             2 = $sv_Type was not a string.
;                             3 = $sv_Type is an unknown data type.
;                             4 = Failed to allocate the memory needed for the DllStructure.
;                             5 = Error allocating memory for $sv_Type.
;                             6 = Failed to read from the specified process.
; Author(s):        Nomad
; Note(s):            Values returned are in Decimal format, unless specified as a 'char' type, then
;                    they are returned in ASCII format.  Also note that size ('char[size]') for all
;                    'char' types should be 1 greater than the actual size.
;=================================================================================================
Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = 'dword')
    
    If Not IsArray($ah_Handle) Then
        SetError(1)
        Return 0
    EndIf
    
    Local $v_Buffer = DllStructCreate($sv_Type)
    
    If @Error Then
        SetError(@Error + 1)
        Return 0
    EndIf
    MsgBox(0,"$iv_Address:",$iv_Address)
    MsgBox(0,"$ah_Handle[1]:",$ah_Handle[1])
    DllCall($ah_Handle[0], 'int_ptr', 'ReadProcessMemory', 'int_ptr', $ah_Handle[1], 'int_ptr', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int_ptr', DllStructGetSize($v_Buffer), 'int_ptr', '')
    
    If Not @Error Then
        Local $v_Value = DllStructGetData($v_Buffer, 1)
        Return $v_Value
    Else
        SetError(6)
        Return 0
    EndIf
    
EndFunc


SetPrivilege("SeDebugPrivilege", 1)

$addy = '7FEFB2F7A80'
$process = "MineSweeper.exe"
$pid = ProcessExists($process)
$MemOpen = _MemoryOpen($pid)
$Readout = _MemoryRead("0x"&$addy, $MemOpen, "byte[1000]")
MsgBox(0,"result", $Readout)
07/23/2011 14:51 ~kau~#2
Damit hab ich mich noch nie beschäftigt ;D
Aber die Addy sieht etwas komisch aus :D und probier mal ob es geht wenn du "byte[1000]" wegläst.
07/23/2011 15:05 Frennzy#3
na ja, die addy ist halt eine die länger ist als eine 32bit = 4byte (z.B. 00 41 23 45)
bei nativen 64bit anwendungen sind ja 8 byte adressierbar. deshalb ist die adresse auch auch länger ... die führenden nullen kann man ja normalerweise weglassen, aber mit selbigen wäre die adresse das hier: "00 00 07 FE FB 2F 7A 80" ... was aber keinen unterschied macht .... wenn ich byte[1000] weglasse wird nur ein dword = 4byte ausgelesen ... bringt mich leider auch nicht weiter :(
07/23/2011 19:05 lolkop#4
autoit erkennt solche werte nicht als zahlen an

0xFFFFFFFF ist die maximale hexadezimalzahl die man in dieser notation nutzen kann.

alles was darüber liegt, muss in dezimal notation geschrieben werden =)

dann solltest du auch keine probleme mit 64bit speicherbereichen haben
07/23/2011 19:42 Frennzy#5
na ja, deshalb verwende ich ja
den umweg über $addy = '7FEFB2F7A80' und hänge dann "0x" bei der übergabe vor...
kann ich denn einfach der winapi funktion ReadProcessMemory einen dezimalwert geben !??! die doku sagt folgendes:
Quote:
__in LPCVOID lpBaseAddress,
lpBaseAddress [in]
A pointer to the base address in the specified process from which to read. Before any data transfer occurs, the system verifies that all data in the base address and memory of the specified size is accessible for read access, and if it is not accessible the function fails.
wie/woher weisst du das ich einfach eine dezimalzahl nehmen kann !?
(würde mich mal interessieren)

wie auch immer, ich habe deinen rat befolgt und folgendes probiert:
Code:
$addy = '8791717280384' ; ist die dezimalzahl aus 7FEFB2F7A80
$process = "MineSweeper.exe"
$pid = ProcessExists($process)
$MemOpen = _MemoryOpen($pid)
$Readout = _MemoryRead($addy, $MemOpen, "byte[1000]") ; '0x' entfernt
MsgBox(0,"result", $Readout)
leider ohne erfolg (es werden nur nullen zurückgegeben statt des wertes der in CE steht.)

ich würde dich bitten meinen oben aufgeführten code mal abzuändern, wenn du wirklich weisst wie es geht... ich sitze hier schon viel zu lange dran und bin schon ganz verpeilt. danke :)
07/23/2011 20:23 KDeluxe#6
Ändere den Datentyp des 2. Parameters von ReadProcessMemory von "INT_PTR" zu "ptr" oder "QWORD".
07/23/2011 20:46 Frennzy#7
gleiches ergebnis bei 'prt' (Nullen)
und bei 'qword' gitbs nur eine 0 zurück.
07/23/2011 20:48 lolkop#8
Quote:
Originally Posted by Frennzy View Post
wie/woher weisst du das ich einfach eine dezimalzahl nehmen kann !?
das ganze wird nichtmehr als zahl erkannt. ob du jetzt 0x8 schreibst oder 8 ist für autoit absolut egal. es wird immer als 8 interpretiert.

0x8 ist eben nur eine andere notation... da autoit das ganze sowieso immer als dezimalzahl weiter gibt, ist es hierbei egal ob du für die adresse eine dezimal oder hexadezimal zahl nutzt.
07/23/2011 20:48 | Moep |#9
Probiers mal mit #RequireAdmin am Anfang deines Scripts.
07/23/2011 21:13 lolkop#10
versuch dir die funktion mal etwa so zus chreiben:
Code:
Func ReadProcessMemory($hProcess, $lpBaseAddress, $type = 'dword', $dll = 'kernel32.dll')
	Local $lpBuffer = DllStructCreate($type)
	DllCall($dll, 'int', 'ReadProcessMemory', 'hwnd', $hProcess, 'ptr', $lpBaseAddress, 'ptr', DllStructGetPtr($lpBuffer), 'long', DllStructGetSize($lpBuffer), 'ptr', '')
	Return DllStructGetData($lpBuffer, 1)
EndFunc
07/23/2011 21:18 Frennzy#11
Quote:
Originally Posted by lolkop View Post
das ganze wird nichtmehr als zahl erkannt. ob du jetzt 0x8 schreibst oder 8 ist für autoit absolut egal. es wird immer als 8 interpretiert.

0x8 ist eben nur eine andere notation... da autoit das ganze sowieso immer als dezimalzahl weiter gibt, ist es hierbei egal ob du für die adresse eine dezimal oder hexadezimal zahl nutzt.
okey, wieder was gelernt, also nutze ich jetzt den dezimalwert also so wie oben schon geschrieben:

Code:
$addy = '8791717280384' ; ist die dezimalzahl aus 7FEFB2F7A80
$process = "MineSweeper.exe"
$pid = ProcessExists($process)
$MemOpen = _MemoryOpen($pid)
$Readout = _MemoryRead($addy, $MemOpen, "byte[1000]") ; '0x' entfernt
MsgBox(0,"result", $Readout)
das ganze garniert mit dem 'prt' wie von KillerDeluxe empfohlen:

Code:
  DllCall($ah_Handle[0], 'int_ptr', 'ReadProcessMemory', 'int_ptr', $ah_Handle[1], 'ptr', $iv_Address, 'ptr', DllStructGetPtr($v_Buffer), 'int_ptr', DllStructGetSize($v_Buffer), 'int_ptr', '')
und das noch dazu:

Quote:
Originally Posted by | Moep | View Post
Probiers mal mit #RequireAdmin am Anfang deines Scripts.
sollte bei mir nicht nötig sein, da ich meine UAC koplett deaktivert habe.
den noch habe ich es dervollständigkeit halber eingefügt und getestet probiert.

das und die anderen änderungen zusammen brachten leider wieder alles nichts außer die 1000 nullen :(
07/23/2011 21:20 KDeluxe#12
Quote:
Originally Posted by Frennzy View Post
gleiches ergebnis bei 'prt' (Nullen)
und bei 'qword' gitbs nur eine 0 zurück.
Das hat einen einfachen Grund, du hast schlicht und ergreifend etwas falsch gemacht. Ich habe die Funktionen entsprechend geändert und es funktioniert alles:

PHP Code:
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
    If Not ProcessExists($iv_Pid) Then Return SetError(1, "", 0)

    Local $ah_Handle[2] = [DllOpen("kernel32.dll")]
    If @error Then Return SetError(2, "", 0)

    Local $av_OpenProcess = DllCall($ah_Handle[0], "HANDLE", "OpenProcess", "DWORD", $iv_DesiredAccess, "int", $if_InheritHandle, "DWORD", $iv_Pid)
    If @error Then
        DllClose($ah_Handle[0])
        Return SetError(3, "", 0)
    EndIf

    $ah_Handle[1] = $av_OpenProcess[0]
    Return SetError(0, "", $ah_Handle)
EndFunc

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = "dword")
    If Not IsArray($ah_Handle) Then Return SetError(1, "", 0)

    Local $v_Buffer = DllStructCreate($sv_Type)
    If @error Then Return SetError(@error + 1, "", 0)

    DllCall($ah_Handle[0], "int", "ReadProcessMemory", "HANDLE", $ah_Handle[1], "ptr", $iv_Address, "ptr", DllStructGetPtr($v_Buffer), "ULONG_PTR", DllStructGetSize($v_Buffer), "int", 0)
    If @error Then Return SetError(6, "", 0)

    Return SetError(0, "", DllStructGetData($v_Buffer, 1))
EndFunc

$Base = 8791717280384
$Handle = _MemoryOpen(ProcessExists("MineSweeper.exe"))
If @error Then
    MsgBox(48, "Fehler", "Der Prozess konnte nicht geöffnet werden!")
Else
    $Read = _MemoryRead($Base, $Handle, "byte[1000]")
    If @error Then
        MsgBox(48, "Fehler", "Ein Fehler ist aufgetreten!" & @CR & "Fehlercode: " & @error)
    Else
        MsgBox(0, "Ergebnis", $Read)
    EndIf
EndIf 
Hier noch ein Beweis (obwohl es nicht nötig ist):
07/23/2011 21:36 Frennzy#13
Quote:
Originally Posted by lolkop View Post
versuch dir die funktion mal etwa so zus chreiben:
Code:
Func ReadProcessMemory($hProcess, $lpBaseAddress, $type = 'dword', $dll = 'kernel32.dll')
	Local $lpBuffer = DllStructCreate($type)
	DllCall($dll, 'int', 'ReadProcessMemory', 'hwnd', $hProcess, 'ptr', $lpBaseAddress, 'ptr', DllStructGetPtr($lpBuffer), 'long', DllStructGetSize($lpBuffer), 'ptr', '')
	Return DllStructGetData($lpBuffer, 1)
EndFunc
hier so ^^ umgeschrieben.... returniert eine einzelne Null

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#RequireAdmin

#include-once
#region _Memory


SetPrivilege("SeDebugPrivilege", 1)
$process = "MineSweeper.exe"
$pid = ProcessExists($process)
$MemOpen = _MemoryOpen($pid)
$Readout = ReadProcessMemory($MemOpen, '8791709219456')
MsgBox(0,"result", $Readout)


Func ReadProcessMemory($hProcess, $lpBaseAddress, $type = 'dword', $dll = 'kernel32.dll')
	Local $lpBuffer = DllStructCreate($type)
	DllCall($dll, 'int', 'ReadProcessMemory', 'hwnd', $hProcess, 'ptr', $lpBaseAddress, 'ptr', DllStructGetPtr($lpBuffer), 'long', DllStructGetSize($lpBuffer), 'ptr', '')
	Return DllStructGetData($lpBuffer, 1)
EndFunc



;==================================================================================
; Function:            SetPrivilege( $privilege, $bEnable )
; Description:        Enables (or disables) the $privilege on the current process
;                   (Probably) requires administrator privileges to run
;
; Author(s):        Larry (from autoitscript.com's Forum)
; Notes(s):
; http://www.autoitscript.com/forum/index.php?s=&showtopic=31248&view=findpost&p=223999
;==================================================================================

Func SetPrivilege( $privilege, $bEnable )
    Const $TOKEN_ADJUST_PRIVILEGES = 0x0020
    Const $TOKEN_QUERY = 0x0008
    Const $SE_PRIVILEGE_ENABLED = 0x0002
    Local $hToken, $SP_auxret, $SP_ret, $hCurrProcess, $nTokens, $nTokenIndex, $priv
    $nTokens = 1
    $LUID = DLLStructCreate("dword;int")
    If IsArray($privilege) Then    $nTokens = UBound($privilege)
    $TOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $NEWTOKEN_PRIVILEGES = DLLStructCreate("dword;dword[" & (3 * $nTokens) & "]")
    $hCurrProcess = DLLCall("kernel32.dll","hwnd","GetCurrentProcess")
    $SP_auxret = DLLCall("advapi32.dll","int","OpenProcessToken","hwnd",$hCurrProcess[0],   _
            "int",BitOR($TOKEN_ADJUST_PRIVILEGES,$TOKEN_QUERY),"int*",0)
    If $SP_auxret[0] Then
        $hToken = $SP_auxret[3]
        DLLStructSetData($TOKEN_PRIVILEGES,1,1)
        $nTokenIndex = 1
        While $nTokenIndex <= $nTokens
            If IsArray($privilege) Then
                $ntokenvar=$ntokenindex-1
                $priv = $privilege[$ntokenvar]
            Else
                $priv = $privilege
            EndIf
            $ret = DLLCall("advapi32.dll","int","LookupPrivilegeValue","str","","str",$priv,   _
                    "ptr",DLLStructGetPtr($LUID))
            If $ret[0] Then
                If $bEnable Then
                    DLLStructSetData($TOKEN_PRIVILEGES,2,$SE_PRIVILEGE_ENABLED,(3 * $nTokenIndex))
                Else
                    DLLStructSetData($TOKEN_PRIVILEGES,2,0,(3 * $nTokenIndex))
                EndIf
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,1),(3 * ($nTokenIndex-1)) + 1)
                DLLStructSetData($TOKEN_PRIVILEGES,2,DllStructGetData($LUID,2),(3 * ($nTokenIndex-1)) + 2)
                DLLStructSetData($LUID,1,0)
                DLLStructSetData($LUID,2,0)
            EndIf
            $nTokenIndex += 1
        WEnd
        $ret = DLLCall("advapi32.dll","int","AdjustTokenPrivileges","hwnd",$hToken,"int",0,   _
                "ptr",DllStructGetPtr($TOKEN_PRIVILEGES),"int",DllStructGetSize($NEWTOKEN_PRIVILEGES),   _
                "ptr",DllStructGetPtr($NEWTOKEN_PRIVILEGES),"int*",0)
        $f = DLLCall("kernel32.dll","int","GetLastError")
    EndIf
    $NEWTOKEN_PRIVILEGES=0
    $TOKEN_PRIVILEGES=0
    $LUID=0
    If $SP_auxret[0] = 0 Then Return 0
    $SP_auxret = DLLCall("kernel32.dll","int","CloseHandle","hwnd",$hToken)
    If Not $ret[0] And Not $SP_auxret[0] Then Return 0
    return $ret[0]
EndFunc  ;==>SetPrivilege
;=================================================================================================
; AutoIt Version:    3.1.127 (beta)
; Language:            English
; Platform:            All Windows
; Author:            Nomad
; Requirements:        These functions will only work with beta.
;=================================================================================================
; Credits:    wOuter - These functions are based on his original _Mem() functions.  But they are
;            easier to comprehend and more reliable.  These functions are in no way a direct copy
;            of his functions.  His functions only provided a foundation from which these evolved.
;=================================================================================================
;
; Functions:
;
;=================================================================================================
; Function:            _MemoryOpen($iv_Pid(, $iv_DesiredAccess(, $iv_InheritHandle)))
; Description:        Opens a process and enables all possible access rights to the process.  The
;                    Process ID of the process is used to specify which process to open.  You must
;                    call this function before calling _MemoryClose(), _MemoryRead(), or _MemoryWrite().
; Parameter(s):        $iv_Pid - The Process ID of the program you want to open.
;                    $iv_DesiredAccess - (optional) Set to 0x1F0FFF by default, which enables all
;                                        possible access rights to the process specified by the
;                                        Process ID.
;                    $if_InheritHandle - (optional) If this value is TRUE, all processes created by
;                                        this process will inherit the access handle.  Set to TRUE
;                                        (1) by default.  Set to 0 if you want it to be FALSE.
; Requirement(s):    A valid process ID.
; Return Value(s):     On Success - Returns an array containing the Dll handle and an open handle to
;                                 the specified process.
;                    On Failure - Returns 0
;                    @Error - 0 = No error.
;                             1 = Invalid $iv_Pid.
;                             2 = Failed to open Kernel32.dll.
;                             3 = Failed to open the specified process.
; Author(s):        Nomad
; Note(s):
;=================================================================================================
Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
    
    If Not ProcessExists($iv_Pid) Then
        SetError(1)
        Return 0
    EndIf
    
    Local $ah_Handle[2] = [DllOpen('kernel32.dll')]
    
    If @Error Then
        SetError(2)
        Return 0
    EndIf
    
    Local $av_OpenProcess = DllCall($ah_Handle[0], 'int_ptr', 'OpenProcess', 'int_ptr', $iv_DesiredAccess, 'int_ptr', $if_InheritHandle, 'int_ptr', $iv_Pid)
    
    If @Error Then
        DllClose($ah_Handle[0])
        SetError(3)
        Return 0
    EndIf
    
    $ah_Handle[1] = $av_OpenProcess[0]
    
    Return $ah_Handle
    
EndFunc
07/23/2011 21:42 Frennzy#14
Quote:
Originally Posted by KillerDeluxe View Post
Das hat einen einfachen Grund, du hast schlicht und ergreifend etwas falsch gemacht. Ich habe die Funktionen entsprechend geändert und es funktioniert alles:

PHP Code:
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_UseX64=y

Func _MemoryOpen($iv_Pid, $iv_DesiredAccess = 0x1F0FFF, $if_InheritHandle = 1)
    If Not ProcessExists($iv_Pid) Then Return SetError(1, "", 0)

    Local $ah_Handle[2] = [DllOpen("kernel32.dll")]
    If @error Then Return SetError(2, "", 0)

    Local $av_OpenProcess = DllCall($ah_Handle[0], "HANDLE", "OpenProcess", "DWORD", $iv_DesiredAccess, "int", $if_InheritHandle, "DWORD", $iv_Pid)
    If @error Then
        DllClose($ah_Handle[0])
        Return SetError(3, "", 0)
    EndIf

    $ah_Handle[1] = $av_OpenProcess[0]
    Return SetError(0, "", $ah_Handle)
EndFunc

Func _MemoryRead($iv_Address, $ah_Handle, $sv_Type = "dword")
    If Not IsArray($ah_Handle) Then Return SetError(1, "", 0)

    Local $v_Buffer = DllStructCreate($sv_Type)
    If @error Then Return SetError(@error + 1, "", 0)

    DllCall($ah_Handle[0], "int", "ReadProcessMemory", "HANDLE", $ah_Handle[1], "ptr", $iv_Address, "ptr", DllStructGetPtr($v_Buffer), "ULONG_PTR", DllStructGetSize($v_Buffer), "int", 0)
    If @error Then Return SetError(6, "", 0)

    Return SetError(0, "", DllStructGetData($v_Buffer, 1))
EndFunc

$Base = 8791717280384
$Handle = _MemoryOpen(ProcessExists("MineSweeper.exe"))
If @error Then
    MsgBox(48, "Fehler", "Der Prozess konnte nicht geöffnet werden!")
Else
    $Read = _MemoryRead($Base, $Handle, "byte[1000]")
    If @error Then
        MsgBox(48, "Fehler", "Ein Fehler ist aufgetreten!" & @CR & "Fehlercode: " & @error)
    Else
        MsgBox(0, "Ergebnis", $Read)
    EndIf
EndIf 
Hier noch ein Beweis (obwohl es nicht nötig ist):
danke... ich bin erstmal erleichtert, dass es bei dir funktioniert... andererseits erhalte ich bei deinem code auch wieder nullen ... wenn es an am code nicht liegt, woran könnte es dann liegen ? - die rechte hab ich ausgestellt und habe auch mit totalcommander wie gewohnt vollen zugriff ohne "admin-anfrage" ....
ich habe wirklich keine idee was es sein könnte !?
07/24/2011 11:16 buFFy!#15
das lesen des speichers einer 64bit applikation aus einer 32bit applikation funktioniert nur wenn das highword der 32bit addresse == 0 ist. da du eine 64bit addresse verwendest solltest du eventuell mal versuchen da ganze als 64bit zu kompilieren.

um ehrlich zu sein verwirrt mich die addresse etwas. kenne mich aber zu wenig mit au3 aus um zu der interpretation was zu sagen. und anscheinend ging das ja bei killer.
Page 1 of 2 1 2