Trainer Maker V.1.0

Should you add ReadWriteMemory Class

vb.net

Code:

    Private Sub Name_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Name.CheckedChanged
        If Name.Checked = True Then
' Address &H222 Value &H2220
            ReadWritingMemory.WriteLong("S4Client.exe", &H222, &H2220, 4)
        Else
            ReadWritingMemory.WriteLong("S4Client.exe", &H222, &H2220, 4)
        End If
    End Sub

Code:

      private void Name_CheckedChanged(object sender, System.EventArgs e) {
        if ((Name.Checked == true)) {
            //  Address &H222 Value &H2220
            ReadWritingMemory.WriteLong("S4Client.exe", 546, 8736, 4);
        }
        else {
            ReadWritingMemory.WriteLong("S4Client.exe", 546, 8736, 4);
        }
    }

ReadWritingMemory Class vb.net

Spoiler

Code:

Imports System.Runtime.InteropServices

Public Class ReadWritingMemory
    <Flags()> _
    Public Enum ProcessAccessType
        PROCESS_TERMINATE = (&H1)
        PROCESS_CREATE_THREAD = (&H2)
        PROCESS_SET_SESSIONID = (&H4)
        PROCESS_VM_OPERATION = (&H8)
        PROCESS_VM_READ = (&H10)
        PROCESS_VM_WRITE = (&H20)
        PROCESS_DUP_HANDLE = (&H40)
        PROCESS_CREATE_PROCESS = (&H80)
        PROCESS_SET_QUOTA = (&H100)
        PROCESS_SET_INFORMATION = (&H200)
        PROCESS_QUERY_INFORMATION = (&H400)
    End Enum
    <DllImport("kernel32.dll")> _
    Public Shared Function OpenProcess(ByVal dwDesiredAccess As UInt32, ByVal bInheritHandle As Int32, ByVal dwProcessId As UInt32) As IntPtr
    End Function
    <DllImport("kernel32.dll")> _
    Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Int32
    End Function
    <DllImport("kernel32.dll")> _
    Public Shared Function ReadProcessMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, <[In](), Out()> ByVal buffer As Byte(), ByVal size As UInt32, ByRef lpNumberOfBytesRead As IntPtr) As Int32
    End Function
    <DllImport("kernel32.dll")> _
    Public 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


    Public Shared Sub WriteLong(ByVal ProcessName As String, ByVal Address As Integer, ByVal Value As Long, ByVal nsize As Integer)
        If ProcessName.EndsWith(".exe") Then
            ProcessName = ProcessName.Replace(".exe", "")
        End If
        Dim processesByName() As Process = Process.GetProcessesByName(ProcessName)
        If (processesByName.Length = 0) Then
            MessageBox.Show((ProcessName + " n'est pas ouvert !"))
        Else
            Dim ptr As IntPtr = CType(OpenProcess(127231, 0, processesByName(0).Id), IntPtr)
            If (ptr = IntPtr.Zero) Then
                MessageBox.Show(("Ouverture rat\x00e9e de : " _
                                + (ProcessName + "!")))
            Else
                Dim lpBaseAddress As Integer = Address
                Dim lpBuffer As Long = Value
                Dim lpNumberOfBytesWritten As Integer = 0
                WriteProcessMemory3(CType(ptr, Integer), lpBaseAddress, lpBuffer, nsize, lpNumberOfBytesWritten)
            End If
        End If
    End Sub

    Private Declare Function WriteProcessMemory1 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 WriteProcessMemory2 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 Single

    Private Declare Function WriteProcessMemory3 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Long, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Long

    Private Const PROCESS_ALL_ACCESS As Integer = 127231
End Class

ReadWritingMemory Class C#

Spoiler

Code:

using System.Runtime.InteropServices;
public class ReadWritingMemory {
    
    [Flags()]
    public enum ProcessAccessType {
        
        PROCESS_TERMINATE = 1,
        
        PROCESS_CREATE_THREAD = 2,
        
        PROCESS_SET_SESSIONID = 4,
        
        PROCESS_VM_OPERATION = 8,
        
        PROCESS_VM_READ = 16,
        
        PROCESS_VM_WRITE = 32,
        
        PROCESS_DUP_HANDLE = 64,
        
        PROCESS_CREATE_PROCESS = 128,
        
        PROCESS_SET_QUOTA = 256,
        
        PROCESS_SET_INFORMATION = 512,
        
        PROCESS_QUERY_INFORMATION = 1024,
    }
    
    [DllImport("kernel32.dll")]
    public static IntPtr OpenProcess(UInt32 dwDesiredAccess, Int32 bInheritHandle, UInt32 dwProcessId) {
    }
    
    [DllImport("kernel32.dll")]
    public static Int32 CloseHandle(IntPtr hObject) {
    }
    
    [DllImport("kernel32.dll")]
    public static Int32 ReadProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, void <, void In, void Out, void Greater, byte[] buffer, UInt32 size, ref IntPtr lpNumberOfBytesRead) {
    }
    
    [DllImport("kernel32.dll")]
    public static Int32 WriteProcessMemory(IntPtr hProcess, IntPtr lpBaseAddress, void <, void In, void Out, void Greater, byte[] buffer, UInt32 size, ref IntPtr lpNumberOfBytesWritten) {
    }
    
    public static void WriteLong(string ProcessName, int Address, long Value, int nsize) {
        if (ProcessName.EndsWith(".exe")) {
            ProcessName = ProcessName.Replace(".exe", "");
        }
        Process[] processesByName = Process.GetProcessesByName(ProcessName);
        if ((processesByName.Length == 0)) {
            MessageBox.Show((ProcessName + " n\'est pas ouvert !"));
        }
        else {
            IntPtr ptr = ((IntPtr)(OpenProcess(127231, 0, processesByName[0].Id)));
            if ((ptr == IntPtr.Zero)) {
                MessageBox.Show(("Ouverture rat\\x00e9e de : " 
                                + (ProcessName + "!")));
            }
            else {
                int lpBaseAddress = Address;
                long lpBuffer = Value;
                int lpNumberOfBytesWritten = 0;
                WriteProcessMemory3(((int)(ptr)), lpBaseAddress, lpBuffer, nsize, lpNumberOfBytesWritten);
            }
        }
    }
    
    [DllImport("kernel32.dll", EntryPoint="WriteProcessMemory")]
    private static extern int WriteProcessMemory1(int hProcess, int lpBaseAddress, ref int lpBuffer, int nSize, ref int lpNumberOfBytesWritten);
    
    [DllImport("kernel32.dll", EntryPoint="WriteProcessMemory")]
    private static extern float WriteProcessMemory2(int hProcess, int lpBaseAddress, ref float lpBuffer, int nSize, ref int lpNumberOfBytesWritten);
    
    [DllImport("kernel32.dll", EntryPoint="WriteProcessMemory")]
    private static extern long WriteProcessMemory3(int hProcess, int lpBaseAddress, ref long lpBuffer, int nSize, ref int lpNumberOfBytesWritten);
    
    private const int PROCESS_ALL_ACCESS = 127231;
}

Test Work :)