' ================================================== ============================
' MAFIA III: DEFINITIVE EDITION - ADVANCED VB.NET TRAINER
' Target: Mafia3DefinitiveEdition.exe (x64)
' ================================================== ============================
Imports System
Imports System.Diagnostics
Imports System.Drawing
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.Windows.Forms
Public Class MainForm
Inherits Form
' UI Controls
Private lblStatus As Label
Private grpCoreCheats As GroupBox
Private chkGodMode As CheckBox
Private chkInfiniteAmmo As CheckBox
Private chkNoReload As CheckBox
Private chkInfiniteAdrenaline As CheckBox
Private chkInfiniteThrowables As CheckBox
Private chkFreeShop As CheckBox
Private chkNoRecoil As CheckBox
Private chkNoSpread As CheckBox
Private chkRapidFire As CheckBox
Private chkSlowMotion As CheckBox
Private chkNoDetection As CheckBox
Private chkEspIntel As CheckBox
Private chkRaceTimer As CheckBox
Private chkFirstPlace As CheckBox
Private chkCrosshairFix As CheckBox
Private grpPointers As GroupBox
Private txtMoney As TextBox
Private btnWriteMoney As Button
Private txtWallet As TextBox
Private txtVault As TextBox
Private btnWriteCash As Button
Private timerRefresh As Timer
Public Sub New()
Me.Text = "Mafia III: Definitive Edition Trainer"
Me.Width = 650
Me.Height = 550
Me.StartPosition = FormStartPosition.CenterScreen
Me.FormBorderStyle = FormBorderStyle.FixedDialog
Me.MaximizeBox = False
' Initialize UI Components
lblStatus = New Label() With {.Text = "Status: Searching for Mafia3DefinitiveEdition.exe...", .Top = 15, .Left = 15, .Width = 600, .ForeColor = Color.DarkRed, .Font = New Font("Arial", 10, FontStyle.Bold)}
grpCoreCheats = New GroupBox() With {.Text = "Core Cheats & Patches", .Top = 45, .Left = 15, .Width = 300, .Height = 445}
chkGodMode = New CheckBox() With {.Text = "God Mode / No Damage", .Top = 25, .Left = 15, .Width = 260}
chkInfiniteAmmo = New CheckBox() With {.Text = "Infinite Ammo", .Top = 50, .Left = 15, .Width = 260}
chkNoReload = New CheckBox() With {.Text = "No Reload", .Top = 75, .Left = 15, .Width = 260}
chkInfiniteAdrenaline = New CheckBox() With {.Text = "Infinite Adrenaline", .Top = 100, .Left = 15, .Width = 260}
chkInfiniteThrowables = New CheckBox() With {.Text = "Infinite Throwables (+7)", .Top = 125, .Left = 15, .Width = 260}
chkFreeShop = New CheckBox() With {.Text = "Free Shop Items", .Top = 150, .Left = 15, .Width = 260}
chkNoRecoil = New CheckBox() With {.Text = "No Recoil", .Top = 175, .Left = 15, .Width = 260}
chkNoSpread = New CheckBox() With {.Text = "No Spread", .Top = 200, .Left = 15, .Width = 260}
chkRapidFire = New CheckBox() With {.Text = "Rapid Fire", .Top = 225, .Left = 15, .Width = 260}
chkSlowMotion = New CheckBox() With {.Text = "Infinite Slow Motion", .Top = 250, .Left = 15, .Width = 260}
chkNoDetection = New CheckBox() With {.Text = "No Detection / Invisibility", .Top = 275, .Left = 15, .Width = 260}
chkEspIntel = New CheckBox() With {.Text = "ESP / Intel Always On", .Top = 300, .Left = 15, .Width = 260}
chkRaceTimer = New CheckBox() With {.Text = "Lock Race Timer", .Top = 325, .Left = 15, .Width = 260}
chkFirstPlace = New CheckBox() With {.Text = "Always Finish 1st Place", .Top = 350, .Left = 15, .Width = 260}
chkCrosshairFix = New CheckBox() With {.Text = "Crosshair Fix / Update", .Top = 375, .Left = 15, .Width = 260}
grpCoreCheats.Controls.AddRange({chkGodMode, chkInfiniteAmmo, chkNoReload, chkInfiniteAdrenaline, chkInfiniteThrowables, chkFreeShop, chkNoRecoil, chkNoSpread, chkRapidFire, chkSlowMotion, chkNoDetection, chkEspIntel, chkRaceTimer, chkFirstPlace, chkCrosshairFix})
grpPointers = New GroupBox() With {.Text = "Memory & Value Edits", .Top = 45, .Left = 330, .Width = 290, .Height = 445}
Dim lblMoneyInfo = New Label() With {.Text = "Set Money Value:", .Top = 25, .Left = 15, .Width = 260}
txtMoney = New TextBox() With {.Text = "999999", .Top = 45, .Left = 15, .Width = 160}
btnWriteMoney = New Button() With {.Text = "Write Money", .Top = 44, .Left = 180, .Width = 95}
Dim lblCashInfo = New Label() With {.Text = "Set Wallet / Vault Cash:", .Top = 85, .Left = 15, .Width = 260}
txtWallet = New TextBox() With {.Text = "500000", .Top = 105, .Left = 15, .Width = 160}
txtVault = New TextBox() With {.Text = "1000000", .Top = 135, .Left = 15, .Width = 160}
btnWriteCash = New Button() With {.Text = "Write Cash", .Top = 119, .Left = 180, .Width = 95, .Height = 30}
grpPointers.Controls.AddRange({lblMoneyInfo, txtMoney, btnWriteMoney, lblCashInfo, txtWallet, txtVault, btnWriteCash})
Me.Controls.AddRange({lblStatus, grpCoreCheats, grpPointers})
' Event Handlers
AddHandler chkGodMode.CheckedChanged, AddressOf ToggleGodMode
AddHandler chkNoReload.CheckedChanged, AddressOf ToggleNoReload
AddHandler chkNoRecoil.CheckedChanged, AddressOf ToggleNoRecoil
AddHandler chkRapidFire.CheckedChanged, AddressOf ToggleRapidFire
AddHandler chkSlowMotion.CheckedChanged, AddressOf ToggleSlowMotion
AddHandler chkNoDetection.CheckedChanged, AddressOf ToggleNoDetection
AddHandler chkRaceTimer.CheckedChanged, AddressOf ToggleRaceTimer
AddHandler chkFirstPlace.CheckedChanged, AddressOf ToggleFirstPlace
AddHandler chkCrosshairFix.CheckedChanged, AddressOf ToggleCrosshairFix
AddHandler chkEspIntel.CheckedChanged, AddressOf ToggleEspIntel
AddHandler btnWriteMoney.Click, AddressOf WriteMoney_Click
AddHandler btnWriteCash.Click, AddressOf WriteCash_Click
' Process Monitoring Timer
timerRefresh = New Timer() With {.Interval = 3000}
AddHandler timerRefresh.Tick, AddressOf CheckProcessStatus
timerRefre******art()
End Sub
Private alreadyStarted As Boolean = False
Private Sub StartGame()
Dim exePath As String = "C:\Program Files (x86)\GOG Galaxy\Games\Mafia III Definitive Edition\Mafia3DefinitiveEdition.exe"
If IO.File.Exists(exePath) Then
Dim startInfo As New ProcessStartInfo()
startInfo.FileName = exePath
startInfo.WorkingDirectory = IO.Path.GetDirectoryName(exePath)
Process.Start(startInfo)
alreadyStarted = True ' Markieren, dass wir es gestartet haben
Else
MessageBox.Show("Die Spieldatei wurde nicht gefunden.")
End If
End Sub
Private Sub CheckProcessStatus(sender As Object, e As EventArgs)
Dim p() As Process = Process.GetProcessesByName("Mafia3DefinitiveEditio n")
If p.Length > 0 Then
lblStatus.Text = "Status: Connected (PID: " & p(0).Id & ")"
lblStatus.ForeColor = Color.DarkGreen
Else
lblStatus.Text = "Status: Game process not found! Start Mafia III."
lblStatus.ForeColor = Color.DarkRed
If Not alreadyStarted Then
StartGame()
End If
End If
End Sub
Private Sub ToggleGodMode(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkGodMode.Checked, New Byte() {&HC3, &H90, &H90, &H90, &H90}, New Byte() {&H48, &H8B, &HC4, &H55, &H56})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H346B420, patchBytes)
End Sub
Private Sub ToggleNoReload(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkNoReload.Checked, New Byte() {&HC6, &H40, &H18, &H10, &H90, &H90}, New Byte() {&H8B, &H48, &H18, &H89, &H4B, &H4})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H33A21BC, patchBytes)
End Sub
Private Sub ToggleNoRecoil(sender As Object, e As EventArgs)
Dim patchLateral As Byte() = If(chkNoRecoil.Checked, New Byte() {&H90, &H90, &H90, &H90, &H90, &H90}, New Byte() {&HF3, &H41, &HF, &H11, &H45, &HC})
Dim patchLongitude As Byte() = If(chkNoRecoil.Checked, New Byte() {&H90, &H90, &H90, &H90, &H90, &H90}, New Byte() {&HF3, &H41, &HF, &H11, &H45, &H10})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H34337DB, patchLateral)
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H3433801, patchLongitude)
End Sub
Private Sub ToggleRapidFire(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkRapidFire.Checked, New Byte() {&H90, &H90, &H90, &H90, &H90, &H90, &H90, &H90, &H90}, New Byte() {&HF3, &H41, &HF, &H11, &H85, &HFC, &H0, &H0, &H0})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H3433850, patchBytes)
End Sub
Private Sub ToggleSlowMotion(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkSlowMotion.Checked, New Byte() {&HC3, &H90, &H90, &H90, &H90}, New Byte() {&H48, &H8B, &HC4, &H55, &H57})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H3488C80, patchBytes)
End Sub
Private Sub ToggleNoDetection(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkNoDetection.Checked, New Byte() {&HC3, &H90, &H90, &H90, &H90}, New Byte() {&H40, &HF3, &HF, &H11, &H71})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H7AB420, patchBytes)
End Sub
Private Sub ToggleEspIntel(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkEspIntel.Checked,
New Byte() {&H90, &H90, &H90, &H90, &H90},
New Byte() {&H40, &H53, &H48, &H83, &HEE, &HC})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H7AB500, patchBytes)
End Sub
Private Sub ToggleRaceTimer(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkRaceTimer.Checked, New Byte() {&H90, &H90, &H90, &H90, &H90, &H90}, New Byte() {&HF3, &H41, &HF, &H58, &H48, &H0})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H2ECBB17, patchBytes)
End Sub
Private Sub ToggleFirstPlace(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkFirstPlace.Checked, New Byte() {&H41, &HC7, &H46, &H14, &H1, &H0, &H0, &H0}, New Byte() {&H41, &H89, &H76, &H14, &HFF, &HC6, &H90, &H90})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H2ECBB1A, patchBytes)
End Sub
Private Sub ToggleCrosshairFix(sender As Object, e As EventArgs)
Dim patchBytes As Byte() = If(chkCrosshairFix.Checked, New Byte() {&H90, &H90, &H90, &H90, &H90, &H90, &H90, &H90}, New Byte() {&HF3, &HF, &H11, &H8B, &H4, &H1, &H0, &H0})
MemoryTools.PatchKnownAddress("Mafia3DefinitiveEdi tion.exe", &H3439100, patchBytes)
End Sub
Private Sub WriteMoney_Click(sender As Object, e As EventArgs)
Dim val As Integer
If Integer.TryParse(txtMoney.Text, val) Then
MemoryTools.WritePointerValue("Mafia3DefinitiveEdi tion.exe", &H2127523, 0, val)
MessageBox.Show("Money updated!", "Trainer", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
Private Sub WriteCash_Click(sender As Object, e As EventArgs)
Dim walletVal, vaultVal As Integer
If Integer.TryParse(txtWallet.Text, walletVal) AndAlso Integer.TryParse(txtVault.Text, vaultVal) Then
MemoryTools.WritePointerValue("Mafia3DefinitiveEdi tion.exe", &H21A0B5C, 0, walletVal)
MemoryTools.WritePointerValue("Mafia3DefinitiveEdi tion.exe", &H21A0B5C, 4, vaultVal)
MessageBox.Show("Wallet & Vault updated!", "Trainer", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub
End Class
Public NotInheritable Class MemoryTools
Public Const PROCESS_VM_WRITE As UInteger = &H20
Public Const PROCESS_VM_OPERATION As UInteger = &H8
Public Const PROCESS_VM_READ As UInteger = &H10
Public Const PROCESS_ALL_ACCESS As UInteger = PROCESS_VM_WRITE Or PROCESS_VM_OPERATION Or PROCESS_VM_READ
<DllImport("kernel32.dll", SetLastError:=True)>
Public Shared Function OpenProcess(dwDesiredAccess As UInteger, bInheritHandle As Boolean, dwProcessId As Integer) As IntPtr
End Function
<DllImport("kernel32.dll", SetLastError:=True)>
Public Shared Function WriteProcessMemory(hProcess As IntPtr, lpBaseAddress As IntPtr, lpBuffer As Byte(), nSize As UInteger, ByRef lpNumberOfBytesWritten As UInteger) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)>
Public Shared Function VirtualProtectEx(hProcess As IntPtr, lpAddress As IntPtr, dwSize As UInteger, flNewProtect As UInteger, ByRef lpflOldProtect As UInteger) As Boolean
End Function
<DllImport("kernel32.dll", SetLastError:=True)>
Public Shared Function CloseHandle(hObject As IntPtr) As Boolean
End Function
Public Shared Sub PatchKnownAddress(processName As String, baseOffset As ULong, patchBytes As Byte())
Dim p() As Process = Process.GetProcessesByName(PathWithoutExtension(pr ocessName))
If p.Length = 0 Then Return
Dim proc As Process = p(0)
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, proc.Id)
If hProcess = IntPtr.Zero Then Return
Dim modBase As IntPtr = IntPtr.Zero
For Each m As ProcessModule In proc.Modules
If m.ModuleName.Equals(processName, StringComparison.OrdinalIgnoreCase) Then
modBase = m.BaseAddress
Exit For
End If
Next
If modBase <> IntPtr.Zero Then
Dim targetAddress As IntPtr = IntPtr.Add(modBase, CInt(baseOffset))
Dim oldProtect As UInteger
If VirtualProtectEx(hProcess, targetAddress, CUInt(patchBytes.Length), &H40, oldProtect) Then
Dim bytesWritten As UInteger = 0
WriteProcessMemory(hProcess, targetAddress, patchBytes, CUInt(patchBytes.Length), bytesWritten)
VirtualProtectEx(hProcess, targetAddress, CUInt(patchBytes.Length), oldProtect, oldProtect)
End If
End If
CloseHandle(hProcess)
End Sub
Public Shared Sub WritePointerValue(processName As String, baseOffset As ULong, memoryOffset As Integer, value As Integer)
Dim p() As Process = Process.GetProcessesByName(PathWithoutExtension(pr ocessName))
If p.Length = 0 Then Return
Dim proc As Process = p(0)
Dim hProcess As IntPtr = OpenProcess(PROCESS_ALL_ACCESS, False, proc.Id)
If hProcess = IntPtr.Zero Then Return
Dim modBase As IntPtr = IntPtr.Zero
For Each m As ProcessModule In proc.Modules
If m.ModuleName.Equals(processName, StringComparison.OrdinalIgnoreCase) Then
modBase = m.BaseAddress
Exit For
End If
Next
If modBase <> IntPtr.Zero Then
Dim targetAddress As IntPtr = IntPtr.Add(modBase, CInt(baseOffset + CUInt(memoryOffset)))
Dim buffer As Byte() = BitConverter.GetBytes(value)
Dim bytesWritten As UInteger = 0
WriteProcessMemory(hProcess, targetAddress, buffer, CUInt(buffer.Length), bytesWritten)
End If
CloseHandle(hProcess)
End Sub
Private Shared Function PathWithoutExtension(fileName As String) As String
Return If(fileName.EndsWith(".exe", StringComparison.OrdinalIgnoreCase), fileName.Substring(0, fileName.Length - 4), fileName)
End Function
End Class
