Mw3 hack, how to update...

hey all so i'm working on my first hack (steam version)
its a trainer for first i just include prestige hack. visual basic 2010
but there is a problem. i followd the tutorial of @jordel and i have done everything right. but in the tutorial its version 1.7.413
here is my source code (from jordel)
its my class.vb

Code:

Imports System.Runtime.InteropServices
Imports System.Text

Public Class trainner
#Region "Basic Stuff"
    <DllImport("kernel32.dll")> _
    Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("kernel32.dll")> _
    Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
    End Function
    Private pHandel As IntPtr
    Public Function Process_Handle(ByVal ProcessName As String) As Boolean
        Try
            Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
            If ProcList.Length = 0 Then
                Return False
            Else
                pHandel = ProcList(0).Handle
                Return True
            End If
        Catch ex As Exception
            Console.Beep()
            Console.WriteLine("Process_Handle - " + ex.Message)
            Return False
        End Try
    End Function
    Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Dim Buffer As Byte() = New Byte(Length - 1) {}
        Dim Zero As IntPtr = IntPtr.Zero
        ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        Return Buffer
    End Function
    Private Sub Write(ByVal Address As Integer, ByVal Value As Integer)
        Dim Buffer As Byte() = BitConverter.GetBytes(Value)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
#End Region

    'This is the part you want to edit
#Region "Write Functions (Integer & String)"
    Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer)
        Write(Address, Value)
    End Sub
    Public Sub WriteString(ByVal Address As Integer, ByVal Text As String)
        Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
    Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte())
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
    End Sub
    Public Sub WriteNOP(ByVal Address As Integer)
        Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub


#End Region
#Region "Read Functions (Integer & String)"
    Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer
        Return BitConverter.ToInt32(Read(Address, Length), 0)
    End Function
    Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String
        Return New ASCIIEncoding().GetString(Read(Address, Length))
    End Function
    Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Return Read(Address, Length)
    End Function
#End Region
#Region "Extra"
    Public Function HotKey(ByVal Key As Keys) As Boolean
        Return Convert.ToBoolean(GetKeyState(Key))
    End Function
    Private Check_res As Boolean = True
    Public Function Check_Value(ByVal Value As String) As Integer
        For Each a As Char In Value
            If Char.IsNumber(a, 0) Then
                Check_res = True
            Else
                Check_res = False
                Return 0
                Exit For
            End If
        Next
        Return Convert.ToInt32(Value)
    End Function
#End Region
End Class

and here is my code from "i dont know how its called"

Code:

Imports System.Text
Imports System.Runtime.InteropServices

Public Class Trainer

    Dim MW3 As New my_class
    Dim ProPerks_Offset As Integer = &H1DBAED2
    Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            If MW3.Process_Handle("iw5mp") Then
                MessageBox.Show("MW3 found")
                MW3.WriteInteger(&H1DBA148, TextBox1.Text)
                WriteBytes(ProPerks_Offset, ProPerks_Bytes)
            Else
                MsgBox("MW3 is not found")
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try     
    End Sub

