ReadingWritingMemory.vb Help

[supermarre1]

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

      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

<?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.

[Fatiz]

Try using this

 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

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

Then just do

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

Lemme know if that works!

[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

[supermarre1]

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 - - -

Try using this

 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

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

Then just do

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

Lemme know if that works!

Will try, thanks!

[RoPMadM]

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

[supermarre1]

Try using this

 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

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

Then just do

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

Lemme know if that works!

Worked, Thanks!

[Afdul]

It's Need 10 Pointer That Will Stronger

[[MPGH]Hugo Boss]

You got your answer, solved & closed.