VB.NET Memory Module v2 by master131 [x86/x64 Compatible]

[Lovroman]

I do but I want my program to search for a memory address by its value cause it is a changing address, it is not the same each time I open the game.

Make pointer or signature(I recommend you to make pointer, because signature scanning in normal applications is slooooooooooow).

[RoPMadM]

Make pointer or signature(I recommend you to make pointer, because signature scanning in normal applications is slooooooooooow).

I have few questions

1. How to find the BaseAddress ?
2. How to add more then one Offsets to the BaseAdress, that I can return the calculated address ?

example:

BaseAdress: "Tutorial-i386.exe"+0x157F00
+0x68
+0x4
+0x0
+0x480

[Lovroman]

I have few questions

1. How to find the BaseAddress ?
2. How to add more then one Offsets to the BaseAdress?

example:

BaseAdress: "Tutorial-i386.exe"+0x157F00
+0x68
+0x4
+0x0
+0x480

1)Depends..(+ I'm not good at searching for pointers )
2)

[RoPMadM]

1)Depends..(+ I'm not good at searching for pointers )
2)

I Know how to do that in CE, I wanted to know how to do that with the MemoryModul.

[Lovroman]

I Know how to do that in CE, I wanted to know how to do that with the MemoryModul.

Oh..

Dim BasePointerAdress As Integer
 Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Module] As ProcessModule In Process.GetProcessesByName("Tutorial-i386.exe")(0).Modules
                    If [Module].ModuleName = "Tutorial-i386.exe" Then
                      BasePointerAdress = [Module].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try

Dim RealAddress As UInteger =  ReadInteger(BasePointerAddress) + 157F00;
RealAdress = ReadMemory(Of Integer)(RealAddress) + &H68;
RealAdress = ReadMemory(Of Integer)(RealAddress) + &H4;
RealAdress = ReadMemory(Of Integer)(RealAddress)+ &H0;
RealAdress = ReadMemory(Of Integer)(RealAddress) + &H480;
'Do w/e you want

[RoPMadM]

Oh..

Dim BasePointerAdress As Integer
 Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Module] As ProcessModule In Process.GetProcessesByName("Tutorial-i386.exe")(0).Modules
                    If [Module].ModuleName = "Tutorial-i386.exe" Then
                      BasePointerAdress = [Module].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try

Dim RealAddress As UInteger =  ReadMemory(Of Integer)(BasePointerAddress) + 157F00;
RealAdress = ReadMemory(Of Integer)(Real) + &H68;
RealAdress = ReadMemory(Of Integer)(Real) + &H4;
RealAdress = ReadMemory(Of Integer)(Real) + &H0;
RealAdress = ReadMemory(Of Integer)(Real) + &H480;
'Do w/e you want

Nice Code thanks!
Is it possible to do the same in a function?

[Lovroman]

Nice Code thanks!
Is it possible to do the same in a function?

Fixed few mistakes.
What kind of function ?
That searches for pointer address or..?

[RoPMadM]

Fixed few mistakes.
What kind of function ?
That searches for pointer address or..?

Yes a function for:
- first to look for the Base address
- then add the offsets to the base to find pointer adress

[Lovroman]

Yes a function for:
- first to look for the Base address
- then add the offsets to the base to find pointer adress

 Public Function BaseAddress(GameProc As String) As Integer
        Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Mod] As ProcessModule In Process.GetProcessesByName(GameProc)(0).Modules
                    If [Mod].ModuleName = GameProc Then
                        Return [Mod].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try
    End Function

    Public Function Pointers([Module] As String, Pointers As Integer()) As Integer
        Dim BaseAddress As Integer = BaseAddress([Module]) + Pointers(0)
        Dim RealAddress As Integer = ReadMemory(Of Integer)(BaseAddress) + Pointers(1)
        Dim i As Integer = 2
        Do While  i <> Pointers.Length - 2
            RealAddress = ReadMemory(Of Integer)(RealAddress) + Pointers(i)
            i += 1
        Loop
        Return RealAdress
    End Function