#Region "Basic Stuff"
    <DllImport("kernel32.dll")> _
    Private Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("kernel32.dll")> _
    Private Shared Function WriteProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesWritten As IntPtr) As Int32
    End Function
    <DllImport("user32.dll", CharSet:=CharSet.Auto, ExactSpelling:=True)> _
    Public Shared Function GetKeyState(ByVal virtualKeyCode As Keys) As Short
    End Function
    Private pHandel As IntPtr
    Public Function Process_Handle(ByVal ProcessName As String) As Boolean
        Try
            Dim ProcList As Process() = Process.GetProcessesByName(ProcessName)
            If ProcList.Length = 0 Then
                Return False
            Else
                pHandel = ProcList(0).Handle
                Return True
            End If
        Catch ex As Exception
            Console.Beep()
            Console.WriteLine("Process_Handle - " + ex.Message)
            Return False
        End Try
    End Function
    Private Function Read(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Dim Buffer As Byte() = New Byte(Length - 1) {}
        Dim Zero As IntPtr = IntPtr.Zero
        ReadProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
        Return Buffer
    End Function
    Private Sub Write(ByVal Address As Integer, ByVal Value As Integer)
        Dim Buffer As Byte() = BitConverter.GetBytes(Value)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
#End Region

    'This is the part you want to edit
#Region "Write Functions (Integer & String)"
    Public Sub WriteInteger(ByVal Address As Integer, ByVal Value As Integer)
        Write(Address, Value)
    End Sub
    Public Sub WriteString(ByVal Address As Integer, ByVal Text As String)
        Dim Buffer As Byte() = New ASCIIEncoding().GetBytes(Text)
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub
    Public Sub WriteBytes(ByVal Address As Integer, ByVal Bytes As Byte())
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Bytes, CUInt(Bytes.Length), Zero)
    End Sub
    Public Sub WriteNOP(ByVal Address As Integer)
        Dim Buffer As Byte() = New Byte() {&H90, &H90, &H90, &H90, &H90}
        Dim Zero As IntPtr = IntPtr.Zero
        WriteProcessMemory(pHandel, New IntPtr(Address), Buffer, UInt32.Parse(Buffer.Length), Zero)
    End Sub


#End Region
#Region "Read Functions (Integer & String)"
    Public Function ReadInteger(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As Integer
        Return BitConverter.ToInt32(Read(Address, Length), 0)
    End Function
    Public Function ReadString(ByVal Address As Integer, Optional ByVal Length As Integer = 4) As String
        Return New ASCIIEncoding().GetString(Read(Address, Length))
    End Function
    Public Function ReadBytes(ByVal Address As Integer, ByVal Length As Integer) As Byte()
        Return Read(Address, Length)
    End Function
#End Region
#Region "Extra"
    Public Function HotKey(ByVal Key As Keys) As Boolean
        Return Convert.ToBoolean(GetKeyState(Key))
    End Function
    Private Check_res As Boolean = True
    Public Function Check_Value(ByVal Value As String) As Integer
        For Each a As Char In Value
            If Char.IsNumber(a, 0) Then
                Check_res = True
            Else
                Check_res = False
                Return 0
                Exit For
            End If
        Next
        Return Convert.ToInt32(Value)
    End Function
#End Region

End Class

My question is: how can i bring this hack to 1.4.382 steam or rev28/rev25 from fourdeltaone IW5M?

Take a look here: http://www.mpgh.net/forum/586-call-d...addresses.html
Also, I think you're talking about me no?

Jorndel *

Lolz, srry XD
thanks gonna try out!

Code:

MW3.WriteInteger(&H1DBA148, TextBox1.Text)

Seriously? converting int into string? also no 0x Prefix?

srry but thats imposible for me...
i'm 12 years old not even english....
so is there a way to yust give me the source code of the update so i can include it.
dont care if what thing u use i'm possible to play IW5M 4delta1 r28/r25
steam 1.4.382.
please help XD

---------- Post added at 11:06 AM ---------- Previous post was at 10:58 AM ----------

isent that correct?

its wrong

Dim ProPerks Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}

you need something like this Dim ProPerks Bytes As Byte() = {&h7, &h7, &h7, ......}
use Jorndel's program ( im not remember how it calles )

Update . its too easy . just change the address of feature . you can find all adresses in this thread
http://www.mpgh.net/forum/604-call-d...ss-thread.html

but you can update your adresses with another way . with hex value .

mw3.writeint(&Haddress + &Hhex , any value)
Dim hex as ...........
hex=textbox1.text
textbox1.text="0"

Sry for my bad english .

yea i see.
nice treath i got: replace text tool. is that it i just copy the code: 1DBAED2 for ProPerks
put in the replace tool and get: that code above 777 777 77 7 7 XD
i'm normally tommorow getting iw5mp.exe: 1.9.446 that the code for PROPERKS is: 1DBA148
so the code 1DBA148 do i need to put it where &H1DBAED2 is and then put it in the editor and the whered code do i need to pasted after : Dim ProPerks_Bytes As Byte() = ??

