Public Class Trainer
Dim Mem As ProcMem = New ProcMem
Dim GameExe As Process() = Process.GetProcessesByName("GameExe") 'Game.exe without .exe
#Region "GameOffsets"
Dim ByteEffect As String = "&H0000000" 'Adresse Here, without First 0 + &H // 01234567 -> &H1234567
Dim StringEffect As String = "&H0000000" 'Adresse Here, without First 0 + &H // 01234567 -> &H1234567
#End Region
#Region "Load"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MsgBox("Made by iLove2Hack4U MemoryClass by Jorndel Help with some Stuff KillerKid", , "Credits")
GameRun.Start()
Hold.Start()
End Sub
#End Region
#Region "GameStatus Tick"
Private Sub GameRun_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GameRun.Tick
If GetProcessId("GameExe") = False Then 'Game.exe without .exe
Label2.Text = "Game is NOT Running"
Label2.ForeColor = Color.Red
Else
Label2.ForeColor = Color.LimeGreen
Label2.Text = "Game is Running"
End If
End Sub
#End Region
#Region "Hold Bytes/String (CheckBox)"
Private Sub Hold_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hold.Tick
If CheckBox1.Checked And GetProcessId("GameExe") = True Then 'Game.exe without .exe
Memory2.Writememory(GameExe(0), ByteEffect, TextBox1.Text, "4") 'Effect/Adress from Offsets / TextBox/Value Source
Else
End If
If CheckBox2.Checked And GetProcessId("GameExe") = True Then 'Game.exe without .exe
Mem.WriteString(StringEffect, TextBox2.Text) 'Effect/Adress from Offsets / TextBox/Value Source
Else
End If
If GetProcessId("GameExe") = False Then 'Game.exe without .exe
CheckBox1.Checked = False
CheckBox2.Checked = False
End If
End Sub
#End Region
#Region "Set Bytes"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GetProcessId("GameExe") = True Then 'Game.exe without .exe
Memory2.Writememory(GameExe(0), ByteEffect, TextBox1.Text, "4") 'Effect/Adress from Offsets / TextBox/Value Source
Else
MsgBox("Game is not running!", , "Warning!")
End If
End Sub
#End Region
#Region "Set String"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If GetProcessId("GameExe") = True Then 'Game.exe without .exe
Mem.GetProcess("GameExe") 'Game.exe without .exe
Mem.WriteString(StringEffect, TextBox2.Text) 'Effect/Adress from Offsets / TextBox/Value Source
Else
MsgBox("Game is not running!", , "Warning!")
End If
End Sub
#End Region
End Class