[Solved] ReadingWritingMemory.vb Help

ReadingWritingMemory.vb Help

Hi, i'm trying to make an OrcsMustDie2 Trainer using ReadWritingmemory,
Though i'm having some difficulties with pointers.

Here's my current Code so far

Code:

      Try 
            WriteDMAInteger("OrcsMustDie2", &H7A4454, {&H20, &H14, &H50, &H2C, &H2D8}, TextBox1.Text, 5) 
        Catch ex As Exception 
            MsgBox(ex.Message) 
        End Try

and here's the pointer
Since the pointers have This as an adress

"OrcsMustDie2.exe"+007A4454

Anyone could help me?

The Pointer works through the Trainer Generator in Cheat Engine, but never in visual basic.

But i wanna make a more advanced Trainer.

there were multiple pointers, but everyone pointed to the same adress, and all worked.
did i get the wrong pointer or something?

it does update the money etc, and it's editable in Cheat Engine.

Any help at all would be a greatly appriciated!

Full Table Code

Code:

<?xml version="1.0" encoding="utf-8"?> 
<CheatTable> 
  <CheatEntries> 
    <CheatEntry> 
      <ID>7</ID> 
      <Description>"Money"</Description> 
      <LastState Value="4000" RealAddress="3F838464"/> 
      <VariableType>4 Bytes</VariableType> 
      <Address>"OrcsMustDie2.exe"+007A4454</Address> 
      <Offsets> 
        <Offset>2D8</Offset> 
        <Offset>2C</Offset> 
        <Offset>50</Offset> 
        <Offset>14</Offset> 
        <Offset>20</Offset> 
      </Offsets> 
    </CheatEntry> 
  </CheatEntries> 
</CheatTable>

i have the right code, when i open and close the game it still points to the same number, just that my code are f**ked.

Try using this

Code:

 Public Function RetBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
        Dim P As Process() = Process.GetProcessesByName(ProcName)
        If (P.Length <> 0) Then
            Dim pMod As ProcessModuleCollection = P(0).Modules
            For i As Integer = pMod.Count - 1 To 0 Step -1
                If pMod.Item(i).FileName.EndsWith(ModuleName) Then
                    Return pMod.Item(i).BaseAddress.ToInt32
                End If
            Next i
        End If
        Return 0
    End Function

Then in your context you would do something like this

Code:

 
Dim Address As Integer = RetBase("OrcsMustDie2", "OrcsMustDie2.exe") + &H7A4454

Then just do

Code:

 
WriteDMAInteger("OrcsMustDie2", Address, {&H20, &H14, &H50, &H2C, &H2D8}, TextBox1.Text, 5)

Lemme know if that works!

Originally Posted by Fatiz

Try using this

Code:

 Public Function RetBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
        Dim P As Process() = Process.GetProcessesByName(ProcName)
        If (P.Length <> 0) Then
            Dim pMod As ProcessModuleCollection = P(0).Modules
            For i As Integer = pMod.Count - 1 To 0 Step -1
                If pMod.Item(i).FileName.EndsWith(ModuleName) Then
                    Return pMod.Item(i).BaseAddress.ToInt32
                End If
            Next i
        End If
        Return 0
    End Function

Then in your context you would do something like this

Code:

 
Dim Address As Integer = RetBase("OrcsMustDie2", "OrcsMustDie2.exe") + &H7A4454

Then just do

Code:

 
WriteDMAInteger("OrcsMustDie2", Address, {&H20, &H14, &H50, &H2C, &H2D8}, TextBox1.Text, 5)

Lemme know if that works!

Worked, Thanks!

Little bit offtopic:

Your pointer is pretty weak. Try to find some stronger pointers.

Good to see someone else cheating in OMD2.
I also made a hack for it with a huge bunch of features including ESP

Originally Posted by RoPMadM

Little bit offtopic:

Your pointer is pretty weak. Try to find some stronger pointers.

Good to see someone else cheating in OMD2.
I also made a hack for it with a huge bunch of features including ESP

Yeah, My pointers are quite off,
about your hack, WELL DONE! ESP, isn't that quite hard to make?

- - - Updated - - -

Originally Posted by Fatiz

Try using this

Code:

 Public Function RetBase(ByVal ProcName As String, ByVal ModuleName As String) As Integer
        Dim P As Process() = Process.GetProcessesByName(ProcName)
        If (P.Length <> 0) Then
            Dim pMod As ProcessModuleCollection = P(0).Modules
            For i As Integer = pMod.Count - 1 To 0 Step -1
                If pMod.Item(i).FileName.EndsWith(ModuleName) Then
                    Return pMod.Item(i).BaseAddress.ToInt32
                End If
            Next i
        End If
        Return 0
    End Function

Then in your context you would do something like this

Code:

 
Dim Address As Integer = RetBase("OrcsMustDie2", "OrcsMustDie2.exe") + &H7A4454

Then just do

Code:

 
WriteDMAInteger("OrcsMustDie2", Address, {&H20, &H14, &H50, &H2C, &H2D8}, TextBox1.Text, 5)

Lemme know if that works!

Will try, thanks!

It's Need 10 Pointer That Will Stronger

Originally Posted by supermarre1

Yeah, My pointers are quite off,
about your hack, WELL DONE! ESP, isn't that quite hard to make?

If you need help you can contact me

You got your answer, solved & closed.

SolvedReadingWritingMemory.vb Help

Similar Threads

Tags for this Thread