Bot Stop Read MemoryAddress

[MaCrOs]

Hello bot stoping read correctly value on all address always = 0
Someone can look it ? is VS 2013 Full Source.

Link:
http://speedy.sh/MNyR9/MaCrOsoft.zip

Example

ReadInt32(Tibia.Handle, adrZPos + Base - 400000) // Return 0

Now all function and declaration:

Public Function ReadBytes(Handle As IntPtr, Address As Int64, BytesToRead As UInteger) As Byte()
Dim ptrBytesRead As IntPtr
' Declare a buffer, this is the no mans land in which the information travels to get from the memory address to our programs memory.
Dim buffer As Byte() = New Byte(BytesToRead - 1) {}
' Call to the windows function to get the information.
ReadProcessMemory(Handle, New IntPtr(Address), buffer, BytesToRead, ptrBytesRead)
' The result of this function will be the contents of buffer. Any information which was stored at the memory address passed in, is now in the buffer.
Return buffer
End Function

Public Function ReadInt32(Handle As IntPtr, Address As Long) As Integer
Return BitConverter.ToInt32(ReadBytes(Handle, Address, 4), 0)
End Function

Public Declare Function ReadProcessMemory Lib "kernel32.dll" (hProcess As IntPtr, lpBaseAddress As IntPtr, buffer As Byte(), size As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Int32

Public adrZPos As UInt32 = &HAD1040

Dim TibiaProcess As Process() = Process.GetProcessesByName("Tibia")
Tibia = TibiaProcess(0)
Base = Hex(Tibia.MainModule.BaseAddress.ToInt32())

[Ash Katchup]

I have no idea what are you doing wrong.

Anyway, i just made this code and it is working like a charm. Remember Blackd address list always uses Tibia's baseaddress as &H400000.

Imports System.Runtime.InteropServices

Public Class Form1

    Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, _
                                            ByVal lpBaseAddress As IntPtr, _
                                            <Out()> ByVal lpBuffer As Byte(), _
                                            ByVal dwSize As IntPtr, _
                                            ByRef lpNumberOfBytesRead As IntPtr) As Boolean
    End Function
    '
    Public ProcessID As IntPtr
    Public ProcessHandle As IntPtr
    Public ProcessBase As Long
    '
    Public Const HealthAdr As Long = &HAD1030 - &H400000
    Public Const ManaAdr As Long = &H933688 - &H400000
    Public Const XorAdr As Long = &H933658 - &H400000

    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim p As Process = Nothing
        '
        Dim xorVlr As Long
        Dim hpVlr As Long
        Dim mpVlr As Long
        '
        p = Process.GetProcessesByName("tibia")(0)
        '
        If Not p Is Nothing Then
            '
            ProcessID = p.Id
            ProcessHandle = p.Handle
            ProcessBase = p.MainModule.BaseAddress
            '
            xorVlr = ReadMemoryLong(ProcessID, ProcessBase, XorAdr)
            hpVlr = ReadMemoryLong(ProcessID, ProcessBase, HealthAdr)
            mpVlr = ReadMemoryLong(ProcessID, ProcessBase, ManaAdr)
            '
            hpVlr = hpVlr Xor xorVlr
            mpVlr = mpVlr Xor xorVlr
            '
            Label1.Text = "Health: " & hpVlr
            Label2.Text = "Mana:" & mpVlr
            '
            p = Nothing
        End If
        '
    End Sub

    Public Function ReadMemoryLong(ByVal idProcess As IntPtr, ByVal baseaddress As Long, ByVal address As Long) As Long
        Dim realaddress As Long
        Dim buffer() As Byte
        Dim handleproc As IntPtr
        '
        ReDim buffer(3)
        '
        handleproc = Process.GetProcessById(idProcess).Handle
        '
        realaddress = baseaddress + address
        '
        ReadProcessMemory(handleproc, realaddress, buffer, buffer.Length, Nothing)
        '
        Return BitConverter.ToInt32(buffer, 0)
        '
    End Function
End Class