Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


[VB.NET] Returns Value 0 - WriteDMAInteger / Read

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming
View previous topic :: View next topic  
Author Message
TheUltimat4Fight
How do I cheat?
Reputation: 0

Joined: 05 Sep 2016
Posts: 3

PostPosted: Mon Sep 05, 2016 1:39 am    Post subject: [VB.NET] Returns Value 0 - WriteDMAInteger / Read Reply with quote

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, not using a simple trainer (no offense)

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

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

Any help at all would be a greatly appriciated! Smile

i'm afraid i can't post images, but i can tell you the pointer do works, and is editable.

Love, TheUltimat4Fight. <3


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>



Just registered member Yes, but i have always been using Cheat Engine.
Still love it, and i'll always will.


Last edited by TheUltimat4Fight on Mon Sep 05, 2016 4:46 am; edited 1 time in total
Back to top
View user's profile Send private message
Dark Byte
Site Admin
Reputation: 470

Joined: 09 May 2003
Posts: 25788
Location: The netherlands

PostPosted: Mon Sep 05, 2016 4:37 am    Post subject: Reply with quote

i have no idea how WriteDMAInteger works, but perhaps it needs the .exe part
_________________
Do not ask me about online cheats. I don't know any and wont help finding them.

Like my help? Join me on Patreon so i can keep helping
Back to top
View user's profile Send private message MSN Messenger
TheUltimat4Fight
How do I cheat?
Reputation: 0

Joined: 05 Sep 2016
Posts: 3

PostPosted: Mon Sep 05, 2016 4:44 am    Post subject: Reply with quote

Dark Byte wrote:
i have no idea how WriteDMAInteger works, but perhaps it needs the .exe part


It says it doesn't, have you got another .vb file that i could use. i just downloaded mine from a youtube video.

From 2014, so no idea if it's up-to date.
Back to top
View user's profile Send private message
TheUltimat4Fight
How do I cheat?
Reputation: 0

Joined: 05 Sep 2016
Posts: 3

PostPosted: Tue Sep 06, 2016 7:50 am    Post subject: Reply with quote

Dark Byte wrote:
i have no idea how WriteDMAInteger works, but perhaps it needs the .exe part


Someone on MPGH.NET fixed it for me

Here's the code that fixed it.

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

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Address As Integer = RetBase("OrcsMustDie2", "OrcsMustDie2.exe") + &H7A4454
        WriteDMAInteger("OrcsMustDie2", Address, {&H20, &H14, &H50, &H2C, &H2D8}, TextBox1.Text, 5)
    End Sub
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General programming All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites