VB.net Cheat Engine tutorial step 8. Whats wrong in my code?

[lock5126]

Guys, i need your help. I have no idea whats wrong, but its not working! HELP)
Cheat engine tutorial step 8. A base adress is 002903B0, offsets C, 14, 0, 18.

Imports System.Runtime.InteropServices

Public Class form1

    'API ReadProcessMemory
    <DllImport("kernel32.dll", SetLastError:=True)> _
    Private Shared Function ReadProcessMemory( _
       ByVal hProcess As IntPtr, _
       ByVal lpBaseAddress As IntPtr, _
       <Out()> ByVal lpBuffer() As Byte, _
       ByVal dwSize As Integer, _
       ByRef lpNumberOfBytesRead As Integer) As Boolean
    End Function

    Private Function FindAddress(ByVal pHandle As IntPtr, ByVal BaseAddress As IntPtr, ByVal StaticPointer As IntPtr, ByVal Offsets() As IntPtr) As IntPtr
        ' Create a buffer that is 4 bytes on a 32-bit system or 8 bytes on a 64-bit system. 
        Dim tmp(IntPtr.Size - 1) As Byte
        Dim Address As IntPtr = BaseAddress
        ' We must check for 32-bit vs 64-bit. 
        If IntPtr.Size = 4 Then
            Address = New IntPtr(Address.ToInt32 + StaticPointer.ToInt32)
        Else
            Address = New IntPtr(Address.ToInt64 + StaticPointer.ToInt64)
        End If
        ' Loop through each offset to find the address 
        For i As Integer = 0 To Offsets.Length - 1
            ReadProcessMemory(pHandle, Address, tmp, IntPtr.Size, 0)
            If IntPtr.Size = 4 Then
                Address = BitConverter.ToInt32(tmp, 0) + Offsets(i).ToInt32()
            Else
                Address = BitConverter.ToInt64(tmp, 0) + Offsets(i).ToInt64()
            End If
        Next
        Return Address
    End Function


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim p As Process() = Process.GetProcessesByName("Tutorial-i386")
        ' I'm assuming p is a Process object that represents the game process. 
        Dim pID As IntPtr = p(0).Handle
        Dim base As IntPtr = p(0).MainModule.BaseAddress
        ' Our static pointer... 
        Dim sptr As IntPtr = &H2903B0
        ' And our offsets... 
        Dim offsets() As IntPtr = {&HC, &H14, &H0, &H18}
        Dim addr As IntPtr = FindAddress(pID, base, sptr, offsets)
        Dim f As String
        f = addr.ToString
        MessageBox.Show(f)
    End Sub
End Class

[Hassan]

Learn to code and stop copying and pasting please.

[lock5126]

Waiting for a meaningful help.

[abuckau907]

        For i As Integer = 0 To Offsets.Length - 1
            ReadProcessMemory(pHandle, Address, tmp, IntPtr.Size, 0)
            If IntPtr.Size = 4 Then 
                Address = BitConverter.ToInt32(tmp, 0) + Offsets(i).ToInt32() '' BREAK-POINT ON THIS LINE
            Else
                Address = BitConverter.ToInt64(tmp, 0) + Offsets(i).ToInt64() '' BREAK-POINT ON THIS LINE
            End If
        Next

Set the break-points, and tell us the outputs. If you want the addresses displayed in hex (which you probably do) , calling .ToString("X") on a number, will turn it into a string, in hex format.

---
Or, is it just

        Dim f As String
        f = addr.ToString("X") '' display the number as hex
        MessageBox.Show(f)

'replace with MessageBox.Show(addr.ToString("X")) and get rid of 'f' : un-needed.

?

[lock5126]

Thank you so much dude!

Is this it?

[abuckau907]

np. This might help (just added some msg boxes) - 1 msgbox*

 Private Function FindAddress(ByVal pHandle As IntPtr, ByVal BaseAddress As IntPtr, ByVal StaticPointer As IntPtr, ByVal Offsets() As IntPtr) As IntPtr
        ' Create a buffer that is 4 bytes on a 32-bit system or 8 bytes on a 64-bit system. 
        Dim tmp(IntPtr.Size - 1) As Byte
        Dim _ListOfAllAddressAsHexString As New System.Text.StringBuilder '' AB -used for debugging output
        _ListOfAllAddressAsHexString.AppendLine("procHandle: " & pHandle.ToString)
        _ListOfAllAddressAsHexString.AppendLine("MainModuleBase: &H" & BaseAddress.ToString("X"))
        _ListOfAllAddressAsHexString.AppendLine("StaticOffset: &H" & StaticPointer.ToString("X"))
        Dim Address As IntPtr = BaseAddress 
        If IntPtr.Size = 4 Then         ' We must check for 32-bit vs 64-bit.
            Address = New IntPtr(Address.ToInt32 + StaticPointer.ToInt32) 
        Else
            Address = New IntPtr(Address.ToInt64 + StaticPointer.ToInt64)
        End If
        _ListOfAllAddressAsHexString.AppendLine("MainModuleBase + staticOffset: &H" & Address.ToString("X"))
        _ListOfAllAddressAsHexString.AppendLine("---------------------------")
        ' Loop through each offset to find the address 
        For i As Integer = 0 To Offsets.Length - 1
            ReadProcessMemory(pHandle, Address, tmp, IntPtr.Size, 0)
            If IntPtr.Size = 4 Then
                Address = BitConverter.ToInt32(tmp, 0) + Offsets(i).ToInt32()
            Else
                Address = BitConverter.ToInt64(tmp, 0) + Offsets(i).ToInt64()
            End If
            _ListOfAllAddressAsHexString.AppendLine("ptr#" & i & ": &H" & Address.ToString("X")) 
        Next
        ''display the msg box containing all the addr
        MessageBox.Show(_ListOfAllAddressAsHexString.ToArray,"debugging list -ab")
        Return Address 
    End Function

-upload a screenshot to some public site, and show the results here by doing.. (not mpgh 'Attachment') : )
[ img ] www.somesitedotcom/ your_image [ /img ] - (without spaces)

[lock5126]

MessageBox.Show(_ListOfAllAddressAsHexString.ToArr ay, "debugging list -ab"), when "ToArray" must be "ToString".
Thank you, worked! )

[abuckau907]

haha yeah I was thinking List(Of string) I guess : ) cooleo.
So there is no bug: You only needed to display the number in hex, issue resolved?

[lock5126]

Okay. https://i.imgur.com/Y6jVFlk.png

[abuckau907]

idk what the final addr should be

"So there is no bug: You only needed to display the number in hex, issue resolved?"

[lock5126]

Hope I will find a solution.

Shall immediately begin to learn English xD

[wut12345]

Learn to code and stop copying and pasting please.

This post here gave me cancer never post this again

OH SHIT

[Paul]

This post here gave me cancer never post this again

OH SHIT

How can cancer like you get cancer?

[wut12345]

How can cancer like you get cancer?

Cause its cancer

[abuckau907]

..Can cancer get cancer?