Cheat Table

[H4ckBlood]

Well i found out the method,
now i only need the addresses,
Could someone send me a working Cheat Table or could someone send/make a tut about how to find them, i could not find a tut on various forums, so im asking!

[lolbie]

omg use cheat engine
see in barracks how many kills you have or something search it
go in a game kill some and search for the new value =.

and you can find it on google

[H4ckBlood]

I knew i needed Cheat Engine, i was just asking the way how to!

[H4ckBlood]

I was searchin for rank so i found 2 addresses,
0012E2AC
0012E224

These are the 2 good addresses, but if i set them in the memory hack.
It wont work, also it wont work when i combine the who, and not when i let them search for those two codes and change, could someone help me out please!

[lolbie]

0012E2AC
in vb
&H012E2AC

[H4ckBlood]

0012E2AC
in vb
&H012E2AC

I use this method to enable the change:

memoryh4x(&H12E2AC, TextBox1.Text, 4) 'Rank Level

When i put in 012E2AC or 0012E2AC it auto change to 12E2AC
What is wrong then?

[lolbie]

nah that's right
wait let me test
uhm you use textbox to fill in things and for what are those addresses ?

[H4ckBlood]

nah that's right
wait let me test
uhm you use textbox to fill in things and for what are those addresses ?

Those are for rank, but i also found for wins and also not working

This is for wins: 01B2B864

[lolbie]

hmm in cheat engine those works
but i think your module doesn't inject into iw4mp.dat
only .exe

you have to put in the module
iw4mp.dat
not only
iw4mp

[H4ckBlood]

double post 0.o

[lolbie]

hahaha it's not yours =.=

Module Injection

#Region "Declarations"

Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

Private string1 As Long
Private string2 As Integer
Private RBuff1 As Long
Private RBuff2 As Single
Private RBuff3 As Integer

#End Region

#Region "Check Process/ReadDll"

Private Function readdll(ByVal modulename As String)
Dim procmodule As ProcessModule
Dim constant1 As Integer
Dim constant2 As Long
Dim constant3 As Process() = Process.GetProcessesByName("iw4mp")
If constant3.Length = 0 Then
Return 0
End If
For Each procmodule In constant3(0).Modules
If modulename = procmodule.ModuleName Then
constant1 = procmodule.BaseAddress
End If
Next
constant2 = constant1
Return constant2
End Function

Public Function IsProcessOpen(ByVal name As String) As Boolean

For Each clsProcess As Process In Process.GetProcesses

If clsProcess.ProcessName.Contains(name) Then


Return True

End If
Next
' Do nothing 
Return False
End Function


#End Region

#Region "Hacks"

'WriteMemory
Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
If iw4mpLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
CloseHandle(processHandle)

Return Nothing
End Function

'WriteFloat
Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
If iw4mpLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
CloseHandle(processHandle)

Return Nothing
End Function

'NOP
Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp")
If iw4mpLookUp.Length = 0 Then
End
End If
Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
WriteProcessMemory(processHandle, Address, value, 1, Nothing)
CloseHandle(processHandle)

Return Nothing
End Function

#End Region

#Region "Functions"

Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
If IsProcessOpen("iw4mp") Then

string1 = readdll("cshell.dll")
string2 = "&H" & Hex(string1 + address)
WriteMemory(string2, value, bytes)
End If
Return Nothing
End Function

Public Function floath4x(ByVal address As String, ByVal value As Long)
If IsProcessOpen("iw4mp") Then

string1 = readdll("cshell.dll")
string2 = "&H" & Hex(string1 + address)
WriteFloat(string2, value)
End If
Return Nothing
End Function

Public Function noph4x(ByVal address As String, ByVal value As Long)
If IsProcessOpen("iw4mp.dat") Then <<<<<<<<<<<<<<<<<<<<<<<<
string1 = readdll("cshell.dll")
string2 = "&H" & Hex(string1 + address)
NOP(string2, value)


End If
Return Nothing
End Function

#End Region
End Module

and don't leech =.=
it's not urs
do this by everything

If IsProcessOpen("iw4mp.dat") Then <<<<<<<<<<<<<<<<<<<<<<<<

