Offset and adress read Problem. FOR HP Autopot short code...

[wiz88]

#Include <NomadMemory.au3>


WinActivate ("*** Online ")
Do
$PID = _MemoryOpen(WinGetProcess("*** Online") )

$Adresse = 0x0143C888
Dim $Offset[2] = [0, 0x3b8]
While 1
$Process = _MemoryOpen(ProcessExists("client.exe"))
If Not @error Then
$HP = _MemoryPointerRead($Adresse, $Process, $Offset)
If Not @error Then ToolTip($HP[1], 0, 0)
_MemoryClose($Process)
if $HP < 5000 Then
Send("9")
sleep (5000)
EndIf
Sleep(400)
EndIf
Sleep(100)
WEnd

Until GuiGetMsg()

im new start autoit where i can fault? my char hp error read..i search forum but very code not read char hp...i need offset and adress read after hp pot used...Thanks

[fear-x]

try $HP[2] instead of $HP[1]


or try convert your value into 4 bytes

[KDeluxe]

"$HP[2]" will produce an error. The return value is an array with two elements. The first element contains the address and the second one contains the value. If you try to access the third element, the range is exceeded and an error occurs.

 Spoiler

#AutoIt3Wrapper_UseX64=n ; 32 Bit application

#RequireAdmin
#include "KDMemory.au3"

Dim $handles = 0, $tmpError = 0, $tmpData[2]
Const $windowName = "xxx Online"
Const $address = 0x0143C888, $offsetsHP[1] = [0x3B8]

GUICreate("HP Bot", 200, 40)
$lbl_Info = GUICtrlCreateLabel("Waiting for '" & $windowName & "'...", 5, 5, 190, 30)
GUISetState()

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

    $processId = WinGetProcess($windowName)
    If $processId == -1 Then
        If IsArray($handles) Then
            _KDMemory_CloseHandles($handles)
            $handles = 0
            GUICtrlSetData($lbl_Info, "Waiting for '" & $windowName & "'...")
        EndIf
        ContinueLoop
    EndIf

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

    $memoryData = _KDMemory_ReadProcessMemory($handles, $address, "DWORD", $offsetsHP)
    If @error Then
        If $tmpError <> @error Then
            $tmpError = @error
            GUICtrlSetData($lbl_Info, "Can't read memory!" & @CRLF & "@error: " & @error & ", @extended: " & @extended)
        EndIf
    Else
        If $tmpData[0] <> $memoryData[0] Or $tmpData[1] <> $memoryData[1] Then
            $tmpData = $memoryData
            GUICtrlSetData($lbl_Info, "Address: " & $memoryData[0] & @CRLF & "HP: " & $memoryData[1])
        EndIf

        If $memoryData[1] < 5000 Then
            Send("9")
;~             ControlSend($windowName, "", "", "9")
            Sleep(5000)
        EndIf
    EndIf
WEnd

[Mr.Netwolf]

well i can see one problem
or at least i had my problems with that

Dim $Offset[2] = [0, 0x3b8]

try changing these lines

Dim $Offset[2] 
$Offset[0] = 0
$offset[1] = 0x3b8

or try my script
Offset[0] would be 1 in your case.
and Offset[1] obviously 0x3b8
$HP = _memoryread(finaladdress(blbablabla), $process)
If Not @error Then ToolTip($HP, 0, 0)
you only need $vtype for debugs in case your value is a float or Hex.

btw inttofloat() is not my own work. but it works like a charm to turn integer into float

theres some debugs in the function to show you the results of pointer conversion and ofc the value of the read. you just need to remove the ;

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.10.2
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include <NomadMemory.au3>

func finaladress($pointer, $offset, $vtype, $ProcessID)
dim $value
dim $i
dim $read
if IsArray($offset) Then
$value = _MemoryOpen($ProcessID)
	for $i = 1 to  $offset[0]
$pointer = _MemoryRead($pointer, $value) + $offset[$i]
Next
_MemoryClose($value)
EndIf
$value = _MemoryOpen($ProcessID)
$read = _MemoryRead($pointer, $value)
if $vtype = "float" Then
$read = IntToFlt($read)
ElseIf $vtype = "hex" Then
$read = Hex($read)
EndIf
_MemoryClose($value)
;MsgBox(16,"test",hex($pointer))
;MsgBox(16,"test",$read)
Return $pointer
EndFunc
;credits to some random on the net... lol
Func IntToFlt($iVal)
Local $result
$fs = DllStructCreate("float")
$is = DllStructCreate("int64",DllStructGetPtr($fs))

DllStructSetData($is,1,$iVal)

$result =  DllStructGetData($fs,1)
$fs = 0
$is = 0
return $result

endfunc

[alpines]

Originally Posted by Mr.Netwolf

try changing these lines

Dim $Offset[2] 
$Offset[0] = 0
$offset[1] = 0x3b8

Using that instead of

Dim $Offset[2] = [0, 0x3B8]

would bring no change. Actually the 2nd version is better.