Imports System Imports System.ComponentModel Imports System.Diagnostics Imports System.Drawing Imports System.IO Imports System.Runtime.CompilerServices Imports System.Runtime.InteropServices Imports System.Security.Cryptography Imports System.Text Imports System.Windows.Forms Imports Microsoft.VisualBasic.CompilerServices Namespace trainer_template ' Token: 0x0200001E RID: 30 Public Class Form1 Inherits Form ' Token: 0x06000145 RID: 325 RVA: 0x00008EE4 File Offset: 0x000070E4 Public Sub New() AddHandler MyBase.Load, AddressOf Me.Form1_Load Me.Insert = False Me.Numpad1 = False Me.Numpad2 = False Me.Numpad3 = False Me.Numpad4 = False Me.Numpad5 = False Me.Numpad6 = False Me.Numpad7 = False Me.Numpad8 = False Me.health = False Me.blinkdis = False Me.ammo = False Me.reload = False Me.health_bytes = New Byte() { 199, 129, 172, 0, 0, 0, 0, 0, 0, 0, 15, 182, 129, 172, 0, 0, 0, 233, 1, 129, 109, 254 } Me.health_org_bytes = New Byte() { 15, 182, 129, 172, 0, 0, 0 } Me.offset_health = 7635216L Me.blinkdis_bytes = New Byte() { 186, Byte.MaxValue, 201, 154, 59, 137, 86, 4, 91, 133, 210, 233, 50, 245, 183, 254 } Me.blinkdis_org_bytes = New Byte() { 137, 86, 4, 91, 133, 210 } Me.offset_blinkdis = 8451388L Me.ammo_bytes = New Byte() { 199, 4, 240, 231, 3, 0, 0, 139, 20, 240, 49, 201, 233, 134, 78, 203, 254 } Me.ammo_org_bytes = New Byte() { 139, 20, 240, 51, 201 } Me.offset_ammo = 8408722L Me.reload_bytes = New Byte() { 199, 129, 36, 1, 0, 0, 3, 0, 0, 0, 139, 129, 36, 1, 0, 0, 233, 193, 195, 219, 224 } Me.reload_org_bytes = New Byte() { 139, 129, 36, 1, 0, 0 } Me.offset_reload = 8504272L Me.InitializeComponent() End Sub ' Token: 0x06000146 RID: 326 Private Declare Ansi Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (key As Integer) As Integer ' Token: 0x06000147 RID: 327 RVA: 0x0000905C File Offset: 0x0000725C Private Sub Form1_Load(sender As Object, e As EventArgs) Me.numpad1_toggle.Options = FlatToggle._Options.Style3 Me.numpad2_toggle.Options = FlatToggle._Options.Style3 Me.numpad3_toggle.Options = FlatToggle._Options.Style3 Me.numpad4_toggle.Options = FlatToggle._Options.Style3 Me.numpad8_toggle.Options = FlatToggle._Options.Style3 Me.numpad5_toggle.Options = FlatToggle._Options.Style3 Me.numpad6_toggle.Options = FlatToggle._Options.Style3 Me.numpad7_toggle.Options = FlatToggle._Options.Style3 Me.game_checker.Start() Me.game_hash_txt.Text = "5CC5686E596F7B49581C6221975BAB8" Me.your_hash_txt.Text = "" Me.english_lang.Enabled = False Me.md5_alter_box.Visible = True Dim processesByName As Process() = Process.GetProcessesByName("Dishonored") processesByName = Process.GetProcessesByName("Dishonored") Dim flag As Boolean = processesByName.Length > 0 If flag Then Me.getGameID_lbl.Text = Conversions.ToString(Operators.ConcatenateObject("Game ID:", TrainerModul2_3.GetProcessId("Dishonored"))) Me.game_status_bar.Text = "Game Status: Game Found." Me.game_status_bar.RectColor = Color.Green Me.game_status_bar.UseWaitCursor = False Me.BaseAddress_EXE = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) TrainerModul2_3.GetProcessId("Dishonored") Me.game_checker.[Stop]() Else Me.getGameID_lbl.Text = "Game ID: 000000" Me.game_status_bar.Text = "Game Status: Game not Found. Run Dishonored.exe" Me.game_status_bar.RectColor = Color.Red Me.game_status_bar.UseWaitCursor = True Me.trainer_sts_lbl.Text = "Trainer is OFF" Me.trainer_sts_lbl.ForeColor = Color.Red Me.numpad1_toggle.Enabled = False Me.numpad2_toggle.Enabled = False Me.numpad3_toggle.Enabled = False Me.numpad4_toggle.Enabled = False Me.numpad8_toggle.Enabled = False Me.numpad5_toggle.Enabled = False Me.numpad6_toggle.Enabled = False Me.numpad7_toggle.Enabled = False Me.Hotkey_timer.[Stop]() End If End Sub ' Token: 0x06000148 RID: 328 RVA: 0x000092A0 File Offset: 0x000074A0 Private Sub cheats_timer_Tick(sender As Object, e As EventArgs) ' The following expression was wrapped in a checked-expression TrainerModul2_3.Write_Pointer_4Bytes_32Bit(99, Me.BaseAddress_EXE + 17116648, New Integer() { 836 }) Dim checked As Boolean = Me.numpad1_toggle.Checked If checked Then Me.numpad1_toggle.Checked = True Me.numpad1_toggle.Refresh() Else Me.numpad1_toggle.Checked = False Me.health_timer.[Stop]() Me.numpad1_toggle.Refresh() End If End Sub ' Token: 0x06000149 RID: 329 RVA: 0x00009324 File Offset: 0x00007524 Private Sub mana_timer_Tick(sender As Object, e As EventArgs) ' The following expression was wrapped in a checked-expression TrainerModul2_3.Write_Pointer_4Bytes_32Bit(999, Me.BaseAddress_EXE + 17116648, New Integer() { 2656 }) Dim checked As Boolean = Me.numpad2_toggle.Checked If checked Then Me.numpad2_toggle.Checked = True Me.numpad2_toggle.Refresh() Else Me.numpad2_toggle.Checked = False Me.mana_timer.[Stop]() Me.numpad2_toggle.Refresh() End If End Sub ' Token: 0x0600014A RID: 330 RVA: 0x000093AC File Offset: 0x000075AC Private Sub oxygen_timer_Tick(sender As Object, e As EventArgs) ' The following expression was wrapped in a checked-expression TrainerModul2_3.Write_Pointer_float_32Bit(Conversions.ToInteger(TrainerModul2_3.Float2Long(999F)), Me.BaseAddress_EXE + 17116648, New Integer() { 2744 }) Dim checked As Boolean = Me.numpad3_toggle.Checked If checked Then Me.numpad3_toggle.Checked = True Me.numpad3_toggle.Refresh() Else Me.numpad3_toggle.Checked = False Me.oxygen_timer.[Stop]() Me.numpad3_toggle.Refresh() End If End Sub ' Token: 0x0600014B RID: 331 RVA: 0x0000943C File Offset: 0x0000763C Private Sub FlatToggle1_CheckedChanged(sender As Object) Dim checked As Boolean = Me.numpad1_toggle.Checked If checked Then Me.health_timer.Start() Else Me.health_timer.[Stop]() End If End Sub ' Token: 0x0600014C RID: 332 RVA: 0x00009478 File Offset: 0x00007678 Private Sub mana_btn_CheckedChanged(sender As Object) Dim checked As Boolean = Me.numpad2_toggle.Checked If checked Then Me.mana_timer.Start() Else Me.mana_timer.[Stop]() End If End Sub ' Token: 0x0600014D RID: 333 RVA: 0x000094B4 File Offset: 0x000076B4 Private Sub oxygen_btn_CheckedChanged(sender As Object) Dim checked As Boolean = Me.numpad3_toggle.Checked If checked Then Me.oxygen_timer.Start() Else Me.oxygen_timer.[Stop]() End If End Sub ' Token: 0x0600014E RID: 334 RVA: 0x000094F0 File Offset: 0x000076F0 Private Sub speed_timer_Tick(sender As Object, e As EventArgs) ' The following expression was wrapped in a checked-statement TrainerModul2_3.Write_Pointer_4Bytes_32Bit(1091567616, Me.BaseAddress_EXE + 17116648, New Integer() { 1420 }) Dim checked As Boolean = Me.numpad8_toggle.Checked If checked Then Me.numpad8_toggle.Checked = True Me.numpad8_toggle.Refresh() Else TrainerModul2_3.Write_Pointer_4Bytes_32Bit(1063675494, Me.BaseAddress_EXE + 17116648, New Integer() { 1420 }) Me.numpad8_toggle.Checked = False Me.speed_timer.[Stop]() Me.numpad8_toggle.Refresh() End If End Sub ' Token: 0x0600014F RID: 335 RVA: 0x0000959A File Offset: 0x0000779A Private Sub speed_btn_CheckedChanged(sender As Object) Me.speed_timer.Start() End Sub ' Token: 0x06000150 RID: 336 RVA: 0x000095AC File Offset: 0x000077AC Private Sub stealth_btn_CheckedChanged(sender As Object) Dim flag As Boolean = Me.health If flag Then ' The following expression was wrapped in a unchecked-expression TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes) Me.health = False Else TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc, Me.health_bytes) Dim num As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_health + 5L, Me.alloc + CLng(Me.health_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + CLng(Me.health_bytes.Length) - 4L, CLng(num)) TrainerModul2_3.JmpToCave(Me.alloc, CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes.Length - 5) Me.health = True End If End Sub ' Token: 0x06000151 RID: 337 RVA: 0x000096B0 File Offset: 0x000078B0 Private Sub FlatToggle1_CheckedChanged_1(sender As Object) Dim flag As Boolean = Me.blinkdis If flag Then ' The following expression was wrapped in a unchecked-expression TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes) Me.blinkdis = False Else ' The following expression was wrapped in a unchecked-expression ' The following expression was wrapped in a checked-expression Me.addtinc = CLng((Me.health_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.blinkdis_bytes) Dim num As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_blinkdis + 5L, Me.alloc + Me.addtinc + CLng(Me.blinkdis_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.blinkdis_bytes.Length) - 4L, CLng(num)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes.Length - 5) Me.blinkdis = True End If End Sub ' Token: 0x06000152 RID: 338 RVA: 0x000097E0 File Offset: 0x000079E0 Private Sub FlatToggle2_CheckedChanged(sender As Object) Dim flag As Boolean = Me.ammo If flag Then ' The following expression was wrapped in a unchecked-expression TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes) Me.ammo = False Else ' The following expression was wrapped in a unchecked-expression ' The following expression was wrapped in a checked-expression Me.addtinc = CLng((Me.health_bytes.Length + Me.blinkdis_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.ammo_bytes) Dim num As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_ammo + 5L, Me.alloc + Me.addtinc + CLng(Me.ammo_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.ammo_bytes.Length) - 4L, CLng(num)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes.Length - 5) Me.ammo = True End If End Sub ' Token: 0x06000153 RID: 339 RVA: 0x0000991C File Offset: 0x00007B1C Private Sub FlatToggle3_CheckedChanged(sender As Object) Dim flag As Boolean = Me.reload If flag Then ' The following expression was wrapped in a unchecked-expression TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes) Me.reload = False Else ' The following expression was wrapped in a unchecked-expression ' The following expression was wrapped in a checked-expression Me.addtinc = CLng((Me.health_bytes.Length + Me.blinkdis_bytes.Length + Me.ammo_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.reload_bytes) Dim num As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_reload + 5L, Me.alloc + Me.addtinc + CLng(Me.reload_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.reload_bytes.Length) - 4L, CLng(num)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes.Length - 5) Me.reload = True End If End Sub ' Token: 0x06000154 RID: 340 RVA: 0x00009A60 File Offset: 0x00007C60 Private Sub Hotkey_timer_Tick(sender As Object, e As EventArgs) Dim flag As Boolean = (Form1.GetKeyPress(45) And 1) > 0 If flag Then Me.Insert = Not Me.Insert Dim insert As Boolean = Me.Insert If insert Then Me.trainer_status_btn.Checked = True Me.trainer_status_btn.Refresh() Me.trainer_sts_lbl.Refresh() Else Me.trainer_status_btn.Checked = False Me.trainer_status_btn.Refresh() Me.trainer_sts_lbl.Refresh() Me.numpad1_toggle.Enabled = False Me.numpad2_toggle.Enabled = False Me.numpad3_toggle.Enabled = False Me.numpad4_toggle.Enabled = False Me.numpad8_toggle.Enabled = False Me.numpad5_toggle.Enabled = False Me.numpad6_toggle.Enabled = False Me.numpad7_toggle.Enabled = False Me.Hotkey_timer.[Stop]() Me.trainer_sts_lbl.Text = "Trainer is Off" Me.trainer_sts_lbl.ForeColor = Color.Red Me.Hotkey_toggle.Checked = False Me.Hotkey_toggle.Refresh() Me.toggle_btn.Checked = False Me.toggle_btn.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes) Me.reload = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes) Me.ammo = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes) Me.blinkdis = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes) Me.health = False TrainerModul2_3.Write_Pointer_4Bytes_32Bit(1063675494, Me.BaseAddress_EXE + 17116648, New Integer() { 1420 }) Me.speed_timer.[Stop]() Me.oxygen_timer.[Stop]() Me.mana_timer.[Stop]() Me.health_timer.[Stop]() Me.numpad1_toggle.Checked = False Me.numpad1_toggle.Refresh() Me.numpad2_toggle.Checked = False Me.numpad2_toggle.Refresh() Me.numpad3_toggle.Checked = False Me.numpad3_toggle.Refresh() Me.numpad4_toggle.Checked = False Me.numpad4_toggle.Refresh() Me.numpad5_toggle.Checked = False Me.numpad5_toggle.Refresh() Me.numpad6_toggle.Checked = False Me.numpad6_toggle.Refresh() Me.numpad7_toggle.Checked = False Me.numpad7_toggle.Refresh() Me.numpad8_toggle.Checked = False Me.numpad8_toggle.Refresh() End If End If Dim flag2 As Boolean = (Form1.GetKeyPress(97) And 1) > 0 If flag2 Then Me.Numpad1 = Not Me.Numpad1 Dim numpad As Boolean = Me.Numpad1 If numpad Then Me.numpad1_toggle.Checked = True Me.numpad1_toggle.Refresh() Me.health_timer.Start() Else Me.numpad1_toggle.Checked = False Me.numpad1_toggle.Refresh() Me.health_timer.[Stop]() End If End If Dim flag3 As Boolean = (Form1.GetKeyPress(98) And 1) > 0 If flag3 Then Me.Numpad2 = Not Me.Numpad2 Dim numpad2 As Boolean = Me.Numpad2 If numpad2 Then Me.numpad2_toggle.Checked = True Me.numpad2_toggle.Refresh() Me.mana_timer.Start() Else Me.numpad2_toggle.Checked = False Me.numpad2_toggle.Refresh() Me.mana_timer.[Stop]() End If End If Dim flag4 As Boolean = (Form1.GetKeyPress(99) And 1) > 0 If flag4 Then Me.Numpad3 = Not Me.Numpad3 Dim numpad3 As Boolean = Me.Numpad3 If numpad3 Then Me.numpad3_toggle.Checked = True Me.numpad3_toggle.Refresh() Me.oxygen_timer.Start() Else Me.numpad3_toggle.Checked = False Me.numpad3_toggle.Refresh() Me.oxygen_timer.[Stop]() End If End If Dim flag5 As Boolean = (Form1.GetKeyPress(100) And 1) > 0 If flag5 Then Me.Numpad4 = Not Me.Numpad4 Dim numpad4 As Boolean = Me.Numpad4 If numpad4 Then Me.numpad4_toggle.Checked = True Me.numpad4_toggle.Refresh() Me.health = True TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc, Me.health_bytes) Dim num As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_health + 5L, Me.alloc + CLng(Me.health_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + CLng(Me.health_bytes.Length) - 4L, CLng(num)) TrainerModul2_3.JmpToCave(Me.alloc, CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes.Length - 5) Else Me.health = False Me.numpad4_toggle.Checked = False Me.numpad4_toggle.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes) End If End If Dim flag6 As Boolean = (Form1.GetKeyPress(101) And 1) > 0 If flag6 Then Me.Numpad5 = Not Me.Numpad5 Dim numpad5 As Boolean = Me.Numpad5 If numpad5 Then Me.numpad5_toggle.Checked = True Me.numpad5_toggle.Refresh() Me.addtinc = CLng((Me.health_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.blinkdis_bytes) Dim num2 As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_blinkdis + 5L, Me.alloc + Me.addtinc + CLng(Me.blinkdis_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.blinkdis_bytes.Length) - 4L, CLng(num2)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes.Length - 5) Me.blinkdis = True Else Me.numpad5_toggle.Checked = False Me.numpad5_toggle.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes) Me.blinkdis = False End If End If Dim flag7 As Boolean = (Form1.GetKeyPress(102) And 1) > 0 If flag7 Then Me.Numpad6 = Not Me.Numpad6 Dim numpad6 As Boolean = Me.Numpad6 If numpad6 Then Me.numpad6_toggle.Checked = True Me.numpad6_toggle.Refresh() Me.addtinc = CLng((Me.health_bytes.Length + Me.blinkdis_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.ammo_bytes) Dim num3 As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_ammo + 5L, Me.alloc + Me.addtinc + CLng(Me.ammo_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.ammo_bytes.Length) - 4L, CLng(num3)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes.Length - 5) Me.ammo = True Else Me.numpad6_toggle.Checked = False Me.numpad6_toggle.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes) Me.ammo = False End If End If Dim flag8 As Boolean = (Form1.GetKeyPress(103) And 1) > 0 If flag8 Then Me.Numpad7 = Not Me.Numpad7 Dim numpad7 As Boolean = Me.Numpad7 If numpad7 Then Me.numpad7_toggle.Checked = True Me.numpad7_toggle.Refresh() Me.addtinc = CLng((Me.health_bytes.Length + Me.blinkdis_bytes.Length + Me.ammo_bytes.Length + 32)) TrainerModul2_3.GetProcessId("Dishonored") Me.baseaddr = Conversions.ToInteger(TrainerModul2_3.GetModuleBase("Dishonored", "Dishonored.exe")) Me.alloc = TrainerModul2_3.AllocMem("Dishonored", "Dishonored.exe") TrainerModul2_3.Write_CodeInjection(Me.alloc + Me.addtinc, Me.reload_bytes) Dim num4 As Integer = Conversions.ToInteger(TrainerModul2_3.GetJmpBytes(CLng(Me.baseaddr) + Me.offset_reload + 5L, Me.alloc + Me.addtinc + CLng(Me.reload_bytes.Length) - 5L)) TrainerModul2_3.Write_4_Bytes(Me.alloc + Me.addtinc + CLng(Me.reload_bytes.Length) - 4L, CLng(num4)) TrainerModul2_3.JmpToCave(Me.alloc + Me.addtinc, CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes.Length - 5) Me.reload = True Else Me.numpad7_toggle.Checked = False Me.numpad7_toggle.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes) Me.reload = False End If End If Dim flag9 As Boolean = (Form1.GetKeyPress(104) And 1) > 0 If flag9 Then Me.Numpad8 = Not Me.Numpad8 Dim numpad8 As Boolean = Me.Numpad8 If numpad8 Then Me.numpad8_toggle.Checked = True Me.numpad8_toggle.Refresh() Me.speed_timer.Start() Else Me.numpad8_toggle.Checked = False Me.numpad8_toggle.Refresh() Me.speed_timer.[Stop]() End If End If End Sub ' Token: 0x06000155 RID: 341 RVA: 0x0000A530 File Offset: 0x00008730 Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Me.health_lbl.Text = "Беск. Здоровье" Me.FlatLabel4.Text = "Беск. Мана" Me.FlatLabel5.Text = "Беск. Воздух" Me.stealth_lbl.Text = "Невидимость" Me.FlatLabel8.Text = "Беск. Монеты/Руны" Me.FlatLabel9.Text = "Беск. Патроны" Me.FlatLabel10.Text = "Без Перезарядки" Me.speed_lbl.Text = "Быстрый Бег" Me.enable_trainer_lbl.Text = "Включить трейнер" Me.enb_hotkey_lbl.Text = "Вкл. горячие клавиши" Me.toggle_btn_lbl.Text = "Вкл. кнопки переключения" Me.language_sel_lbl.Text = "Язык трейнера:" Me.game_hash_lbl.Text = "Трейнер EXE Хэш:" Me.your_hash_lbl.Text = "Твой EXE-хеш:" Me.russian_lang.Enabled = False Me.german_lang.Enabled = True Me.english_lang.Enabled = True Me.your_hash_txt.Text = "" Me.md5_alter_box.Text = "Сначала выберите EXE-файл игры." Me.md5_alter_box.kind = FlatAlertBox._Kind.Info Me.md5_alter_box.Visible = True Dim checked As Boolean = Me.trainer_status_btn.Checked If checked Then Me.trainer_sts_lbl.Text = "Трейнер Вкл." Me.trainer_sts_lbl.ForeColor = Color.Green Else Me.trainer_sts_lbl.Text = "Трейнер вык." Me.trainer_sts_lbl.ForeColor = Color.Red End If End Sub ' Token: 0x06000156 RID: 342 RVA: 0x0000A6E8 File Offset: 0x000088E8 Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Me.health_lbl.Text = "Unl. Health" Me.FlatLabel4.Text = "Unl. Mana" Me.FlatLabel5.Text = "Unl. Oxygen" Me.stealth_lbl.Text = "Stealth" Me.FlatLabel8.Text = "Unl. Coins/Runs" Me.FlatLabel9.Text = "Unl. Ammo" Me.FlatLabel10.Text = "No Reload" Me.speed_lbl.Text = "Super Speed" Me.enable_trainer_lbl.Text = "Enable Trainer" Me.enb_hotkey_lbl.Text = "Enable Hotkey" Me.toggle_btn_lbl.Text = "Enable Toggle Buttons" Me.language_sel_lbl.Text = "Trainer Language:" Me.game_hash_lbl.Text = "Trainer EXE Hash" Me.your_hash_lbl.Text = "Your EXE Hash:" Me.russian_lang.Enabled = True Me.german_lang.Enabled = True Me.english_lang.Enabled = False Me.your_hash_txt.Text = "" Me.md5_alter_box.Text = "Please Select your Game EXE first." Me.md5_alter_box.kind = FlatAlertBox._Kind.Info Me.md5_alter_box.Visible = True Dim checked As Boolean = Me.trainer_status_btn.Checked If checked Then Me.trainer_sts_lbl.Text = "Trainer is ON" Me.trainer_sts_lbl.ForeColor = Color.Green Else Me.trainer_sts_lbl.Text = "Trainer is OFF" Me.trainer_sts_lbl.ForeColor = Color.Red End If End Sub ' Token: 0x06000157 RID: 343 RVA: 0x0000A8A0 File Offset: 0x00008AA0 Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Me.health_lbl.Text = "Un. Leben" Me.FlatLabel4.Text = "Un. Mana" Me.FlatLabel5.Text = "Un. Sauerstoff" Me.stealth_lbl.Text = "Unsichtbar" Me.FlatLabel8.Text = "Un. Geld/Runen" Me.FlatLabel9.Text = "Un. Munition" Me.FlatLabel10.Text = "Kein Nachladen" Me.speed_lbl.Text = "Supergeschwindigkeit" Me.enable_trainer_lbl.Text = "Trainer aktivieren" Me.enb_hotkey_lbl.Text = "Hotkeys aktivieren" Me.toggle_btn_lbl.Text = "Schaltknöpfe aktivieren" Me.language_sel_lbl.Text = "Trainersprache:" Me.game_hash_lbl.Text = "Trainer EXE Hash" Me.your_hash_lbl.Text = "Deine EXE Hash:" Me.russian_lang.Enabled = True Me.german_lang.Enabled = False Me.english_lang.Enabled = True Me.your_hash_txt.Text = "" Me.md5_alter_box.Text = "Bitte wählen Sie zuerst Ihre Spiel-EXE aus" Me.md5_alter_box.kind = FlatAlertBox._Kind.Info Me.md5_alter_box.Visible = True Dim checked As Boolean = Me.trainer_status_btn.Checked If checked Then Me.trainer_sts_lbl.Text = "Trainer ist AN" Me.trainer_sts_lbl.ForeColor = Color.Green Else Me.trainer_sts_lbl.Text = "Trainer ist AUS" Me.trainer_sts_lbl.ForeColor = Color.Red End If End Sub ' Token: 0x06000158 RID: 344 RVA: 0x0000AA57 File Offset: 0x00008C57 Private Sub PictureBox3_MouseLeave(sender As Object, e As EventArgs) Me.english_lang.BackColor = Color.Transparent End Sub ' Token: 0x06000159 RID: 345 RVA: 0x0000AA6B File Offset: 0x00008C6B Private Sub PictureBox4_MouseLeave(sender As Object, e As EventArgs) Me.russian_lang.BackColor = Color.Transparent End Sub ' Token: 0x0600015A RID: 346 RVA: 0x0000AA7F File Offset: 0x00008C7F Private Sub PictureBox4_MouseHover(sender As Object, e As EventArgs) Me.russian_lang.BackColor = Color.Gray End Sub ' Token: 0x0600015B RID: 347 RVA: 0x0000AA93 File Offset: 0x00008C93 Private Sub PictureBox5_MouseHover(sender As Object, e As EventArgs) Me.german_lang.BackColor = Color.Gray End Sub ' Token: 0x0600015C RID: 348 RVA: 0x0000AAA7 File Offset: 0x00008CA7 Private Sub PictureBox5_MouseLeave(sender As Object, e As EventArgs) Me.german_lang.BackColor = Color.Transparent End Sub ' Token: 0x0600015D RID: 349 RVA: 0x0000AABB File Offset: 0x00008CBB Private Sub PictureBox3_MouseHover(sender As Object, e As EventArgs) Me.english_lang.BackColor = Color.Gray End Sub ' Token: 0x0600015E RID: 350 RVA: 0x0000AAD0 File Offset: 0x00008CD0 Private Sub trainer_status_btn_CheckedChanged(sender As Object) Dim checked As Boolean = Me.trainer_status_btn.Checked If checked Then Dim flag As Boolean = Me.game_status_bar.RectColor = Color.Green If flag Then Me.numpad1_toggle.Enabled = True Me.numpad2_toggle.Enabled = True Me.numpad3_toggle.Enabled = True Me.numpad4_toggle.Enabled = True Me.numpad8_toggle.Enabled = True Me.numpad5_toggle.Enabled = True Me.numpad6_toggle.Enabled = True Me.numpad7_toggle.Enabled = True Me.Hotkey_timer.Start() Dim flag2 As Boolean = Not Me.english_lang.Enabled If flag2 Then Me.trainer_sts_lbl.Text = "Trainer is ON" Me.trainer_sts_lbl.ForeColor = Color.Green Else Dim flag3 As Boolean = Not Me.german_lang.Enabled If flag3 Then Me.trainer_sts_lbl.Text = "Trainer ist AN" Me.trainer_sts_lbl.ForeColor = Color.Green Else Dim flag4 As Boolean = Not Me.russian_lang.Enabled If flag4 Then Me.trainer_sts_lbl.Text = "Трейнер Вкл." Me.trainer_sts_lbl.ForeColor = Color.Green End If End If End If Me.Hotkey_toggle.Checked = True Me.Hotkey_toggle.Refresh() Me.toggle_btn.Checked = True Me.toggle_btn.Refresh() End If Else Dim flag5 As Boolean = Not Me.trainer_status_btn.Checked If flag5 Then Me.numpad1_toggle.Enabled = False Me.numpad2_toggle.Enabled = False Me.numpad3_toggle.Enabled = False Me.numpad4_toggle.Enabled = False Me.numpad8_toggle.Enabled = False Me.numpad5_toggle.Enabled = False Me.numpad6_toggle.Enabled = False Me.numpad7_toggle.Enabled = False Me.Hotkey_timer.[Stop]() Dim flag6 As Boolean = Not Me.english_lang.Enabled If flag6 Then Me.trainer_sts_lbl.Text = "Trainer is OFF" Me.trainer_sts_lbl.ForeColor = Color.Red Else Dim flag7 As Boolean = Not Me.german_lang.Enabled If flag7 Then Me.trainer_sts_lbl.Text = "Trainer ist AUS" Me.trainer_sts_lbl.ForeColor = Color.Red Else Dim flag8 As Boolean = Not Me.russian_lang.Enabled If flag8 Then Me.trainer_sts_lbl.Text = "Трейнер вык." Me.trainer_sts_lbl.ForeColor = Color.Red End If End If End If Me.Hotkey_toggle.Checked = False Me.Hotkey_toggle.Refresh() Me.toggle_btn.Checked = False Me.toggle_btn.Refresh() TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_reload, Me.reload_org_bytes) Me.reload = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_ammo, Me.ammo_org_bytes) Me.ammo = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_blinkdis, Me.blinkdis_org_bytes) Me.blinkdis = False TrainerModul2_3.Write_CodeInjection(CLng(Me.baseaddr) + Me.offset_health, Me.health_org_bytes) Me.health = False TrainerModul2_3.Write_Pointer_4Bytes_32Bit(1063675494, Me.BaseAddress_EXE + 17116648, New Integer() { 1420 }) Me.speed_timer.[Stop]() Me.oxygen_timer.[Stop]() Me.mana_timer.[Stop]() Me.health_timer.[Stop]() Me.numpad1_toggle.Checked = False Me.numpad1_toggle.Refresh() Me.numpad2_toggle.Checked = False Me.numpad2_toggle.Refresh() Me.numpad3_toggle.Checked = False Me.numpad3_toggle.Refresh() Me.numpad4_toggle.Checked = False Me.numpad4_toggle.Refresh() Me.numpad5_toggle.Checked = False Me.numpad5_toggle.Refresh() Me.numpad6_toggle.Checked = False Me.numpad6_toggle.Refresh() Me.numpad7_toggle.Checked = False Me.numpad7_toggle.Refresh() Me.numpad8_toggle.Checked = False Me.numpad8_toggle.Refresh() End If End If End Sub ' Token: 0x0600015F RID: 351 RVA: 0x0000AF68 File Offset: 0x00009168 Private Sub game_checker_Tick(sender As Object, e As EventArgs) Dim flag As Boolean = Me.game_status_bar.RectColor = Color.Green If flag Then Me.numpad1_toggle.Enabled = True Me.numpad2_toggle.Enabled = True Me.numpad3_toggle.Enabled = True Me.numpad4_toggle.Enabled = True Me.numpad8_toggle.Enabled = True Me.numpad5_toggle.Enabled = True Me.numpad6_toggle.Enabled = True Me.numpad7_toggle.Enabled = True Me.Hotkey_timer.Start() Me.trainer_status_btn.Enabled = True Me.trainer_status_btn.Refresh() Me.Hotkey_toggle.Enabled = True Me.Hotkey_toggle.Refresh() Me.toggle_btn.Enabled = True Me.Hotkey_toggle.Refresh() Else Me.trainer_status_btn.Enabled = False Me.numpad1_toggle.Enabled = False Me.numpad2_toggle.Enabled = False Me.numpad3_toggle.Enabled = False Me.numpad4_toggle.Enabled = False Me.numpad8_toggle.Enabled = False Me.numpad5_toggle.Enabled = False Me.numpad6_toggle.Enabled = False Me.numpad7_toggle.Enabled = False Me.Hotkey_timer.[Stop]() Me.Hotkey_toggle.Enabled = False Me.toggle_btn.Enabled = False End If End Sub ' Token: 0x06000160 RID: 352 RVA: 0x0000B0F4 File Offset: 0x000092F4 Private Sub Hotkey_toggle_CheckedChanged(sender As Object) Dim enabled As Boolean = Me.Hotkey_timer.Enabled If enabled Then Me.Hotkey_timer.Enabled = False Else Me.Hotkey_timer.Enabled = True End If End Sub ' Token: 0x06000161 RID: 353 RVA: 0x0000B130 File Offset: 0x00009330 Private Sub toggle_btn_CheckedChanged(sender As Object) Dim checked As Boolean = Me.toggle_btn.Checked If checked Then Me.numpad1_toggle.Enabled = True Me.numpad2_toggle.Enabled = True Me.numpad3_toggle.Enabled = True Me.numpad4_toggle.Enabled = True Me.numpad8_toggle.Enabled = True Me.numpad5_toggle.Enabled = True Me.numpad6_toggle.Enabled = True Me.numpad7_toggle.Enabled = True Me.numpad8_toggle.Enabled = True Else Me.numpad1_toggle.Enabled = False Me.numpad2_toggle.Enabled = False Me.numpad3_toggle.Enabled = False Me.numpad4_toggle.Enabled = False Me.numpad8_toggle.Enabled = False Me.numpad5_toggle.Enabled = False Me.numpad6_toggle.Enabled = False Me.numpad7_toggle.Enabled = False Me.numpad8_toggle.Enabled = False End If End Sub ' Token: 0x06000162 RID: 354 RVA: 0x0000B23C File Offset: 0x0000943C Private Sub Check_btn_Click(sender As Object, e As EventArgs) Dim openFileDialog As OpenFileDialog = New OpenFileDialog() openFileDialog.Filter = "All Files (*.*)|*.*" Dim flag As Boolean = openFileDialog.ShowDialog() = DialogResult.OK If flag Then Me.filepath_txt.Text = openFileDialog.FileName End If Dim flag2 As Boolean = Operators.CompareString(openFileDialog.FileName, "", False) = 0 If Not flag2 Then Dim fileStream As FileStream = New FileStream(Me.filepath_txt.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192) fileStream = New FileStream(Me.filepath_txt.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192) Dim md5CryptoServiceProvider As MD5CryptoServiceProvider = New MD5CryptoServiceProvider() md5CryptoServiceProvider.ComputeHash(fileStream) fileStream.Close() Dim hash As Byte() = md5CryptoServiceProvider.Hash Dim stringBuilder As StringBuilder = New StringBuilder() For Each b As Byte In hash stringBuilder.Append(String.Format("{0:X1}", b)) Next Me.your_hash_txt.Text = stringBuilder.ToString() Dim flag3 As Boolean = Operators.CompareString(Me.game_hash_txt.Text, Me.your_hash_txt.Text, False) = 0 And Not Me.russian_lang.Enabled If flag3 Then Me.md5_alter_box.Text = "Правильный MD5! Трейнер работает" Me.md5_alter_box.kind = FlatAlertBox._Kind.Success Me.md5_alter_box.Visible = True Else Dim flag4 As Boolean = Operators.CompareString(Me.game_hash_txt.Text, Me.your_hash_txt.Text, False) = 0 And Not Me.english_lang.Enabled If flag4 Then Me.md5_alter_box.Text = "Right MD5! Trainer Work" Me.md5_alter_box.kind = FlatAlertBox._Kind.Success Me.md5_alter_box.Visible = True Else Dim flag5 As Boolean = Operators.CompareString(Me.game_hash_txt.Text, Me.your_hash_txt.Text, False) = 0 And Not Me.german_lang.Enabled If flag5 Then Me.md5_alter_box.Text = "Richtiger MD5! Trainer funktioniert" Me.md5_alter_box.kind = FlatAlertBox._Kind.Success Me.md5_alter_box.Visible = True Else Dim flag6 As Boolean = Me.game_hash_txt.Text <> Me.your_hash_txt.Text And Not Me.german_lang.Enabled If flag6 Then Me.md5_alter_box.Text = "Falscher MD5! Trainer funktieoniert nicht" Me.md5_alter_box.kind = FlatAlertBox._Kind.[Error] Me.md5_alter_box.Visible = True Else Dim flag7 As Boolean = Me.game_hash_txt.Text <> Me.your_hash_txt.Text And Not Me.english_lang.Enabled If flag7 Then Me.md5_alter_box.Text = "Wrong MD5! Trainer not Work" Me.md5_alter_box.kind = FlatAlertBox._Kind.[Error] Me.md5_alter_box.Visible = True Else Dim flag8 As Boolean = Me.game_hash_txt.Text <> Me.your_hash_txt.Text And Not Me.russian_lang.Enabled If flag8 Then Me.md5_alter_box.Text = "Неправильный MD5! Трейнер Не работает" Me.md5_alter_box.kind = FlatAlertBox._Kind.[Error] Me.md5_alter_box.Visible = True End If End If End If End If End If End If End If End Sub ' Token: 0x06000163 RID: 355 RVA: 0x0000B58C File Offset: 0x0000978C Protected Overrides Sub Dispose(disposing As Boolean) Try Dim flag As Boolean = disposing AndAlso Me.components IsNot Nothing If flag Then Me.components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub ' Token: 0x06000164 RID: 356 RVA: 0x0000B5DC File Offset: 0x000097DC Private Sub InitializeComponent() Me.components = New Container() Dim componentResourceManager As ComponentResourceManager = New ComponentResourceManager(GetType(Form1)) Me.health_timer = New Timer(Me.components) Me.Hotkey_timer = New Timer(Me.components) Me.mana_timer = New Timer(Me.components) Me.oxygen_timer = New Timer(Me.components) Me.speed_timer = New Timer(Me.components) Me.game_checker = New Timer(Me.components) Me.FormSkin1 = New FormSkin() Me.FlatTabControl1 = New FlatTabControl() Me.trainer_tab = New TabPage() Me.trainer_st_lbl = New FlatLabel() Me.trainer_status_btn = New FlatToggle() Me.enable_trainer_lbl = New FlatLabel() Me.numpad8_lbl = New FlatLabel() Me.LogInSeperator1 = New LogInSeperator() Me.numpad7_lbl = New FlatLabel() Me.numpad1_lbl = New FlatLabel() Me.numpad6_lbl = New FlatLabel() Me.numpad1_toggle = New FlatToggle() Me.numpad5_lbl = New FlatLabel() Me.health_lbl = New FlatLabel() Me.numpad4_lbl = New FlatLabel() Me.numpad2_toggle = New FlatToggle() Me.numpad3_lbl = New FlatLabel() Me.numpad3_toggle = New FlatToggle() Me.numpad2_lbl = New FlatLabel() Me.FlatLabel10 = New FlatLabel() Me.FlatLabel4 = New FlatLabel() Me.numpad7_toggle = New FlatToggle() Me.FlatLabel5 = New FlatLabel() Me.FlatLabel9 = New FlatLabel() Me.numpad4_toggle = New FlatToggle() Me.numpad6_toggle = New FlatToggle() Me.stealth_lbl = New FlatLabel() Me.numpad5_toggle = New FlatToggle() Me.FlatLabel8 = New FlatLabel() Me.numpad8_toggle = New FlatToggle() Me.speed_lbl = New FlatLabel() Me.md5_tab = New TabPage() Me.filepath_txt = New FlatTextBox() Me.Check_btn = New FlatButton() Me.your_hash_lbl = New FlatLabel() Me.game_hash_lbl = New FlatLabel() Me.your_hash_txt = New FlatTextBox() Me.game_hash_txt = New FlatTextBox() Me.md5_alter_box = New FlatAlertBox() Me.trn_settings_tab = New TabPage() Me.language_sel_lbl = New FlatLabel() Me.LogInSeperator3 = New LogInSeperator() Me.toggle_btn_lbl = New FlatLabel() Me.toggle_btn = New FlatToggle() Me.enb_hotkey_lbl = New FlatLabel() Me.Hotkey_toggle = New FlatToggle() Me.german_lang = New PictureBox() Me.russian_lang = New PictureBox() Me.english_lang = New PictureBox() Me.game_status_bar = New FlatStatusBar() Me.PictureBox2 = New PictureBox() Me.trainer_sts_lbl = New LogInLabel() Me.getGameID_lbl = New LogInLabel() Me.PictureBox1 = New PictureBox() Me.FlatClose1 = New FlatClose() Me.FlatMini1 = New FlatMini() Me.OpenFileDialog1 = New OpenFileDialog() Me.FormSkin1.SuspendLayout() Me.FlatTabControl1.SuspendLayout() Me.trainer_tab.SuspendLayout() Me.md5_tab.SuspendLayout() Me.trn_settings_tab.SuspendLayout() CType(Me.german_lang, ISupportInitialize).BeginInit() CType(Me.russian_lang, ISupportInitialize).BeginInit() CType(Me.english_lang, ISupportInitialize).BeginInit() CType(Me.PictureBox2, ISupportInitialize).BeginInit() CType(Me.PictureBox1, ISupportInitialize).BeginInit() MyBase.SuspendLayout() Me.health_timer.Interval = 20 Me.Hotkey_timer.Enabled = True Me.Hotkey_timer.Interval = 20 Me.mana_timer.Interval = 20 Me.oxygen_timer.Interval = 20 Me.speed_timer.Interval = 10 Me.FormSkin1.BackColor = Color.FromArgb(51, 51, 51) Me.FormSkin1.BaseColor = Color.FromArgb(50, 50, 50) Me.FormSkin1.BorderColor = Color.FromArgb(50, 50, 50) Me.FormSkin1.Controls.Add(Me.FlatTabControl1) Me.FormSkin1.Controls.Add(Me.game_status_bar) Me.FormSkin1.Controls.Add(Me.PictureBox2) Me.FormSkin1.Controls.Add(Me.trainer_sts_lbl) Me.FormSkin1.Controls.Add(Me.getGameID_lbl) Me.FormSkin1.Controls.Add(Me.PictureBox1) Me.FormSkin1.Controls.Add(Me.FlatClose1) Me.FormSkin1.Controls.Add(Me.FlatMini1) Me.FormSkin1.Dock = DockStyle.Fill Me.FormSkin1.FlatColor = Color.FromArgb(35, 168, 109) Me.FormSkin1.Font = New Font("Segoe UI", 12F) Me.FormSkin1.HeaderColor = Color.FromArgb(50, 50, 50) Me.FormSkin1.HeaderMaximize = False Me.FormSkin1.ImeMode = ImeMode.NoControl Me.FormSkin1.Location = New Point(0, 0) Me.FormSkin1.Name = "FormSkin1" Me.FormSkin1.Size = New Size(963, 465) Me.FormSkin1.TabIndex = 0 Me.FormSkin1.Text = "Dishonored - Game of the Year Edition Trainer by SeryogaSK" Me.FlatTabControl1.ActiveColor = Color.FromArgb(0, 170, 220) Me.FlatTabControl1.BaseColor = Color.FromArgb(45, 47, 49) Me.FlatTabControl1.Controls.Add(Me.trainer_tab) Me.FlatTabControl1.Controls.Add(Me.md5_tab) Me.FlatTabControl1.Controls.Add(Me.trn_settings_tab) Me.FlatTabControl1.Font = New Font("Segoe UI", 10F) Me.FlatTabControl1.ItemSize = New Size(120, 40) Me.FlatTabControl1.Location = New Point(215, 46) Me.FlatTabControl1.Name = "FlatTabControl1" Me.FlatTabControl1.SelectedIndex = 0 Me.FlatTabControl1.Size = New Size(739, 329) Me.FlatTabControl1.SizeMode = TabSizeMode.Fixed Me.FlatTabControl1.TabIndex = 1055 Me.trainer_tab.BackColor = Color.FromArgb(50, 50, 50) Me.trainer_tab.Controls.Add(Me.trainer_st_lbl) Me.trainer_tab.Controls.Add(Me.trainer_status_btn) Me.trainer_tab.Controls.Add(Me.enable_trainer_lbl) Me.trainer_tab.Controls.Add(Me.numpad8_lbl) Me.trainer_tab.Controls.Add(Me.LogInSeperator1) Me.trainer_tab.Controls.Add(Me.numpad7_lbl) Me.trainer_tab.Controls.Add(Me.numpad1_lbl) Me.trainer_tab.Controls.Add(Me.numpad6_lbl) Me.trainer_tab.Controls.Add(Me.numpad1_toggle) Me.trainer_tab.Controls.Add(Me.numpad5_lbl) Me.trainer_tab.Controls.Add(Me.health_lbl) Me.trainer_tab.Controls.Add(Me.numpad4_lbl) Me.trainer_tab.Controls.Add(Me.numpad2_toggle) Me.trainer_tab.Controls.Add(Me.numpad3_lbl) Me.trainer_tab.Controls.Add(Me.numpad3_toggle) Me.trainer_tab.Controls.Add(Me.numpad2_lbl) Me.trainer_tab.Controls.Add(Me.FlatLabel10) Me.trainer_tab.Controls.Add(Me.FlatLabel4) Me.trainer_tab.Controls.Add(Me.numpad7_toggle) Me.trainer_tab.Controls.Add(Me.FlatLabel5) Me.trainer_tab.Controls.Add(Me.FlatLabel9) Me.trainer_tab.Controls.Add(Me.numpad4_toggle) Me.trainer_tab.Controls.Add(Me.numpad6_toggle) Me.trainer_tab.Controls.Add(Me.stealth_lbl) Me.trainer_tab.Controls.Add(Me.numpad5_toggle) Me.trainer_tab.Controls.Add(Me.FlatLabel8) Me.trainer_tab.Controls.Add(Me.numpad8_toggle) Me.trainer_tab.Controls.Add(Me.speed_lbl) Me.trainer_tab.Location = New Point(4, 44) Me.trainer_tab.Name = "trainer_tab" Me.trainer_tab.Padding = New Padding(3) Me.trainer_tab.Size = New Size(731, 281) Me.trainer_tab.TabIndex = 0 Me.trainer_tab.Text = "Trainer" Me.trainer_st_lbl.BackColor = Color.Transparent Me.trainer_st_lbl.Font = New Font("Segoe UI", 10F) Me.trainer_st_lbl.ForeColor = Color.White Me.trainer_st_lbl.Location = New Point(212, 12) Me.trainer_st_lbl.Name = "trainer_st_lbl" Me.trainer_st_lbl.Size = New Size(35, 33) Me.trainer_st_lbl.TabIndex = 1043 Me.trainer_st_lbl.Text = "INS" Me.trainer_st_lbl.TextAlign = ContentAlignment.MiddleLeft Me.trainer_status_btn.BackColor = Color.Transparent Me.trainer_status_btn.Checked = False Me.trainer_status_btn.Cursor = Cursors.Hand Me.trainer_status_btn.Font = New Font("Segoe UI", 10F) Me.trainer_status_btn.Location = New Point(253, 12) Me.trainer_status_btn.Name = "trainer_status_btn" Me.trainer_status_btn.Options = FlatToggle._Options.Style3 Me.trainer_status_btn.Size = New Size(76, 33) Me.trainer_status_btn.TabIndex = 1042 Me.trainer_status_btn.Text = "Trainer Status Btn" Me.enable_trainer_lbl.BackColor = Color.Transparent Me.enable_trainer_lbl.Font = New Font("Segoe UI", 10F) Me.enable_trainer_lbl.ForeColor = Color.White Me.enable_trainer_lbl.Location = New Point(335, 12) Me.enable_trainer_lbl.Name = "enable_trainer_lbl" Me.enable_trainer_lbl.Size = New Size(128, 33) Me.enable_trainer_lbl.TabIndex = 1044 Me.enable_trainer_lbl.Text = "ENABLE TRAINER" Me.enable_trainer_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad8_lbl.BackColor = Color.Transparent Me.numpad8_lbl.Font = New Font("Segoe UI", 10F) Me.numpad8_lbl.ForeColor = Color.White Me.numpad8_lbl.Location = New Point(311, 150) Me.numpad8_lbl.Name = "numpad8_lbl" Me.numpad8_lbl.Size = New Size(55, 33) Me.numpad8_lbl.TabIndex = 1052 Me.numpad8_lbl.Text = "NUM 8" Me.numpad8_lbl.TextAlign = ContentAlignment.MiddleLeft Me.LogInSeperator1.Alignment = LogInSeperator.Style.Horizontal Me.LogInSeperator1.BackColor = Color.Transparent Me.LogInSeperator1.Location = New Point(-2, 49) Me.LogInSeperator1.Name = "LogInSeperator1" Me.LogInSeperator1.SeperatorColour = Color.FromArgb(35, 35, 35) Me.LogInSeperator1.Size = New Size(814, 20) Me.LogInSeperator1.TabIndex = 1045 Me.LogInSeperator1.Text = "LogInSeperator1" Me.LogInSeperator1.Thickness = 1F Me.numpad7_lbl.BackColor = Color.Transparent Me.numpad7_lbl.Font = New Font("Segoe UI", 10F) Me.numpad7_lbl.ForeColor = Color.White Me.numpad7_lbl.Location = New Point(311, 111) Me.numpad7_lbl.Name = "numpad7_lbl" Me.numpad7_lbl.Size = New Size(55, 33) Me.numpad7_lbl.TabIndex = 1051 Me.numpad7_lbl.Text = "NUM 7" Me.numpad7_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad1_lbl.BackColor = Color.Transparent Me.numpad1_lbl.Font = New Font("Segoe UI", 10F) Me.numpad1_lbl.ForeColor = Color.White Me.numpad1_lbl.Location = New Point(10, 72) Me.numpad1_lbl.Name = "numpad1_lbl" Me.numpad1_lbl.Size = New Size(55, 33) Me.numpad1_lbl.TabIndex = 1041 Me.numpad1_lbl.Text = "NUM 1" Me.numpad1_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad6_lbl.BackColor = Color.Transparent Me.numpad6_lbl.Font = New Font("Segoe UI", 10F) Me.numpad6_lbl.ForeColor = Color.White Me.numpad6_lbl.Location = New Point(311, 72) Me.numpad6_lbl.Name = "numpad6_lbl" Me.numpad6_lbl.Size = New Size(55, 33) Me.numpad6_lbl.TabIndex = 1050 Me.numpad6_lbl.Text = "NUM 6" Me.numpad6_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad1_toggle.BackColor = Color.Transparent Me.numpad1_toggle.Checked = False Me.numpad1_toggle.Cursor = Cursors.Hand Me.numpad1_toggle.Font = New Font("Segoe UI", 10F) Me.numpad1_toggle.Location = New Point(71, 72) Me.numpad1_toggle.Name = "numpad1_toggle" Me.numpad1_toggle.Options = FlatToggle._Options.Style3 Me.numpad1_toggle.Size = New Size(76, 33) Me.numpad1_toggle.TabIndex = 1010 Me.numpad1_toggle.Text = "health_btn" Me.numpad5_lbl.BackColor = Color.Transparent Me.numpad5_lbl.Font = New Font("Segoe UI", 10F) Me.numpad5_lbl.ForeColor = Color.White Me.numpad5_lbl.Location = New Point(10, 229) Me.numpad5_lbl.Name = "numpad5_lbl" Me.numpad5_lbl.Size = New Size(55, 33) Me.numpad5_lbl.TabIndex = 1049 Me.numpad5_lbl.Text = "NUM 5" Me.numpad5_lbl.TextAlign = ContentAlignment.MiddleLeft Me.health_lbl.BackColor = Color.Transparent Me.health_lbl.Font = New Font("Segoe UI", 10F) Me.health_lbl.ForeColor = Color.White Me.health_lbl.Location = New Point(153, 72) Me.health_lbl.Name = "health_lbl" Me.health_lbl.Size = New Size(140, 33) Me.health_lbl.TabIndex = 1012 Me.health_lbl.Text = "UNL. HEALTH" Me.health_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad4_lbl.BackColor = Color.Transparent Me.numpad4_lbl.Font = New Font("Segoe UI", 10F) Me.numpad4_lbl.ForeColor = Color.White Me.numpad4_lbl.Location = New Point(10, 189) Me.numpad4_lbl.Name = "numpad4_lbl" Me.numpad4_lbl.Size = New Size(55, 33) Me.numpad4_lbl.TabIndex = 1048 Me.numpad4_lbl.Text = "NUM 4" Me.numpad4_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad2_toggle.BackColor = Color.Transparent Me.numpad2_toggle.Checked = False Me.numpad2_toggle.Cursor = Cursors.Hand Me.numpad2_toggle.Font = New Font("Segoe UI", 10F) Me.numpad2_toggle.Location = New Point(71, 111) Me.numpad2_toggle.Name = "numpad2_toggle" Me.numpad2_toggle.Options = FlatToggle._Options.Style3 Me.numpad2_toggle.Size = New Size(76, 33) Me.numpad2_toggle.TabIndex = 1014 Me.numpad2_toggle.Text = "FlatToggle1" Me.numpad3_lbl.BackColor = Color.Transparent Me.numpad3_lbl.Font = New Font("Segoe UI", 10F) Me.numpad3_lbl.ForeColor = Color.White Me.numpad3_lbl.Location = New Point(10, 150) Me.numpad3_lbl.Name = "numpad3_lbl" Me.numpad3_lbl.Size = New Size(55, 33) Me.numpad3_lbl.TabIndex = 1047 Me.numpad3_lbl.Text = "NUM 3" Me.numpad3_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad3_toggle.BackColor = Color.Transparent Me.numpad3_toggle.Checked = False Me.numpad3_toggle.Cursor = Cursors.Hand Me.numpad3_toggle.Font = New Font("Segoe UI", 10F) Me.numpad3_toggle.Location = New Point(71, 150) Me.numpad3_toggle.Name = "numpad3_toggle" Me.numpad3_toggle.Options = FlatToggle._Options.Style3 Me.numpad3_toggle.Size = New Size(76, 33) Me.numpad3_toggle.TabIndex = 1015 Me.numpad3_toggle.Text = "FlatToggle2" Me.numpad2_lbl.BackColor = Color.Transparent Me.numpad2_lbl.Font = New Font("Segoe UI", 10F) Me.numpad2_lbl.ForeColor = Color.White Me.numpad2_lbl.Location = New Point(10, 111) Me.numpad2_lbl.Name = "numpad2_lbl" Me.numpad2_lbl.Size = New Size(55, 33) Me.numpad2_lbl.TabIndex = 1046 Me.numpad2_lbl.Text = "NUM 2" Me.numpad2_lbl.TextAlign = ContentAlignment.MiddleLeft Me.FlatLabel10.BackColor = Color.Transparent Me.FlatLabel10.FlatStyle = FlatStyle.Flat Me.FlatLabel10.Font = New Font("Segoe UI", 10F) Me.FlatLabel10.ForeColor = Color.White Me.FlatLabel10.Location = New Point(454, 111) Me.FlatLabel10.Name = "FlatLabel10" Me.FlatLabel10.Size = New Size(140, 33) Me.FlatLabel10.TabIndex = 1030 Me.FlatLabel10.Text = "NO RELOAD" Me.FlatLabel10.TextAlign = ContentAlignment.MiddleLeft Me.FlatLabel4.BackColor = Color.Transparent Me.FlatLabel4.Font = New Font("Segoe UI", 10F) Me.FlatLabel4.ForeColor = Color.White Me.FlatLabel4.Location = New Point(153, 111) Me.FlatLabel4.Name = "FlatLabel4" Me.FlatLabel4.Size = New Size(140, 33) Me.FlatLabel4.TabIndex = 1016 Me.FlatLabel4.Text = "UNL. MANA" Me.FlatLabel4.TextAlign = ContentAlignment.MiddleLeft Me.numpad7_toggle.BackColor = Color.Transparent Me.numpad7_toggle.Checked = False Me.numpad7_toggle.Cursor = Cursors.Hand Me.numpad7_toggle.Font = New Font("Segoe UI", 10F) Me.numpad7_toggle.Location = New Point(372, 111) Me.numpad7_toggle.Name = "numpad7_toggle" Me.numpad7_toggle.Options = FlatToggle._Options.Style3 Me.numpad7_toggle.Size = New Size(76, 33) Me.numpad7_toggle.TabIndex = 1029 Me.numpad7_toggle.Text = "FlatToggle2" Me.FlatLabel5.BackColor = Color.Transparent Me.FlatLabel5.Font = New Font("Segoe UI", 10F) Me.FlatLabel5.ForeColor = Color.White Me.FlatLabel5.Location = New Point(153, 150) Me.FlatLabel5.Name = "FlatLabel5" Me.FlatLabel5.Size = New Size(140, 33) Me.FlatLabel5.TabIndex = 1017 Me.FlatLabel5.Text = "UNL. OXYGEN" Me.FlatLabel5.TextAlign = ContentAlignment.MiddleLeft Me.FlatLabel9.BackColor = Color.Transparent Me.FlatLabel9.Font = New Font("Segoe UI", 10F) Me.FlatLabel9.ForeColor = Color.White Me.FlatLabel9.Location = New Point(454, 72) Me.FlatLabel9.Name = "FlatLabel9" Me.FlatLabel9.Size = New Size(140, 33) Me.FlatLabel9.TabIndex = 1028 Me.FlatLabel9.Text = "UNL. AMMO" Me.FlatLabel9.TextAlign = ContentAlignment.MiddleLeft Me.numpad4_toggle.BackColor = Color.Transparent Me.numpad4_toggle.Checked = False Me.numpad4_toggle.Cursor = Cursors.Hand Me.numpad4_toggle.Font = New Font("Segoe UI", 10F) Me.numpad4_toggle.Location = New Point(71, 189) Me.numpad4_toggle.Name = "numpad4_toggle" Me.numpad4_toggle.Options = FlatToggle._Options.Style3 Me.numpad4_toggle.Size = New Size(76, 33) Me.numpad4_toggle.TabIndex = 1021 Me.numpad4_toggle.Text = "FlatToggle2" Me.numpad6_toggle.BackColor = Color.Transparent Me.numpad6_toggle.Checked = False Me.numpad6_toggle.Cursor = Cursors.Hand Me.numpad6_toggle.Font = New Font("Segoe UI", 10F) Me.numpad6_toggle.Location = New Point(372, 72) Me.numpad6_toggle.Name = "numpad6_toggle" Me.numpad6_toggle.Options = FlatToggle._Options.Style3 Me.numpad6_toggle.Size = New Size(76, 33) Me.numpad6_toggle.TabIndex = 1027 Me.numpad6_toggle.Text = "FlatToggle2" Me.stealth_lbl.BackColor = Color.Transparent Me.stealth_lbl.Font = New Font("Segoe UI", 10F) Me.stealth_lbl.ForeColor = Color.White Me.stealth_lbl.Location = New Point(153, 189) Me.stealth_lbl.Name = "stealth_lbl" Me.stealth_lbl.Size = New Size(140, 33) Me.stealth_lbl.TabIndex = 1022 Me.stealth_lbl.Text = "STEALTH" Me.stealth_lbl.TextAlign = ContentAlignment.MiddleLeft Me.numpad5_toggle.BackColor = Color.Transparent Me.numpad5_toggle.Checked = False Me.numpad5_toggle.Cursor = Cursors.Hand Me.numpad5_toggle.Font = New Font("Segoe UI", 10F) Me.numpad5_toggle.Location = New Point(71, 228) Me.numpad5_toggle.Name = "numpad5_toggle" Me.numpad5_toggle.Options = FlatToggle._Options.Style3 Me.numpad5_toggle.Size = New Size(76, 33) Me.numpad5_toggle.TabIndex = 1024 Me.numpad5_toggle.Text = "FlatToggle2" Me.FlatLabel8.BackColor = Color.Transparent Me.FlatLabel8.Font = New Font("Segoe UI", 10F) Me.FlatLabel8.ForeColor = Color.White Me.FlatLabel8.Location = New Point(153, 228) Me.FlatLabel8.Name = "FlatLabel8" Me.FlatLabel8.Size = New Size(140, 33) Me.FlatLabel8.TabIndex = 1026 Me.FlatLabel8.Text = "UNL. MONEY/RUNS" Me.FlatLabel8.TextAlign = ContentAlignment.MiddleLeft Me.numpad8_toggle.BackColor = Color.Transparent Me.numpad8_toggle.Checked = False Me.numpad8_toggle.Cursor = Cursors.Hand Me.numpad8_toggle.Font = New Font("Segoe UI", 10F) Me.numpad8_toggle.Location = New Point(372, 150) Me.numpad8_toggle.Name = "numpad8_toggle" Me.numpad8_toggle.Options = FlatToggle._Options.Style3 Me.numpad8_toggle.Size = New Size(76, 33) Me.numpad8_toggle.TabIndex = 1018 Me.numpad8_toggle.Text = "FlatToggle2" Me.speed_lbl.BackColor = Color.Transparent Me.speed_lbl.Font = New Font("Segoe UI", 10F) Me.speed_lbl.ForeColor = Color.White Me.speed_lbl.Location = New Point(454, 150) Me.speed_lbl.Name = "speed_lbl" Me.speed_lbl.Size = New Size(233, 33) Me.speed_lbl.TabIndex = 1019 Me.speed_lbl.Text = "SUPER SPEED" Me.speed_lbl.TextAlign = ContentAlignment.MiddleLeft Me.md5_tab.BackColor = Color.FromArgb(50, 50, 50) Me.md5_tab.Controls.Add(Me.filepath_txt) Me.md5_tab.Controls.Add(Me.Check_btn) Me.md5_tab.Controls.Add(Me.your_hash_lbl) Me.md5_tab.Controls.Add(Me.game_hash_lbl) Me.md5_tab.Controls.Add(Me.your_hash_txt) Me.md5_tab.Controls.Add(Me.game_hash_txt) Me.md5_tab.Controls.Add(Me.md5_alter_box) Me.md5_tab.Location = New Point(4, 44) Me.md5_tab.Name = "md5_tab" Me.md5_tab.Padding = New Padding(3) Me.md5_tab.Size = New Size(731, 281) Me.md5_tab.TabIndex = 1 Me.md5_tab.Text = "MD5 Checker" Me.filepath_txt.BackColor = Color.Transparent Me.filepath_txt.Location = New Point(538, 157) Me.filepath_txt.MaxLength = 32767 Me.filepath_txt.Multiline = False Me.filepath_txt.Name = "filepath_txt" Me.filepath_txt.[ReadOnly] = False Me.filepath_txt.Size = New Size(75, 29) Me.filepath_txt.TabIndex = 1061 Me.filepath_txt.Text = "filepath_txt" Me.filepath_txt.TextAlign = HorizontalAlignment.Left Me.filepath_txt.TextColor = Color.FromArgb(192, 192, 192) Me.filepath_txt.UseSystemPasswordChar = False Me.filepath_txt.Visible = False Me.Check_btn.BackColor = Color.Transparent Me.Check_btn.BaseColor = Color.FromArgb(0, 170, 220) Me.Check_btn.Cursor = Cursors.Hand Me.Check_btn.Font = New Font("Segoe UI", 10F) Me.Check_btn.Location = New Point(619, 154) Me.Check_btn.Name = "Check_btn" Me.Check_btn.Rounded = False Me.Check_btn.Size = New Size(106, 32) Me.Check_btn.TabIndex = 1060 Me.Check_btn.Text = "Select EXE" Me.Check_btn.TextColor = Color.FromArgb(243, 243, 243) Me.your_hash_lbl.BackColor = Color.Transparent Me.your_hash_lbl.Font = New Font("Segoe UI", 10F) Me.your_hash_lbl.ForeColor = Color.White Me.your_hash_lbl.Location = New Point(2, 83) Me.your_hash_lbl.Name = "your_hash_lbl" Me.your_hash_lbl.Size = New Size(158, 33) Me.your_hash_lbl.TabIndex = 1059 Me.your_hash_lbl.Text = "Your EXE Hash:" Me.your_hash_lbl.TextAlign = ContentAlignment.MiddleLeft Me.game_hash_lbl.BackColor = Color.Transparent Me.game_hash_lbl.Font = New Font("Segoe UI", 10F) Me.game_hash_lbl.ForeColor = Color.White Me.game_hash_lbl.Location = New Point(2, 14) Me.game_hash_lbl.Name = "game_hash_lbl" Me.game_hash_lbl.Size = New Size(158, 33) Me.game_hash_lbl.TabIndex = 1058 Me.game_hash_lbl.Text = "Trainer EXE Hash:" Me.game_hash_lbl.TextAlign = ContentAlignment.MiddleLeft Me.your_hash_txt.BackColor = Color.Transparent Me.your_hash_txt.Location = New Point(6, 119) Me.your_hash_txt.MaxLength = 32767 Me.your_hash_txt.Multiline = False Me.your_hash_txt.Name = "your_hash_txt" Me.your_hash_txt.[ReadOnly] = True Me.your_hash_txt.Size = New Size(719, 29) Me.your_hash_txt.TabIndex = 2 Me.your_hash_txt.Text = "Your Hash" Me.your_hash_txt.TextAlign = HorizontalAlignment.Left Me.your_hash_txt.TextColor = Color.FromArgb(192, 192, 192) Me.your_hash_txt.UseSystemPasswordChar = False Me.game_hash_txt.BackColor = Color.Transparent Me.game_hash_txt.Location = New Point(6, 50) Me.game_hash_txt.MaxLength = 32767 Me.game_hash_txt.Multiline = False Me.game_hash_txt.Name = "game_hash_txt" Me.game_hash_txt.[ReadOnly] = True Me.game_hash_txt.Size = New Size(719, 29) Me.game_hash_txt.TabIndex = 1 Me.game_hash_txt.Text = "Trainer Hash" Me.game_hash_txt.TextAlign = HorizontalAlignment.Left Me.game_hash_txt.TextColor = Color.FromArgb(192, 192, 192) Me.game_hash_txt.UseSystemPasswordChar = False Me.md5_alter_box.BackColor = Color.FromArgb(60, 70, 73) Me.md5_alter_box.Cursor = Cursors.Hand Me.md5_alter_box.Font = New Font("Segoe UI", 10F) Me.md5_alter_box.kind = FlatAlertBox._Kind.Info Me.md5_alter_box.Location = New Point(6, 154) Me.md5_alter_box.Name = "md5_alter_box" Me.md5_alter_box.Size = New Size(578, 42) Me.md5_alter_box.TabIndex = 0 Me.md5_alter_box.Text = "Please Select your Game EXE first" Me.md5_alter_box.Visible = False Me.trn_settings_tab.BackColor = Color.FromArgb(50, 50, 50) Me.trn_settings_tab.Controls.Add(Me.language_sel_lbl) Me.trn_settings_tab.Controls.Add(Me.LogInSeperator3) Me.trn_settings_tab.Controls.Add(Me.toggle_btn_lbl) Me.trn_settings_tab.Controls.Add(Me.toggle_btn) Me.trn_settings_tab.Controls.Add(Me.enb_hotkey_lbl) Me.trn_settings_tab.Controls.Add(Me.Hotkey_toggle) Me.trn_settings_tab.Controls.Add(Me.german_lang) Me.trn_settings_tab.Controls.Add(Me.russian_lang) Me.trn_settings_tab.Controls.Add(Me.english_lang) Me.trn_settings_tab.Location = New Point(4, 44) Me.trn_settings_tab.Name = "trn_settings_tab" Me.trn_settings_tab.Size = New Size(731, 281) Me.trn_settings_tab.TabIndex = 2 Me.trn_settings_tab.Text = "Trainer Settings" Me.language_sel_lbl.BackColor = Color.Transparent Me.language_sel_lbl.Font = New Font("Segoe UI", 10F) Me.language_sel_lbl.ForeColor = Color.White Me.language_sel_lbl.Location = New Point(-1, 65) Me.language_sel_lbl.Name = "language_sel_lbl" Me.language_sel_lbl.Size = New Size(117, 23) Me.language_sel_lbl.TabIndex = 1057 Me.language_sel_lbl.Text = "Trainer Language:" Me.language_sel_lbl.TextAlign = ContentAlignment.MiddleCenter Me.LogInSeperator3.Alignment = LogInSeperator.Style.Horizontal Me.LogInSeperator3.BackColor = Color.Transparent Me.LogInSeperator3.Location = New Point(-18, 42) Me.LogInSeperator3.Name = "LogInSeperator3" Me.LogInSeperator3.SeperatorColour = Color.FromArgb(35, 35, 35) Me.LogInSeperator3.Size = New Size(814, 20) Me.LogInSeperator3.TabIndex = 1054 Me.LogInSeperator3.Text = "LogInSeperator3" Me.LogInSeperator3.Thickness = 1F Me.toggle_btn_lbl.BackColor = Color.Transparent Me.toggle_btn_lbl.Font = New Font("Segoe UI", 10F) Me.toggle_btn_lbl.ForeColor = Color.White Me.toggle_btn_lbl.Location = New Point(389, 3) Me.toggle_btn_lbl.Name = "toggle_btn_lbl" Me.toggle_btn_lbl.Size = New Size(205, 33) Me.toggle_btn_lbl.TabIndex = 1056 Me.toggle_btn_lbl.Text = "ENABLE TOGGLE BUTTONS" Me.toggle_btn_lbl.TextAlign = ContentAlignment.MiddleLeft Me.toggle_btn.BackColor = Color.Transparent Me.toggle_btn.Checked = False Me.toggle_btn.Cursor = Cursors.Hand Me.toggle_btn.Font = New Font("Segoe UI", 10F) Me.toggle_btn.Location = New Point(307, 3) Me.toggle_btn.Name = "toggle_btn" Me.toggle_btn.Options = FlatToggle._Options.Style3 Me.toggle_btn.Size = New Size(76, 33) Me.toggle_btn.TabIndex = 1055 Me.toggle_btn.Text = "Toggle ON/OFF" Me.enb_hotkey_lbl.BackColor = Color.Transparent Me.enb_hotkey_lbl.Font = New Font("Segoe UI", 10F) Me.enb_hotkey_lbl.ForeColor = Color.White Me.enb_hotkey_lbl.Location = New Point(85, 3) Me.enb_hotkey_lbl.Name = "enb_hotkey_lbl" Me.enb_hotkey_lbl.Size = New Size(150, 33) Me.enb_hotkey_lbl.TabIndex = 1054 Me.enb_hotkey_lbl.Text = "ENABLE HOTKEY" Me.enb_hotkey_lbl.TextAlign = ContentAlignment.MiddleLeft Me.Hotkey_toggle.BackColor = Color.Transparent Me.Hotkey_toggle.Checked = False Me.Hotkey_toggle.Cursor = Cursors.Hand Me.Hotkey_toggle.Font = New Font("Segoe UI", 10F) Me.Hotkey_toggle.Location = New Point(3, 3) Me.Hotkey_toggle.Name = "Hotkey_toggle" Me.Hotkey_toggle.Options = FlatToggle._Options.Style3 Me.Hotkey_toggle.Size = New Size(76, 33) Me.Hotkey_toggle.TabIndex = 0 Me.Hotkey_toggle.Text = "Hotkey ON/OFF" Me.german_lang.Image = CType(componentResourceManager.GetObject("german_lang.Image"), Image) Me.german_lang.Location = New Point(122, 72) Me.german_lang.Name = "german_lang" Me.german_lang.Size = New Size(16, 16) Me.german_lang.SizeMode = PictureBoxSizeMode.AutoSize Me.german_lang.TabIndex = 1035 Me.german_lang.TabStop = False Me.russian_lang.Image = CType(componentResourceManager.GetObject("russian_lang.Image"), Image) Me.russian_lang.Location = New Point(144, 72) Me.russian_lang.Name = "russian_lang" Me.russian_lang.Size = New Size(16, 16) Me.russian_lang.SizeMode = PictureBoxSizeMode.AutoSize Me.russian_lang.TabIndex = 1034 Me.russian_lang.TabStop = False Me.english_lang.Image = CType(componentResourceManager.GetObject("english_lang.Image"), Image) Me.english_lang.Location = New Point(169, 72) Me.english_lang.Name = "english_lang" Me.english_lang.Size = New Size(16, 16) Me.english_lang.SizeMode = PictureBoxSizeMode.AutoSize Me.english_lang.TabIndex = 1033 Me.english_lang.TabStop = False Me.game_status_bar.BackgroundImageLayout = ImageLayout.None Me.game_status_bar.BaseColor = Color.Transparent Me.game_status_bar.Dock = DockStyle.Bottom Me.game_status_bar.Font = New Font("Segoe UI", 8F) Me.game_status_bar.ForeColor = Color.White Me.game_status_bar.Location = New Point(0, 442) Me.game_status_bar.Name = "game_status_bar" Me.game_status_bar.RectColor = Color.Red Me.game_status_bar.ShowTimeDate = False Me.game_status_bar.Size = New Size(963, 23) Me.game_status_bar.TabIndex = 1037 Me.game_status_bar.Text = "Game Status: Game not Found. Run Dishonored.exe" Me.game_status_bar.TextColor = Color.White Me.PictureBox2.Image = CType(componentResourceManager.GetObject("PictureBox2.Image"), Image) Me.PictureBox2.Location = New Point(3, 13) Me.PictureBox2.Name = "PictureBox2" Me.PictureBox2.Size = New Size(23, 24) Me.PictureBox2.SizeMode = PictureBoxSizeMode.StretchImage Me.PictureBox2.TabIndex = 1032 Me.PictureBox2.TabStop = False Me.trainer_sts_lbl.AutoSize = True Me.trainer_sts_lbl.BackColor = Color.Transparent Me.trainer_sts_lbl.Font = New Font("Segoe UI", 9F) Me.trainer_sts_lbl.FontColour = Color.FromArgb(255, 255, 255) Me.trainer_sts_lbl.ForeColor = Color.Red Me.trainer_sts_lbl.Location = New Point(132, 343) Me.trainer_sts_lbl.Name = "trainer_sts_lbl" Me.trainer_sts_lbl.Size = New Size(77, 15) Me.trainer_sts_lbl.TabIndex = 1031 Me.trainer_sts_lbl.Text = "Trainer Status" Me.getGameID_lbl.AutoSize = True Me.getGameID_lbl.BackColor = Color.Transparent Me.getGameID_lbl.Font = New Font("Segoe UI", 9F) Me.getGameID_lbl.FontColour = Color.FromArgb(255, 255, 255) Me.getGameID_lbl.ForeColor = Color.FromArgb(255, 255, 255) Me.getGameID_lbl.Location = New Point(12, 343) Me.getGameID_lbl.Name = "getGameID_lbl" Me.getGameID_lbl.Size = New Size(55, 15) Me.getGameID_lbl.TabIndex = 1003 Me.getGameID_lbl.Text = "Game ID:" Me.PictureBox1.Image = CType(componentResourceManager.GetObject("PictureBox1.Image"), Image) Me.PictureBox1.Location = New Point(12, 44) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New Size(197, 296) Me.PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage Me.PictureBox1.TabIndex = 10 Me.PictureBox1.TabStop = False Me.FlatClose1.Anchor = (AnchorStyles.Top Or AnchorStyles.Right) Me.FlatClose1.BackColor = Color.White Me.FlatClose1.BaseColor = Color.FromArgb(50, 50, 50) Me.FlatClose1.Font = New Font("Marlett", 12F) Me.FlatClose1.Location = New Point(944, 3) Me.FlatClose1.Name = "FlatClose1" Me.FlatClose1.Size = New Size(18, 18) Me.FlatClose1.TabIndex = 8 Me.FlatClose1.Text = "FlatClose1" Me.FlatClose1.TextColor = Color.FromArgb(220, 220, 220) Me.FlatMini1.Anchor = (AnchorStyles.Top Or AnchorStyles.Right) Me.FlatMini1.BackColor = Color.White Me.FlatMini1.BaseColor = Color.FromArgb(50, 50, 50) Me.FlatMini1.Font = New Font("Marlett", 12F) Me.FlatMini1.Location = New Point(920, 1) Me.FlatMini1.Name = "FlatMini1" Me.FlatMini1.Size = New Size(18, 18) Me.FlatMini1.TabIndex = 6 Me.FlatMini1.Text = "FlatMini1" Me.FlatMini1.TextColor = Color.FromArgb(243, 243, 243) Me.OpenFileDialog1.FileName = "OpenFileDialog1" MyBase.AutoScaleDimensions = New SizeF(6F, 13F) MyBase.AutoScaleMode = AutoScaleMode.Font MyBase.ClientSize = New Size(963, 465) MyBase.Controls.Add(Me.FormSkin1) MyBase.FormBorderStyle = FormBorderStyle.None MyBase.Icon = CType(componentResourceManager.GetObject("$this.Icon"), Icon) MyBase.Name = "Form1" MyBase.StartPosition = FormStartPosition.CenterScreen Me.Text = "Dishonored - Game of the Year Edition Trainer by SeryogaSK" MyBase.TransparencyKey = Color.Fuchsia Me.FormSkin1.ResumeLayout(False) Me.FormSkin1.PerformLayout() Me.FlatTabControl1.ResumeLayout(False) Me.trainer_tab.ResumeLayout(False) Me.md5_tab.ResumeLayout(False) Me.trn_settings_tab.ResumeLayout(False) Me.trn_settings_tab.PerformLayout() CType(Me.german_lang, ISupportInitialize).EndInit() CType(Me.russian_lang, ISupportInitialize).EndInit() CType(Me.english_lang, ISupportInitialize).EndInit() CType(Me.PictureBox2, ISupportInitialize).EndInit() CType(Me.PictureBox1, ISupportInitialize).EndInit() MyBase.ResumeLayout(False) End Sub ' Token: 0x17000053 RID: 83 ' (get) Token: 0x06000165 RID: 357 RVA: 0x0000E712 File Offset: 0x0000C912 ' (set) Token: 0x06000166 RID: 358 RVA: 0x0000E71C File Offset: 0x0000C91C Friend Overridable Property FormSkin1 As FormSkin ' Token: 0x17000054 RID: 84 ' (get) Token: 0x06000167 RID: 359 RVA: 0x0000E725 File Offset: 0x0000C925 ' (set) Token: 0x06000168 RID: 360 RVA: 0x0000E72F File Offset: 0x0000C92F Friend Overridable Property FlatClose1 As FlatClose ' Token: 0x17000055 RID: 85 ' (get) Token: 0x06000169 RID: 361 RVA: 0x0000E738 File Offset: 0x0000C938 ' (set) Token: 0x0600016A RID: 362 RVA: 0x0000E742 File Offset: 0x0000C942 Friend Overridable Property FlatMini1 As FlatMini ' Token: 0x17000056 RID: 86 ' (get) Token: 0x0600016B RID: 363 RVA: 0x0000E74B File Offset: 0x0000C94B ' (set) Token: 0x0600016C RID: 364 RVA: 0x0000E755 File Offset: 0x0000C955 Friend Overridable Property PictureBox1 As PictureBox ' Token: 0x17000057 RID: 87 ' (get) Token: 0x0600016D RID: 365 RVA: 0x0000E75E File Offset: 0x0000C95E ' (set) Token: 0x0600016E RID: 366 RVA: 0x0000E768 File Offset: 0x0000C968 Friend Overridable Property health_timer As Timer Get Return Me._health_timer End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.cheats_timer_Tick Dim health_timer As Timer = Me._health_timer If health_timer IsNot Nothing Then RemoveHandler health_timer.Tick, value2 End If Me._health_timer = value health_timer = Me._health_timer If health_timer IsNot Nothing Then AddHandler health_timer.Tick, value2 End If End Set End Property ' Token: 0x17000058 RID: 88 ' (get) Token: 0x0600016F RID: 367 RVA: 0x0000E7AB File Offset: 0x0000C9AB ' (set) Token: 0x06000170 RID: 368 RVA: 0x0000E7B8 File Offset: 0x0000C9B8 Friend Overridable Property Hotkey_timer As Timer Get Return Me._Hotkey_timer End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.Hotkey_timer_Tick Dim hotkey_timer As Timer = Me._Hotkey_timer If hotkey_timer IsNot Nothing Then RemoveHandler hotkey_timer.Tick, value2 End If Me._Hotkey_timer = value hotkey_timer = Me._Hotkey_timer If hotkey_timer IsNot Nothing Then AddHandler hotkey_timer.Tick, value2 End If End Set End Property ' Token: 0x17000059 RID: 89 ' (get) Token: 0x06000171 RID: 369 RVA: 0x0000E7FB File Offset: 0x0000C9FB ' (set) Token: 0x06000172 RID: 370 RVA: 0x0000E805 File Offset: 0x0000CA05 Friend Overridable Property getGameID_lbl As LogInLabel ' Token: 0x1700005A RID: 90 ' (get) Token: 0x06000173 RID: 371 RVA: 0x0000E80E File Offset: 0x0000CA0E ' (set) Token: 0x06000174 RID: 372 RVA: 0x0000E818 File Offset: 0x0000CA18 Friend Overridable Property mana_timer As Timer Get Return Me._mana_timer End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.mana_timer_Tick Dim mana_timer As Timer = Me._mana_timer If mana_timer IsNot Nothing Then RemoveHandler mana_timer.Tick, value2 End If Me._mana_timer = value mana_timer = Me._mana_timer If mana_timer IsNot Nothing Then AddHandler mana_timer.Tick, value2 End If End Set End Property ' Token: 0x1700005B RID: 91 ' (get) Token: 0x06000175 RID: 373 RVA: 0x0000E85B File Offset: 0x0000CA5B ' (set) Token: 0x06000176 RID: 374 RVA: 0x0000E868 File Offset: 0x0000CA68 Friend Overridable Property oxygen_timer As Timer Get Return Me._oxygen_timer End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.oxygen_timer_Tick Dim oxygen_timer As Timer = Me._oxygen_timer If oxygen_timer IsNot Nothing Then RemoveHandler oxygen_timer.Tick, value2 End If Me._oxygen_timer = value oxygen_timer = Me._oxygen_timer If oxygen_timer IsNot Nothing Then AddHandler oxygen_timer.Tick, value2 End If End Set End Property ' Token: 0x1700005C RID: 92 ' (get) Token: 0x06000177 RID: 375 RVA: 0x0000E8AB File Offset: 0x0000CAAB ' (set) Token: 0x06000178 RID: 376 RVA: 0x0000E8B8 File Offset: 0x0000CAB8 Friend Overridable Property numpad1_toggle As FlatToggle Get Return Me._numpad1_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.FlatToggle1_CheckedChanged Dim numpad1_toggle As FlatToggle = Me._numpad1_toggle If numpad1_toggle IsNot Nothing Then RemoveHandler numpad1_toggle.CheckedChanged, obj End If Me._numpad1_toggle = value numpad1_toggle = Me._numpad1_toggle If numpad1_toggle IsNot Nothing Then AddHandler numpad1_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x1700005D RID: 93 ' (get) Token: 0x06000179 RID: 377 RVA: 0x0000E8FB File Offset: 0x0000CAFB ' (set) Token: 0x0600017A RID: 378 RVA: 0x0000E905 File Offset: 0x0000CB05 Friend Overridable Property health_lbl As FlatLabel ' Token: 0x1700005E RID: 94 ' (get) Token: 0x0600017B RID: 379 RVA: 0x0000E90E File Offset: 0x0000CB0E ' (set) Token: 0x0600017C RID: 380 RVA: 0x0000E918 File Offset: 0x0000CB18 Friend Overridable Property numpad3_toggle As FlatToggle Get Return Me._numpad3_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.oxygen_btn_CheckedChanged Dim numpad3_toggle As FlatToggle = Me._numpad3_toggle If numpad3_toggle IsNot Nothing Then RemoveHandler numpad3_toggle.CheckedChanged, obj End If Me._numpad3_toggle = value numpad3_toggle = Me._numpad3_toggle If numpad3_toggle IsNot Nothing Then AddHandler numpad3_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x1700005F RID: 95 ' (get) Token: 0x0600017D RID: 381 RVA: 0x0000E95B File Offset: 0x0000CB5B ' (set) Token: 0x0600017E RID: 382 RVA: 0x0000E968 File Offset: 0x0000CB68 Friend Overridable Property numpad2_toggle As FlatToggle Get Return Me._numpad2_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.mana_btn_CheckedChanged Dim numpad2_toggle As FlatToggle = Me._numpad2_toggle If numpad2_toggle IsNot Nothing Then RemoveHandler numpad2_toggle.CheckedChanged, obj End If Me._numpad2_toggle = value numpad2_toggle = Me._numpad2_toggle If numpad2_toggle IsNot Nothing Then AddHandler numpad2_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x17000060 RID: 96 ' (get) Token: 0x0600017F RID: 383 RVA: 0x0000E9AB File Offset: 0x0000CBAB ' (set) Token: 0x06000180 RID: 384 RVA: 0x0000E9B5 File Offset: 0x0000CBB5 Friend Overridable Property FlatLabel5 As FlatLabel ' Token: 0x17000061 RID: 97 ' (get) Token: 0x06000181 RID: 385 RVA: 0x0000E9BE File Offset: 0x0000CBBE ' (set) Token: 0x06000182 RID: 386 RVA: 0x0000E9C8 File Offset: 0x0000CBC8 Friend Overridable Property FlatLabel4 As FlatLabel ' Token: 0x17000062 RID: 98 ' (get) Token: 0x06000183 RID: 387 RVA: 0x0000E9D1 File Offset: 0x0000CBD1 ' (set) Token: 0x06000184 RID: 388 RVA: 0x0000E9DB File Offset: 0x0000CBDB Friend Overridable Property speed_lbl As FlatLabel ' Token: 0x17000063 RID: 99 ' (get) Token: 0x06000185 RID: 389 RVA: 0x0000E9E4 File Offset: 0x0000CBE4 ' (set) Token: 0x06000186 RID: 390 RVA: 0x0000E9F0 File Offset: 0x0000CBF0 Friend Overridable Property numpad8_toggle As FlatToggle Get Return Me._numpad8_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.speed_btn_CheckedChanged Dim numpad8_toggle As FlatToggle = Me._numpad8_toggle If numpad8_toggle IsNot Nothing Then RemoveHandler numpad8_toggle.CheckedChanged, obj End If Me._numpad8_toggle = value numpad8_toggle = Me._numpad8_toggle If numpad8_toggle IsNot Nothing Then AddHandler numpad8_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x17000064 RID: 100 ' (get) Token: 0x06000187 RID: 391 RVA: 0x0000EA33 File Offset: 0x0000CC33 ' (set) Token: 0x06000188 RID: 392 RVA: 0x0000EA40 File Offset: 0x0000CC40 Friend Overridable Property speed_timer As Timer Get Return Me._speed_timer End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.speed_timer_Tick Dim speed_timer As Timer = Me._speed_timer If speed_timer IsNot Nothing Then RemoveHandler speed_timer.Tick, value2 End If Me._speed_timer = value speed_timer = Me._speed_timer If speed_timer IsNot Nothing Then AddHandler speed_timer.Tick, value2 End If End Set End Property ' Token: 0x17000065 RID: 101 ' (get) Token: 0x06000189 RID: 393 RVA: 0x0000EA83 File Offset: 0x0000CC83 ' (set) Token: 0x0600018A RID: 394 RVA: 0x0000EA8D File Offset: 0x0000CC8D Friend Overridable Property stealth_lbl As FlatLabel ' Token: 0x17000066 RID: 102 ' (get) Token: 0x0600018B RID: 395 RVA: 0x0000EA96 File Offset: 0x0000CC96 ' (set) Token: 0x0600018C RID: 396 RVA: 0x0000EAA0 File Offset: 0x0000CCA0 Friend Overridable Property numpad4_toggle As FlatToggle Get Return Me._numpad4_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.stealth_btn_CheckedChanged Dim numpad4_toggle As FlatToggle = Me._numpad4_toggle If numpad4_toggle IsNot Nothing Then RemoveHandler numpad4_toggle.CheckedChanged, obj End If Me._numpad4_toggle = value numpad4_toggle = Me._numpad4_toggle If numpad4_toggle IsNot Nothing Then AddHandler numpad4_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x17000067 RID: 103 ' (get) Token: 0x0600018D RID: 397 RVA: 0x0000EAE3 File Offset: 0x0000CCE3 ' (set) Token: 0x0600018E RID: 398 RVA: 0x0000EAF0 File Offset: 0x0000CCF0 Friend Overridable Property numpad5_toggle As FlatToggle Get Return Me._numpad5_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.FlatToggle1_CheckedChanged_1 Dim numpad5_toggle As FlatToggle = Me._numpad5_toggle If numpad5_toggle IsNot Nothing Then RemoveHandler numpad5_toggle.CheckedChanged, obj End If Me._numpad5_toggle = value numpad5_toggle = Me._numpad5_toggle If numpad5_toggle IsNot Nothing Then AddHandler numpad5_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x17000068 RID: 104 ' (get) Token: 0x0600018F RID: 399 RVA: 0x0000EB33 File Offset: 0x0000CD33 ' (set) Token: 0x06000190 RID: 400 RVA: 0x0000EB3D File Offset: 0x0000CD3D Friend Overridable Property FlatLabel8 As FlatLabel ' Token: 0x17000069 RID: 105 ' (get) Token: 0x06000191 RID: 401 RVA: 0x0000EB46 File Offset: 0x0000CD46 ' (set) Token: 0x06000192 RID: 402 RVA: 0x0000EB50 File Offset: 0x0000CD50 Friend Overridable Property FlatLabel9 As FlatLabel ' Token: 0x1700006A RID: 106 ' (get) Token: 0x06000193 RID: 403 RVA: 0x0000EB59 File Offset: 0x0000CD59 ' (set) Token: 0x06000194 RID: 404 RVA: 0x0000EB64 File Offset: 0x0000CD64 Friend Overridable Property numpad6_toggle As FlatToggle Get Return Me._numpad6_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.FlatToggle2_CheckedChanged Dim numpad6_toggle As FlatToggle = Me._numpad6_toggle If numpad6_toggle IsNot Nothing Then RemoveHandler numpad6_toggle.CheckedChanged, obj End If Me._numpad6_toggle = value numpad6_toggle = Me._numpad6_toggle If numpad6_toggle IsNot Nothing Then AddHandler numpad6_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x1700006B RID: 107 ' (get) Token: 0x06000195 RID: 405 RVA: 0x0000EBA7 File Offset: 0x0000CDA7 ' (set) Token: 0x06000196 RID: 406 RVA: 0x0000EBB1 File Offset: 0x0000CDB1 Friend Overridable Property FlatLabel10 As FlatLabel ' Token: 0x1700006C RID: 108 ' (get) Token: 0x06000197 RID: 407 RVA: 0x0000EBBA File Offset: 0x0000CDBA ' (set) Token: 0x06000198 RID: 408 RVA: 0x0000EBC4 File Offset: 0x0000CDC4 Friend Overridable Property numpad7_toggle As FlatToggle Get Return Me._numpad7_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.FlatToggle3_CheckedChanged Dim numpad7_toggle As FlatToggle = Me._numpad7_toggle If numpad7_toggle IsNot Nothing Then RemoveHandler numpad7_toggle.CheckedChanged, obj End If Me._numpad7_toggle = value numpad7_toggle = Me._numpad7_toggle If numpad7_toggle IsNot Nothing Then AddHandler numpad7_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x1700006D RID: 109 ' (get) Token: 0x06000199 RID: 409 RVA: 0x0000EC07 File Offset: 0x0000CE07 ' (set) Token: 0x0600019A RID: 410 RVA: 0x0000EC11 File Offset: 0x0000CE11 Friend Overridable Property trainer_sts_lbl As LogInLabel ' Token: 0x1700006E RID: 110 ' (get) Token: 0x0600019B RID: 411 RVA: 0x0000EC1A File Offset: 0x0000CE1A ' (set) Token: 0x0600019C RID: 412 RVA: 0x0000EC24 File Offset: 0x0000CE24 Friend Overridable Property game_checker As Timer Get Return Me._game_checker End Get Set(value As Timer) Dim value2 As EventHandler = AddressOf Me.game_checker_Tick Dim game_checker As Timer = Me._game_checker If game_checker IsNot Nothing Then RemoveHandler game_checker.Tick, value2 End If Me._game_checker = value game_checker = Me._game_checker If game_checker IsNot Nothing Then AddHandler game_checker.Tick, value2 End If End Set End Property ' Token: 0x1700006F RID: 111 ' (get) Token: 0x0600019D RID: 413 RVA: 0x0000EC67 File Offset: 0x0000CE67 ' (set) Token: 0x0600019E RID: 414 RVA: 0x0000EC71 File Offset: 0x0000CE71 Friend Overridable Property PictureBox2 As PictureBox ' Token: 0x17000070 RID: 112 ' (get) Token: 0x0600019F RID: 415 RVA: 0x0000EC7A File Offset: 0x0000CE7A ' (set) Token: 0x060001A0 RID: 416 RVA: 0x0000EC84 File Offset: 0x0000CE84 Friend Overridable Property russian_lang As PictureBox Get Return Me._russian_lang End Get Set(value As PictureBox) Dim value2 As EventHandler = AddressOf Me.PictureBox4_Click Dim value3 As EventHandler = AddressOf Me.PictureBox4_MouseLeave Dim value4 As EventHandler = AddressOf Me.PictureBox4_MouseHover Dim russian_lang As PictureBox = Me._russian_lang If russian_lang IsNot Nothing Then RemoveHandler russian_lang.Click, value2 RemoveHandler russian_lang.MouseLeave, value3 RemoveHandler russian_lang.MouseHover, value4 End If Me._russian_lang = value russian_lang = Me._russian_lang If russian_lang IsNot Nothing Then AddHandler russian_lang.Click, value2 AddHandler russian_lang.MouseLeave, value3 AddHandler russian_lang.MouseHover, value4 End If End Set End Property ' Token: 0x17000071 RID: 113 ' (get) Token: 0x060001A1 RID: 417 RVA: 0x0000ECFD File Offset: 0x0000CEFD ' (set) Token: 0x060001A2 RID: 418 RVA: 0x0000ED08 File Offset: 0x0000CF08 Friend Overridable Property english_lang As PictureBox Get Return Me._english_lang End Get Set(value As PictureBox) Dim value2 As EventHandler = AddressOf Me.PictureBox3_Click Dim value3 As EventHandler = AddressOf Me.PictureBox3_MouseLeave Dim value4 As EventHandler = AddressOf Me.PictureBox3_MouseHover Dim english_lang As PictureBox = Me._english_lang If english_lang IsNot Nothing Then RemoveHandler english_lang.Click, value2 RemoveHandler english_lang.MouseLeave, value3 RemoveHandler english_lang.MouseHover, value4 End If Me._english_lang = value english_lang = Me._english_lang If english_lang IsNot Nothing Then AddHandler english_lang.Click, value2 AddHandler english_lang.MouseLeave, value3 AddHandler english_lang.MouseHover, value4 End If End Set End Property ' Token: 0x17000072 RID: 114 ' (get) Token: 0x060001A3 RID: 419 RVA: 0x0000ED81 File Offset: 0x0000CF81 ' (set) Token: 0x060001A4 RID: 420 RVA: 0x0000ED8C File Offset: 0x0000CF8C Friend Overridable Property german_lang As PictureBox Get Return Me._german_lang End Get Set(value As PictureBox) Dim value2 As EventHandler = AddressOf Me.PictureBox5_Click Dim value3 As EventHandler = AddressOf Me.PictureBox5_MouseHover Dim value4 As EventHandler = AddressOf Me.PictureBox5_MouseLeave Dim german_lang As PictureBox = Me._german_lang If german_lang IsNot Nothing Then RemoveHandler german_lang.Click, value2 RemoveHandler german_lang.MouseHover, value3 RemoveHandler german_lang.MouseLeave, value4 End If Me._german_lang = value german_lang = Me._german_lang If german_lang IsNot Nothing Then AddHandler german_lang.Click, value2 AddHandler german_lang.MouseHover, value3 AddHandler german_lang.MouseLeave, value4 End If End Set End Property ' Token: 0x17000073 RID: 115 ' (get) Token: 0x060001A5 RID: 421 RVA: 0x0000EE05 File Offset: 0x0000D005 ' (set) Token: 0x060001A6 RID: 422 RVA: 0x0000EE0F File Offset: 0x0000D00F Friend Overridable Property game_status_bar As FlatStatusBar ' Token: 0x17000074 RID: 116 ' (get) Token: 0x060001A7 RID: 423 RVA: 0x0000EE18 File Offset: 0x0000D018 ' (set) Token: 0x060001A8 RID: 424 RVA: 0x0000EE22 File Offset: 0x0000D022 Friend Overridable Property LogInSeperator1 As LogInSeperator ' Token: 0x17000075 RID: 117 ' (get) Token: 0x060001A9 RID: 425 RVA: 0x0000EE2B File Offset: 0x0000D02B ' (set) Token: 0x060001AA RID: 426 RVA: 0x0000EE35 File Offset: 0x0000D035 Friend Overridable Property enable_trainer_lbl As FlatLabel ' Token: 0x17000076 RID: 118 ' (get) Token: 0x060001AB RID: 427 RVA: 0x0000EE3E File Offset: 0x0000D03E ' (set) Token: 0x060001AC RID: 428 RVA: 0x0000EE48 File Offset: 0x0000D048 Friend Overridable Property trainer_st_lbl As FlatLabel ' Token: 0x17000077 RID: 119 ' (get) Token: 0x060001AD RID: 429 RVA: 0x0000EE51 File Offset: 0x0000D051 ' (set) Token: 0x060001AE RID: 430 RVA: 0x0000EE5C File Offset: 0x0000D05C Friend Overridable Property trainer_status_btn As FlatToggle Get Return Me._trainer_status_btn End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.trainer_status_btn_CheckedChanged Dim trainer_status_btn As FlatToggle = Me._trainer_status_btn If trainer_status_btn IsNot Nothing Then RemoveHandler trainer_status_btn.CheckedChanged, obj End If Me._trainer_status_btn = value trainer_status_btn = Me._trainer_status_btn If trainer_status_btn IsNot Nothing Then AddHandler trainer_status_btn.CheckedChanged, obj End If End Set End Property ' Token: 0x17000078 RID: 120 ' (get) Token: 0x060001AF RID: 431 RVA: 0x0000EE9F File Offset: 0x0000D09F ' (set) Token: 0x060001B0 RID: 432 RVA: 0x0000EEA9 File Offset: 0x0000D0A9 Friend Overridable Property numpad1_lbl As FlatLabel ' Token: 0x17000079 RID: 121 ' (get) Token: 0x060001B1 RID: 433 RVA: 0x0000EEB2 File Offset: 0x0000D0B2 ' (set) Token: 0x060001B2 RID: 434 RVA: 0x0000EEBC File Offset: 0x0000D0BC Friend Overridable Property numpad7_lbl As FlatLabel ' Token: 0x1700007A RID: 122 ' (get) Token: 0x060001B3 RID: 435 RVA: 0x0000EEC5 File Offset: 0x0000D0C5 ' (set) Token: 0x060001B4 RID: 436 RVA: 0x0000EECF File Offset: 0x0000D0CF Friend Overridable Property numpad6_lbl As FlatLabel ' Token: 0x1700007B RID: 123 ' (get) Token: 0x060001B5 RID: 437 RVA: 0x0000EED8 File Offset: 0x0000D0D8 ' (set) Token: 0x060001B6 RID: 438 RVA: 0x0000EEE2 File Offset: 0x0000D0E2 Friend Overridable Property numpad5_lbl As FlatLabel ' Token: 0x1700007C RID: 124 ' (get) Token: 0x060001B7 RID: 439 RVA: 0x0000EEEB File Offset: 0x0000D0EB ' (set) Token: 0x060001B8 RID: 440 RVA: 0x0000EEF5 File Offset: 0x0000D0F5 Friend Overridable Property numpad4_lbl As FlatLabel ' Token: 0x1700007D RID: 125 ' (get) Token: 0x060001B9 RID: 441 RVA: 0x0000EEFE File Offset: 0x0000D0FE ' (set) Token: 0x060001BA RID: 442 RVA: 0x0000EF08 File Offset: 0x0000D108 Friend Overridable Property numpad3_lbl As FlatLabel ' Token: 0x1700007E RID: 126 ' (get) Token: 0x060001BB RID: 443 RVA: 0x0000EF11 File Offset: 0x0000D111 ' (set) Token: 0x060001BC RID: 444 RVA: 0x0000EF1B File Offset: 0x0000D11B Friend Overridable Property numpad2_lbl As FlatLabel ' Token: 0x1700007F RID: 127 ' (get) Token: 0x060001BD RID: 445 RVA: 0x0000EF24 File Offset: 0x0000D124 ' (set) Token: 0x060001BE RID: 446 RVA: 0x0000EF2E File Offset: 0x0000D12E Friend Overridable Property numpad8_lbl As FlatLabel ' Token: 0x17000080 RID: 128 ' (get) Token: 0x060001BF RID: 447 RVA: 0x0000EF37 File Offset: 0x0000D137 ' (set) Token: 0x060001C0 RID: 448 RVA: 0x0000EF41 File Offset: 0x0000D141 Friend Overridable Property FlatTabControl1 As FlatTabControl ' Token: 0x17000081 RID: 129 ' (get) Token: 0x060001C1 RID: 449 RVA: 0x0000EF4A File Offset: 0x0000D14A ' (set) Token: 0x060001C2 RID: 450 RVA: 0x0000EF54 File Offset: 0x0000D154 Friend Overridable Property trainer_tab As TabPage ' Token: 0x17000082 RID: 130 ' (get) Token: 0x060001C3 RID: 451 RVA: 0x0000EF5D File Offset: 0x0000D15D ' (set) Token: 0x060001C4 RID: 452 RVA: 0x0000EF67 File Offset: 0x0000D167 Friend Overridable Property md5_tab As TabPage ' Token: 0x17000083 RID: 131 ' (get) Token: 0x060001C5 RID: 453 RVA: 0x0000EF70 File Offset: 0x0000D170 ' (set) Token: 0x060001C6 RID: 454 RVA: 0x0000EF7A File Offset: 0x0000D17A Friend Overridable Property trn_settings_tab As TabPage ' Token: 0x17000084 RID: 132 ' (get) Token: 0x060001C7 RID: 455 RVA: 0x0000EF83 File Offset: 0x0000D183 ' (set) Token: 0x060001C8 RID: 456 RVA: 0x0000EF8D File Offset: 0x0000D18D Friend Overridable Property toggle_btn_lbl As FlatLabel ' Token: 0x17000085 RID: 133 ' (get) Token: 0x060001C9 RID: 457 RVA: 0x0000EF96 File Offset: 0x0000D196 ' (set) Token: 0x060001CA RID: 458 RVA: 0x0000EFA0 File Offset: 0x0000D1A0 Friend Overridable Property toggle_btn As FlatToggle Get Return Me._toggle_btn End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.toggle_btn_CheckedChanged Dim toggle_btn As FlatToggle = Me._toggle_btn If toggle_btn IsNot Nothing Then RemoveHandler toggle_btn.CheckedChanged, obj End If Me._toggle_btn = value toggle_btn = Me._toggle_btn If toggle_btn IsNot Nothing Then AddHandler toggle_btn.CheckedChanged, obj End If End Set End Property ' Token: 0x17000086 RID: 134 ' (get) Token: 0x060001CB RID: 459 RVA: 0x0000EFE3 File Offset: 0x0000D1E3 ' (set) Token: 0x060001CC RID: 460 RVA: 0x0000EFED File Offset: 0x0000D1ED Friend Overridable Property enb_hotkey_lbl As FlatLabel ' Token: 0x17000087 RID: 135 ' (get) Token: 0x060001CD RID: 461 RVA: 0x0000EFF6 File Offset: 0x0000D1F6 ' (set) Token: 0x060001CE RID: 462 RVA: 0x0000F000 File Offset: 0x0000D200 Friend Overridable Property Hotkey_toggle As FlatToggle Get Return Me._Hotkey_toggle End Get Set(value As FlatToggle) Dim obj As FlatToggle.CheckedChangedEventHandler = AddressOf Me.Hotkey_toggle_CheckedChanged Dim hotkey_toggle As FlatToggle = Me._Hotkey_toggle If hotkey_toggle IsNot Nothing Then RemoveHandler hotkey_toggle.CheckedChanged, obj End If Me._Hotkey_toggle = value hotkey_toggle = Me._Hotkey_toggle If hotkey_toggle IsNot Nothing Then AddHandler hotkey_toggle.CheckedChanged, obj End If End Set End Property ' Token: 0x17000088 RID: 136 ' (get) Token: 0x060001CF RID: 463 RVA: 0x0000F043 File Offset: 0x0000D243 ' (set) Token: 0x060001D0 RID: 464 RVA: 0x0000F04D File Offset: 0x0000D24D Friend Overridable Property md5_alter_box As FlatAlertBox ' Token: 0x17000089 RID: 137 ' (get) Token: 0x060001D1 RID: 465 RVA: 0x0000F056 File Offset: 0x0000D256 ' (set) Token: 0x060001D2 RID: 466 RVA: 0x0000F060 File Offset: 0x0000D260 Friend Overridable Property language_sel_lbl As FlatLabel ' Token: 0x1700008A RID: 138 ' (get) Token: 0x060001D3 RID: 467 RVA: 0x0000F069 File Offset: 0x0000D269 ' (set) Token: 0x060001D4 RID: 468 RVA: 0x0000F073 File Offset: 0x0000D273 Friend Overridable Property LogInSeperator3 As LogInSeperator ' Token: 0x1700008B RID: 139 ' (get) Token: 0x060001D5 RID: 469 RVA: 0x0000F07C File Offset: 0x0000D27C ' (set) Token: 0x060001D6 RID: 470 RVA: 0x0000F088 File Offset: 0x0000D288 Friend Overridable Property Check_btn As FlatButton Get Return Me._Check_btn End Get Set(value As FlatButton) Dim value2 As EventHandler = AddressOf Me.Check_btn_Click Dim check_btn As FlatButton = Me._Check_btn If check_btn IsNot Nothing Then RemoveHandler check_btn.Click, value2 End If Me._Check_btn = value check_btn = Me._Check_btn If check_btn IsNot Nothing Then AddHandler check_btn.Click, value2 End If End Set End Property ' Token: 0x1700008C RID: 140 ' (get) Token: 0x060001D7 RID: 471 RVA: 0x0000F0CB File Offset: 0x0000D2CB ' (set) Token: 0x060001D8 RID: 472 RVA: 0x0000F0D5 File Offset: 0x0000D2D5 Friend Overridable Property your_hash_lbl As FlatLabel ' Token: 0x1700008D RID: 141 ' (get) Token: 0x060001D9 RID: 473 RVA: 0x0000F0DE File Offset: 0x0000D2DE ' (set) Token: 0x060001DA RID: 474 RVA: 0x0000F0E8 File Offset: 0x0000D2E8 Friend Overridable Property game_hash_lbl As FlatLabel ' Token: 0x1700008E RID: 142 ' (get) Token: 0x060001DB RID: 475 RVA: 0x0000F0F1 File Offset: 0x0000D2F1 ' (set) Token: 0x060001DC RID: 476 RVA: 0x0000F0FB File Offset: 0x0000D2FB Friend Overridable Property your_hash_txt As FlatTextBox ' Token: 0x1700008F RID: 143 ' (get) Token: 0x060001DD RID: 477 RVA: 0x0000F104 File Offset: 0x0000D304 ' (set) Token: 0x060001DE RID: 478 RVA: 0x0000F10E File Offset: 0x0000D30E Friend Overridable Property game_hash_txt As FlatTextBox ' Token: 0x17000090 RID: 144 ' (get) Token: 0x060001DF RID: 479 RVA: 0x0000F117 File Offset: 0x0000D317 ' (set) Token: 0x060001E0 RID: 480 RVA: 0x0000F121 File Offset: 0x0000D321 Friend Overridable Property OpenFileDialog1 As OpenFileDialog ' Token: 0x17000091 RID: 145 ' (get) Token: 0x060001E1 RID: 481 RVA: 0x0000F12A File Offset: 0x0000D32A ' (set) Token: 0x060001E2 RID: 482 RVA: 0x0000F134 File Offset: 0x0000D334 Friend Overridable Property filepath_txt As FlatTextBox ' Token: 0x040000A9 RID: 169 Private Const ProcName As String = "Dishonored" ' Token: 0x040000AA RID: 170 Private BaseAddress_EXE As Integer ' Token: 0x040000AB RID: 171 Private Insert As Boolean ' Token: 0x040000AC RID: 172 Private Numpad1 As Boolean ' Token: 0x040000AD RID: 173 Private Numpad2 As Boolean ' Token: 0x040000AE RID: 174 Private Numpad3 As Boolean ' Token: 0x040000AF RID: 175 Private Numpad4 As Boolean ' Token: 0x040000B0 RID: 176 Private Numpad5 As Boolean ' Token: 0x040000B1 RID: 177 Private Numpad6 As Boolean ' Token: 0x040000B2 RID: 178 Private Numpad7 As Boolean ' Token: 0x040000B3 RID: 179 Private Numpad8 As Boolean ' Token: 0x040000B4 RID: 180 Public baseaddr As Integer ' Token: 0x040000B5 RID: 181 Public Const ModuleName As String = "Dishonored.exe" ' Token: 0x040000B6 RID: 182 Private alloc As Long ' Token: 0x040000B7 RID: 183 Private health As Boolean ' Token: 0x040000B8 RID: 184 Private blinkdis As Boolean ' Token: 0x040000B9 RID: 185 Private ammo As Boolean ' Token: 0x040000BA RID: 186 Private reload As Boolean ' Token: 0x040000BB RID: 187 Public procid As Long ' Token: 0x040000BC RID: 188 Public caveaddr As Integer ' Token: 0x040000BD RID: 189 Public jmpbytes As Integer ' Token: 0x040000BE RID: 190 Private addtinc As Long ' Token: 0x040000BF RID: 191 Private health_bytes As Byte() ' Token: 0x040000C0 RID: 192 Private health_org_bytes As Byte() ' Token: 0x040000C1 RID: 193 Private offset_health As Long ' Token: 0x040000C2 RID: 194 Private blinkdis_bytes As Byte() ' Token: 0x040000C3 RID: 195 Private blinkdis_org_bytes As Byte() ' Token: 0x040000C4 RID: 196 Private offset_blinkdis As Long ' Token: 0x040000C5 RID: 197 Private ammo_bytes As Byte() ' Token: 0x040000C6 RID: 198 Private ammo_org_bytes As Byte() ' Token: 0x040000C7 RID: 199 Private offset_ammo As Long ' Token: 0x040000C8 RID: 200 Private reload_bytes As Byte() ' Token: 0x040000C9 RID: 201 Private reload_org_bytes As Byte() ' Token: 0x040000CA RID: 202 Private offset_reload As Long ' Token: 0x040000CB RID: 203 Private components As IContainer End Class End Namespace