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

[Lovroman]

I think I don't use the same Visual Program, because I don't find it (when I translate to english)

Make sure that Expert Settings are enabled.
Tools-->Settings-->Check the "Expert Settings" checkbox

[AlbiZik]

Thanks for your help !
English version and French version ar not really the same x)
In french I have to go to "Générer" (=generate) and "Gestionnaire de configuration" (=Configuration Manager) and after add x64.
Now it's working fine,
Thank you Lovroman.

[lordxchris]

Hey guys how do i read an address plus the next 255 bytes say i want to read a hexadecimal address of a string and read all the data for the next 255 bytes ?
like in cheat engine i can just raise the length to 255 of an adress i found but how do i do it in vb ?

what im trying to do is in a process there is a line of code thats "data.data" but the data part changes every time of its adress so i need to make my tool search for data.data in hexadecimal then read that adress with a length of 255 bytes

[SammyDoge1]

Hey guys how do i read an address plus the next 255 bytes say i want to read a hexadecimal address of a string and read all the data for the next 255 bytes ?
like in cheat engine i can just raise the length to 255 of an adress i found but how do i do it in vb ?

what im trying to do is in a process there is a line of code thats "data.data" but the data part changes every time of its adress so i need to make my tool search for data.data in hexadecimal then read that adress with a length of 255 bytes

To my knowing you can change it in the memory module under the string:
the 12 in my screenshot. (this is Jorndel his module tho)

[COD3RIN]

This great to learn vb.net but i am not good for this only dynamic i can do

[elmasmalo1]

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.

Following up what you did here, how the code should work with game Game_Example.exe and a 5 level pointer?
This is my stuff:

1st  Offset  0
2nd Offset  59
3rd  Offset  ED
4th Offset  11
5th Offset   21
Base + Pointer Address: "Game_Example.exe"+011762FB

I'm also doing:

MessageBox.Show(BaseProcessAddress("Game_Example.exe").ToString)

To see if I can get a messagebox displaying the value containing the address... but it only shows 0.

Any help will be greatly appreciated~!

[Vishay]

Fist Sorry for Bumping but i have a Question:

 

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If UpdateProcessHandle() Then ' Check if the game is running
            ' Do stuff here, like writing/reading memory or telling a user in a Label the game is open.
        End If
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles detectProcess.TextChanged
        detectProcess.ForeColor = Color.Red
        detectProcess.Text = "Client.exe  -" & UpdateProcessHandle()
        ' Changing The Color if the Process was Found
        If detectProcess.Text = "Client.exe  -" & UpdateProcessHandle() = True Then
            detectProcess.ForeColor = Color.Green
        End If
    End Sub

    Private Sub btn1_Click(sender As Object, e As EventArgs) Handles btn1.CLick
        'WriteLong("Client", &H49B1E8, 989874827)
        If UpdateProcessHandle() Then
            WriteMemory(Of Long)(&H3BA8E07, 79169396)
        End If
    End Sub
End Class

Why does it not Work? any idea?

[lordxchris]

can someone help me with something? im trying to read an address to textbox but the string contains special charachters (upsidedown t and special p) and i want it to just read letters and numbers to the textbox how do i do this ?

Heres what the string looks like https://gyazo.com/59021b0f111be2b546d17a53eef88938

[SammyDoge1]

can someone help me with something? im trying to read an address to textbox but the string contains special charachters (upsidedown t and special p) and i want it to just read letters and numbers to the textbox how do i do this ?

Heres what the string looks like https://gyazo.com/59021b0f111be2b546d17a53eef88938

Well, letting it read that address, it would read exactly what's shown on the screenshot, not sure if you can filter out the special simbols.

[lordxchris]

cant i apply some kinda filter like regex ? (i dont know how to use regex tho lol)

[SammyDoge1]

cant i apply some kinda filter like regex ? (i dont know how to use regex tho lol)

No clue to be honest

[SliceNDice]

Thanks alot for sharing this. You are truly awesome!

[RoPMadM]

Did you converted this to C# and wanna share it ?

[Lovroman]

Did you converted this to C# and wanna share it ?

Try this one: https://www.mpgh.net/forum/showthread.php?t=760600 , it's pretty similar(feature-wise) or use an online converter to convert it.

[RoPMadM]

Well all those free converters are shit. I with limited C#-knowledge would do this better than a converter. But anyway as always Lovroman tanks for your support <3