NomadMemory, undefined function, Error

[grecostyler]

Bei [CODE$ModuleBaseAddress = _MemoryModuleGetBaseAddress($iv_Pid, "OrcsMustDie2.exe")[/CODE] sagt AutoIt mir ERROR: _MemoryModuleGetBaseAddress(): undefined function.

kann mir wer helfen? D:


ganzer Code

 Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=Autoit\Orcs Must Die 2 Trainer.exe
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
#include <Pointer.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Orcs Must Die 2 Trainer", 210, 74, 192, 114)
GUISetBkColor(0x00FF00)
$Label1 = GUICtrlCreateLabel("Numpad 1 = 10000 Gold", 40, 8, 120, 17)
$Button1 = GUICtrlCreateButton("Exit", 40, 32, 123, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$iv_Pid = ProcessExists("OrcsMustDie2.exe")
$ah_handle = _MemoryOpen($iv_Pid)
$ModuleBaseAddress = _MemoryModuleGetBaseAddress($iv_Pid, "OrcsMustDie2.exe")

$StartAddress = $ModuleBaseAddress + 0x07AD9AC
$Pointer1 = _MemoryRead($StartAddress,$ah_handle) + 124
$Pointer2 = _MemoryRead($Pointer1,$ah_handle) + 0x1ec
$Pointer3 = _MemoryRead($Pointer2,$ah_handle) + 0x254
$Pointer4 = _MemoryRead($Pointer3,$ah_handle) + 0xc
$iv_Address = _MemoryRead($Pointer4,$ah_handle) + 0x7c

HotKeySet("{numpad1}","_Gold")

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

		Case $Button1
			Exit



	EndSwitch
WEnd

Func _Gold()
	$G = _MemoryRead($iv_Address,$ah_handle)
	_MemoryWrite($iv_Address,$ah_handle,$G + 10000)
EndFunc

[alpines]

Du hast die Funktion _MemoryModuleGetBaseAddress() nicht in der Pointer.au3 sowie nicht in der Nomadmemory.au3.
Kopier dir das in deinen Source und es sollte klappen.

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

[grecostyler]

oke schonmal danke dafür. Jetzt öffnet sich endlich das fenster. aber er überschreibt nicht mehr die Adress, glaube ich... Es tut sich einfach garnichts, habe auch schon den Hotkey geändert. (nochmal entschuldigung für das versehen des 2. postes)

[KDeluxe]

Machen wir es gleich richtig:

 Spoiler

#AutoIt3Wrapper_UseX64=n ; 32 Bit application

#RequireAdmin
#include "KDMemory.au3"

Dim $handles = 0, $address = 0
Const $processName = "OrcsMustDie2.exe", $moduleName = $processName
Const $baseOffset = 0x007AD9AC
Const $offsetsGold[5] = [124, 0x1EC, 0x254, 0xC, 0x7C]

GUICreate("OMD2H", 200, 25)
$lbl_Info = GUICtrlCreateLabel("Numpad 1 = 10000 Gold", 5, 5, 190)
GUISetState()

HotKeySet("{NUMPAD1}", "_GoldHack")

While True
;~  Sleep()
    $msg = GUIGetMsg()
    Switch $msg
        Case -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $processId = ProcessExists($processName)
    If $processId == 0 Then
        If IsArray($handles) Then
            _KDMemory_CloseHandles($handles)
            $handles = 0
            $address = 0
        EndIf
        ContinueLoop
    EndIf

    If $handles == 0 Then
        $handles = _KDMemory_OpenProcess($processId)
        If @error Then
            If MsgBox(52, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error & @CRLF & @CRLF & "Continue?") == 6 Then
                $handles = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf

    If $address == 0 Then
        $address = _KDMemory_GetModuleBaseAddress($handles, $processName) + $baseOffset
        If @error Then
            If MsgBox(52, "Error", "Can't get ModuleBaseAddress '(" & $moduleName & ")'!" & @CRLF & "@error: " & @error & ", @extended: " & @extended & @CRLF & @CRLF & "Continue?") == 6 Then
                $address = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf
WEnd

Func _GoldHack()
    If IsArray($handles) And $address <> 0 Then
        _KDMemory_WriteProcessMemory($handles, $address, "DWORD", 10000, $offsetsGold)
        If @error Then MsgBox(16, "Fehler", "Schreiben des Speichers nicht möglich (@error: " & @error & ")!")
    EndIf
EndFunc

Sollte das Script nicht funktionieren wäre ein Screenshot deines Pointers in CE hilfreich. Beachte, dass das erste Offset in CE das unterste Offset ist. Bist du dir außerdem sicher, dass das erste Offset im Script nicht auch eine Hexadezimalzahl ist?

[grecostyler]

Oke also es kommt immer noch ein fehler: "Schreiben des Speichers nicht möglich (@error: 20)!"
Hier der screenshot vom Pointer.
(das sind neue pointer, weil ich die alten gelöscht habe und neue auprobiert habe, vergeblich)

 Spoiler

[BladeTiger12]

Was ist denn das...?
Deine Offsets stimmen nicht mal 1:1 überein.
woher nimmst du bitte das "124" oder "1EC" das steht garnicht dabei.

 Spoiler

#AutoIt3Wrapper_UseX64=n ; 32 Bit application

#RequireAdmin
#include "KDMemory.au3"

Dim $handles = 0, $address = 0
Const $processName = "OrcsMustDie2.exe", $moduleName = $processName
Const $baseOffset = 0x007AD9AC
Const $offsetsGold[5] = [0x114, 0x6A8, 0x2DC, 0xC, 0x7C]

GUICreate("OMD2H", 200, 25)
$lbl_Info = GUICtrlCreateLabel("Numpad 1 = 10000 Gold", 5, 5, 190)
GUISetState()

HotKeySet("{NUMPAD1}", "_GoldHack")

While True
;~  Sleep()
    $msg = GUIGetMsg()
    Switch $msg
        Case -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $processId = ProcessExists($processName)
    If $processId == 0 Then
        If IsArray($handles) Then
            _KDMemory_CloseHandles($handles)
            $handles = 0
            $address = 0
        EndIf
        ContinueLoop
    EndIf

    If $handles == 0 Then
        $handles = _KDMemory_OpenProcess($processId)
        If @error Then
            If MsgBox(52, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error & @CRLF & @CRLF & "Continue?") == 6 Then
                $handles = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf

    If $address == 0 Then
        $address = _KDMemory_GetModuleBaseAddress($handles, $processName) + $baseOffset
        If @error Then
            If MsgBox(52, "Error", "Can't get ModuleBaseAddress '(" & $moduleName & ")'!" & @CRLF & "@error: " & @error & ", @extended: " & @extended & @CRLF & @CRLF & "Continue?") == 6 Then
                $address = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf
WEnd

Func _GoldHack()
    If IsArray($handles) And $address <> 0 Then
        _KDMemory_WriteProcessMemory($handles, $address, "DWORD", 10000, $offsetsGold)
        If @error Then MsgBox(16, "Fehler", "Schreiben des Speichers nicht möglich (@error: " & @error & ")!")
    EndIf
EndFunc

Sieht für mich so aus als könntest du nicht richtig raus schreiben.
Und du auch keine Ahnung hast wie so etwas funktioniert.

[grecostyler]

das sind die werte die bei meinem pointer raus kamen...
das ist mein aktueller script:

 Spoiler

#AutoIt3Wrapper_UseX64=n ; 32 Bit application

#RequireAdmin
#include "KDMemory.au3"

Dim $handles = 0, $address = 0
Const $processName = "OrcsMustDie2.exe", $moduleName = $processName
Const $baseOffset = 0x007AD9AC
Const $offsetsGold[5] = [114, 0x6a8, 0x2dc, 0xc, 0x7c]

GUICreate("OMD2H", 200, 25)
$lbl_Info = GUICtrlCreateLabel("Numpad 1 = 10000 Gold", 5, 5, 190)
GUISetState()

HotKeySet("{NUMPAD1}", "_GoldHack")

While True
;~  Sleep()
    $msg = GUIGetMsg()
    Switch $msg
        Case -3 ; $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    $processId = ProcessExists($processName)
    If $processId == 0 Then
        If IsArray($handles) Then
            _KDMemory_CloseHandles($handles)
            $handles = 0
            $address = 0
        EndIf
        ContinueLoop
    EndIf

    If $handles == 0 Then
        $handles = _KDMemory_OpenProcess($processId)
        If @error Then
            If MsgBox(52, "Error", "Can't open '" & $processName & "'!" & @CRLF & "@error: " & @error & @CRLF & @CRLF & "Continue?") == 6 Then
                $handles = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf

    If $address == 0 Then
        $address = _KDMemory_GetModuleBaseAddress($handles, $processName) + $baseOffset
        If @error Then
            If MsgBox(52, "Error", "Can't get ModuleBaseAddress '(" & $moduleName & ")'!" & @CRLF & "@error: " & @error & ", @extended: " & @extended & @CRLF & @CRLF & "Continue?") == 6 Then
                $address = 0
                ContinueLoop
            Else
                Exit
            EndIf
        EndIf
    EndIf
WEnd

Func _GoldHack()
    If IsArray($handles) And $address <> 0 Then
        _KDMemory_WriteProcessMemory($handles, $address, "DWORD", 10000, $offsetsGold)
        If @error Then MsgBox(16, "Fehler", "Schreiben des Speichers nicht möglich (@error: " & @error & ")!")
    EndIf
EndFunc

[KDeluxe]

Du hättest einfach das angepasste Script von BladeTiger12 kopieren müssen. Du gibst das erste Offset in Dezimalschreibweise an, müsstest es aber in Hexadezimalschreibweise angeben. Natürlich kannst du die Offsets auch in Dezimalschreibweise angeben, "0x124" entspricht aber nicht "124" sondern "292".

[grecostyler]

Oke danke hab jetzt nochmal den Script von BladeTiger12 kopiert und es hat wieder funktioniert ^-^ viel vielen dank mit der info von hexdeximal und so *-*
Thanks to all <3