Is that all correct?
Thx for all

Originally Posted by gauthier08

Is that all correct?
Thx for all

It'd be better if you learn the programming language before you try to do this...

Quick note, @[NooB] Mentor, this:

Code:

Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}

IS the same as this:

Code:

Dim ProPerks_Bytes As Byte() = {&H7,&H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, 7}

The &H things explicit that the number is a hexadecimal, but for number < than 10, hexadecimal and decimal are the same thing.

Code:

Hex: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,  A,   B,  C,   D,  E,  F
Dec: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15

You need the &H just for numbers greater then 10

Originally Posted by -InSaNe-

Quick note, @[NooB] Mentor, this:

Code:

Dim ProPerks_Bytes As Byte() = {7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7}

IS the same as this:

Code:

Dim ProPerks_Bytes As Byte() = {&H7,&H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, &H7, 7}

The &H things explicit that the number is a hexadecimal, but for number < than 10, hexadecimal and decimal are the same thing.

Code:

Hex: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9,  A,   B,  C,   D,  E,  F
Dec: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15

You need the &H just for numbers greater then 10

ooops , you right . forgot that

Originally Posted by Jorndel

Take a look here: http://www.mpgh.net/forum/586-call-d...addresses.html
Also, I think you're talking about me no?

Jorndel *

no really i cant update mw3 for now. can you post or give the adresses for steam iw5mp 1.4.382?
or how can i change my game, i mean. if the above is not possible how can i change from iw5mp to iw5m four delta one?
just: If MW3.Process_Handle("iw5mp") Then
MessageBox.Show("MW3 found")

to If MW3.Process_Handle("iw5m") Then
MessageBox.Show("MW3 found") ?
if not i can downgrade my iw5m rev28 to rev25 or something and then i can run my iw5mp and than the hack will work. one thing what is your version if your running rev25?

Originally Posted by gauthier08

Oh thanks, so im getting in 1 hour iw5mp 1.9.446,
Than i can try if it works.
And @Kenshin13. I know, but if i do this correct. I can do it on the next time on my own.

---------- Post added at 10:28 AM ---------- Previous post was at 09:47 AM ----------

no really i cant update mw3 for now. can you post or give the adresses for steam iw5mp 1.4.382?
or how can i change my game, i mean. if the above is not possible how can i change from iw5mp to iw5m four delta one?
just: If MW3.Process_Handle("iw5mp") Then
MessageBox.Show("MW3 found")

to If MW3.Process_Handle("iw5m") Then
MessageBox.Show("MW3 found") ?
if not i can downgrade my iw5m rev28 to rev25 or something and then i can run my iw5mp and than the hack will work. one thing what is your version if your running rev25?

Try:

Code:

If MW3.Process_Handle("iw5m.dat) Then
    MessageBox.Show("IW5M Was Found")

Also, revisions doesn't change the process name. If you run LaunchIW5M.exe then the game process is always iw5m.dat
Only if you run iw5mp.exe directly (You can just rename iw5m.dat to iw5mp.exe) then the process name is iw5mp.exe
Common sense or at least basic knowledge of a PC is vital in programming, even if you do it the first time as you stated, you'll need to learn more for each program you make that is different. Never try to program without at least a basic understanding of the language.

Originally Posted by Kenshin13

Try:

Code:

MW3.ProcessHandle("iw5m.dat)

ok thanks @Kenshin13 !
but what version is rev28?

Originally Posted by gauthier08

ok thanks @Kenshin13 !
but what version is rev28?

The latest version of IW5M...I use revision 25 because some stuff was patched in revision 28...I think...but it's still easier for me as I know how to bypass the cheat system on rev25

Mw3 hack, how to update...

Post a Reply

Similar Threads

Tags for this Thread