Pointers

Guys help me please understand how to use pointers. I'm using Memory Module v2 by master131

These pointer for GTA5 (in cheat engine all works ok offcourse)
GTA5.exe + 2333980 -> 8 -> 30 -> 50

I wrote these:

Code:

Public Function GetAddesses()
        Dim proc As Process = Process.GetProcessesByName("GTA5")(0)
        Dim BasePointerAdress As IntPtr = proc.MainModule.BaseAddress
        Dim RealAddress As UInteger = ReadMemory(Of Integer)(BasePointerAdress) + &H2333980
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H8
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H30
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H50
End Function

Base address - ok
Pointers - dont work

Please help me figure out what wrong in this code.

pointer.png

Code:

Public Function GetAddesses()
        Dim proc As Process = Process.GetProcessesByName("GTA5")(0)
        Dim BasePointerAdress As IntPtr = proc.MainModule.BaseAddress
        Dim RealAddress As UInteger = ReadMemory(Of Integer)(BasePointerAdress) + &H2333980
        Dim Offset2 = ReadMemory(Of Integer)(RealAddress) + &H8
        Dim Offset3 = ReadMemory(Of Integer)(Offset2) + &H30
        Dim Offset4 = ReadMemory(Of Integer)(Offset3) + &H50
Return GetAddresses = Offset4
End Function

Try This

It should look like this:
a = read(module + 0x2333980)
b = read(a + 0x8)
c = read(b + 0x30)
result = read(c + 0x50)

Thanks for response! I already understood bymyself

Originally Posted by keklolm8

Code:

Public Function GetAddesses()
        Dim proc As Process = Process.GetProcessesByName("GTA5")(0)
        Dim BasePointerAdress As IntPtr = proc.MainModule.BaseAddress
        Dim RealAddress As UInteger = ReadMemory(Of Integer)(BasePointerAdress) + &H2333980
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H8
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H30
        RealAddress = ReadMemory(Of Integer)(RealAddress) + &H50
End Function

I'm not that good with pointers, but pretty sure you need to do what zaczaro said.

Code:

Public Function GetAddesses()
        Dim proc As Process = Process.GetProcessesByName("GTA5")(0)
        Dim BasePointerAdress As IntPtr = proc.MainModule.BaseAddress
        Dim RealAddress As UInteger = ReadMemory(Of Integer)(BasePointerAdress + &H2333980)
        RealAddress = ReadMemory(Of Integer)(RealAddress + &H8)
        RealAddress = ReadMemory(Of Integer)(RealAddress + &H30)
        RealAddress = ReadMemory(Of Integer)(RealAddress+ &H50)
End Function

Pointers

Post a Reply

Similar Threads

Tags for this Thread