NomadMemory, undefined function, Error

12/18/2013 23:22 grecostyler#1

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

kann mir wer helfen? D:

ganzer Code

Spoiler

12/19/2013 10:34 alpines#2

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.

Code:

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

12/19/2013 13:50 grecostyler#3

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)

12/19/2013 14:25 KDeluxe#4

Machen wir es gleich richtig:

Spoiler

[Only registered and activated users can see links. Click Here To Register...]

Code:

#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?

12/19/2013 15:54 grecostyler#5

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

12/19/2013 17:30 BladeTiger12#6

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

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

12/19/2013 17:44 grecostyler#7

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

Spoiler

12/19/2013 21:36 KDeluxe#8

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".

12/19/2013 21:48 grecostyler#9

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 :D