[H4ckBlood]

hahaha it's not yours =.=

Never said it was mine only that im using it -_-"
Anyway i already changed it to that, but still not working 0.o

[lolbie]

u have to change them all =.=
u have any knowledge about it?

[H4ckBlood]

u have to change them all =.=
u have any knowledge about it?

Yeah i have knowledge, -_-" ,
I was Cookie™ on other forums, made many Injectors, own Intern OS system etc .and i already changed everything:

Module Injection

#Region "Declarations"

        Private Declare Function OpenProcess Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
        Private Declare Function WriteProcessMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function WriteFloatMemory Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Single, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function ReadFloat Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByRef buffer As Single, ByVal size As Int32, ByRef lpNumberOfBytesRead As Int32) As Boolean
        Private Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
        Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Integer) As Integer

        Private string1 As Long
        Private string2 As Integer
        Private RBuff1 As Long
        Private RBuff2 As Single
        Private RBuff3 As Integer

#End Region

#Region "Check Process/ReadDll"

        Private Function readdll(ByVal modulename As String)
            Dim procmodule As ProcessModule
            Dim constant1 As Integer
            Dim constant2 As Long
        Dim constant3 As Process() = Process.GetProcessesByName("iw4mp.dat")
            If constant3.Length = 0 Then
                Return 0
            End If
            For Each procmodule In constant3(0).Modules
                If modulename = procmodule.ModuleName Then
                    constant1 = procmodule.BaseAddress
                End If
            Next
            constant2 = constant1
            Return constant2
        End Function

        Public Function IsProcessOpen(ByVal name As String) As Boolean

            For Each clsProcess As Process In Process.GetProcesses

                If clsProcess.ProcessName.Contains(name) Then


                    Return True

                End If
            Next
            ' Do nothing 
            Return False
        End Function


#End Region

#Region "Hacks"

        'WriteMemory
        Private Function WriteMemory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
        Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

        'WriteFloat
        Private Function WriteFloat(ByVal Address As Integer, ByVal Value As Single)
        Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteFloatMemory(processHandle, Address, Value, 4, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

        'NOP
        Private Function NOP(ByVal Address As Integer, ByVal value As Integer)
        Dim iw4mpLookUp As Process() = Process.GetProcessesByName("iw4mp.dat")
            If iw4mpLookUp.Length = 0 Then
                End
            End If
            Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, iw4mpLookUp(0).Id)
            WriteProcessMemory(processHandle, Address, value, 1, Nothing)
            CloseHandle(processHandle)

            Return Nothing
        End Function

#End Region

#Region "Functions"

        Public Function memoryh4x(ByVal address As String, ByVal value As Long, ByVal bytes As Byte)
        If IsProcessOpen("iw4mp.dat") Then

            string1 = readdll("cshell.dll")
            string2 = "&H" & Hex(string1 + address)
            WriteMemory(string2, value, bytes)
        End If
            Return Nothing
        End Function

        Public Function floath4x(ByVal address As String, ByVal value As Long)
        If IsProcessOpen("iw4mp.dat") Then

            string1 = readdll("cshell.dll")
            string2 = "&H" & Hex(string1 + address)
            WriteFloat(string2, value)
        End If
            Return Nothing
        End Function

        Public Function noph4x(ByVal address As String, ByVal value As Long)
        If IsProcessOpen("iw4mp.dat") Then
            string1 = readdll("cshell.dll")
            string2 = "&H" & Hex(string1 + address)
            NOP(string2, value)


        End If
            Return Nothing
        End Function

#End Region
    End Module

[♪~ ᕕ(ᐛ)ᕗ]

hmm in cheat engine those works
but i think your module doesn't inject into iw4mp.dat
only .exe

you have to put in the module
iw4mp.dat
not only
iw4mp

nope....

Dim p() As Process = Process.GetProcessByName("iw4mp")

Public Sub Write()
       ........blalbalblablabllabla
       .... -> Dim id As Integer = p(1).Id
End Sub

Only what u have to change is the current index of the process.... Iw4mp.exe => 0
Iw4mp.dat => 1