[pointer]Eure hilfe -> 173

10/22/2010 19:04 .BritainAndy#1
Hallo comm,

ich bin gerade dabei für Metin2 einen Hakc zu schreiben.

So ich hab einfach in meinen skript ein paar pointer (5) eingesetzt, abe rnichts hat funktioniert ingame bin ich immer noch normal schnell...

hier mein skript

PHP Code:
#include <pointer.au3>
SetPrivilege("SeDebugPrivilege", 1)

$pid = WinGetProcess("METIN2")
$openmem = _MemoryOpen($pid)
$baseadress = _MemoryGetBaseAddress($pid,"immortal2.bin")


    
$testoffset1 = "2DO" 
    
$testoffset2 = "5B6" 
    
$testoffset3 = "0021E564" 




Global $AOffset[3]
$AOffset[0] = 0
$AOffset
[1] = Dec($testoffset1)
$AOffset[2] = Dec($testoffset2)
$Aaddress = "0x" & Hex($baseadress + Dec($testoffset3))



$Amemread = _MemoryPointerRead($Aaddress, $openmem, $AOffset, "byte[2]")




$Awert = _ReturnMemoryValue($Amemread[1])
$Awert = Dec($Awert)



Func _ReturnMemoryValue($sAdresse)

    
$sNewAdresse = ""
    
$sAdresse = StringTrimLeft($sAdresse, 2)
    For 
$i = StringLen($sAdresse) - 1 To 0 Step -2
        $sNewAdresse 
&= StringMid($sAdresse, $i, 2)
    
Next
    
Return $sNewAdresse
EndFunc  



while 1
 _MemoryPointerWrite
($Aaddress, $openmem, $AOffset, "16800", "dword")
wend 
Liegts am skript oder an den pointern?
10/22/2010 20:35 maxi39#2
benutz doch "what writes to this adress" und such den multipointer

und mit admin ausführen
10/22/2010 21:18 .BritainAndy#3
das funktioniert nicht wenn ich what writes to this adress anklicke und die addresse unten ahbe
10/22/2010 23:24 jacky919#4
Warum schreibst's Hex Codes so komisch?
Nicht "2D0" So 0x2D0
So schreibst du Hex Codes..,
10/23/2010 01:05 maxi39#5
Quote:
Originally Posted by jacky919 View Post
Warum schreibst's Hex Codes so komisch?
Nicht "2D0" So 0x2D0
So schreibst du Hex Codes..,
die hex codes "0x" werden erst ab zahlen von 10 verwendet
10/23/2010 01:14 maxi39#6
so müsste es gehen, wenn der prozess stimmt sowie der pointer + offset

PHP Code:
#RequireAdmin
#include <Pointer.au3>

HotKeySet("{F1}", "_Read")

$PID = ProcessExists("metin2client.bin")
If 
$PID > 0 Then
    $Handle 
= _MemoryOpen($PID)
    
$Address = _MemoryModuleGetBaseAddress(ProcessExists("metin2client.bin"), "metin2client.bin")
    
$Address = "0x" & Hex($Address + Dec("0021E564"))
    
Dim $Offset[6] = [ 0, 0x5B6, 0x2D0 ]
Else
    Exit
EndIf

While 
True
    Sleep
(200)
WEnd

Func _Read
()
    
$Read = _MemoryPointerRead($Address, $Handle, $Offset, "word")
    
MsgBox(0, "", $Read[1])
EndFunc 
hier ein verweis auf einen alten theard: [Only registered and activated users can see links. Click Here To Register...]