[RoPMadM]

 Public Function BaseAddress(GameProc As String) As Integer
        Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Mod] As ProcessModule In Process.GetProcessesByName(GameProc)(0).Modules
                    If [Mod].ModuleName = GameProc Then
                        Return [Mod].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try
    End Function

    Public Function Pointers([Module] As String, Pointers As Integer()) As Integer
        Dim BaseAddress As Integer = BaseAddress([Module]) + Pointers(0)
        Dim RealAddress As Integer = ReadMemory(Of Integer)(BaseAddress) + Pointers(1)
        Dim i As Integer = 2
        Do While  i <> Pointers.Length - 2
            RealAddress = ReadMemory(Of Integer)(RealAddress) + Pointers(i)
            i += 1
        Loop
        Return RealAdress
    End Function

Could you check the function code please I think there are some mistakes that I'm not able to fix

[Lovroman]

Could you check the function code please I think there are some mistakes that I'm not able to fix

Public Class Form1
    Public Function BaseProcessAddress(ByVal GameProc As String) As Integer
        Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Mod] As ProcessModule In Process.GetProcessesByName(GameProc)(0).Modules
                    If [Mod].ModuleName = GameProc Then
                        Return [Mod].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try
    End Function

    Public Function Pointer(ByVal [Module] As String, ByVal Pointers As Integer()) As Integer
        Dim BaseAddress As Integer
        BaseAddress = BaseProcessAddress([Module]) + Pointers(0)
        Dim RealAddress As Integer
        RealAddress = ReadMemory(Of Integer)((BaseAddress) + Pointers(1))
        Dim i As Integer = 2
        Do While i <> Pointers.Length - 2
            RealAddress = ReadMemory(Of Integer)((RealAddress) + Pointers(i))
            i += 1
        Loop
        Return RealAddress
    End Function
End Class

..Great mistakes.
Should work now.

[RoPMadM]

Public Class Form1
    Public Function BaseProcessAddress(ByVal GameProc As String) As Integer
        Try
            If Process.GetProcessesByName(GameProc).Length <> 0 Then
                For Each [Mod] As ProcessModule In Process.GetProcessesByName(GameProc)(0).Modules
                    If [Mod].ModuleName = GameProc Then
                        Return [Mod].BaseAddress.ToInt32()
                    End If
                Next
                Return 0
            Else
                Return 0
            End If
        Catch
            Return 0
        End Try
    End Function

    Public Function Pointer(ByVal [Module] As String, ByVal Pointers As Integer()) As Integer
        Dim BaseAddress As Integer
        BaseAddress = BaseProcessAddress([Module]) + Pointers(0)
        Dim RealAddress As Integer
        RealAddress = ReadMemory(Of Integer)((BaseAddress) + Pointers(1))
        Dim i As Integer = 2
        Do While i <> Pointers.Length - 2
            RealAddress = ReadMemory(Of Integer)((RealAddress) + Pointers(i))
            i += 1
        Loop
        Return RealAddress
    End Function
End Class

..Great mistakes.
Should work now.

Thank you very much!

[Bugsters]

Doesn't work?

Memory.SetProcessName("gta_sa")
Memory.UpdateProcessHandle()
Dim myFloatValue As Single = ReadMemory(Of Single)(&HBA676C)

I get "0".
CheatEngine: "0,00300000049173832"

[COD3RIN]

This is great to learn vb.net....by the way about your memory module this is work in other game two will i'll trying to make a hack in another game by using this code it be possible to work?

[SammyDoge1]

This is great to learn vb.net....by the way about your memory module this is work in other game two will i'll trying to make a hack in another game by using this code it be possible to work?

I use jorndel his c# module for assasinscreed, ghosts , mw1. so yes. Just change the process it writes to.