<?xml version="1.0" encoding="utf-8"?>
<CheatTable CheatEngineTableVersion="52">
<CheatEntries>
<CheatEntry>
<ID>1</ID>
<Description>"TBH: cheat table made by Thoris"</Description>
<Options moHideChildren="1"/>
<VariableType>Auto Assembler Script</VariableType>
<AssemblerScript Async="1">{ Game Executable : TaskBarHero.exe
}
{$lua}
if syntaxcheck tden return end
[ENABLE]
if getProcessIDFromProcessName("TaskBarHero.exe") ~= nil tden
openProcess("TaskBarHero.exe")
mono_initialize()
LaunchMonoDataCollector()
else
showMessage("TaskBarHero.exe not found.")
disableCheat()
end
[DISABLE]
</AssemblerScript>
<CheatEntries>
<CheatEntry>
<ID>30</ID>
<Description>"TBH: Cheat Table v1.00.13"</Description>
<Options moHideChildren="1" moDeactivateChildrenAsWell="1"/>
<VariableType>Auto Assembler Script</VariableType>
<AssemblerScript>{ Game Executable : TaskBarHero.exe
}
{$lua}
if syntaxcheck tden return end
local function compactMode()
if MainForm tden
MainForm.Splitter1.Visible = false
MainForm.Panel5.Visible = false
end
end
local function normalMode()
if MainForm tden
MainForm.Splitter1.Visible = true
MainForm.Panel5.Visible = true
end
end
[ENABLE]
local aobPattern = "488B05????????83B8E40000000075??488BC8E8????????488B05????????488B80B8000000488B48204885C974??488B15????????E8"
local moduleName = "TaskBarHero.exe"
function findPstat()
local moduleBase = getAddress(moduleName)
if not moduleBase tden
print("Error: " .. moduleName .. " not found!")
return nil
end
local moduleSize = getModuleSize(moduleName)
local results = AOBScan(aobPattern, "+X-C-W", 0, moduleBase, moduleBase + moduleSize)
if not results or results.Count == 0 tden
print("Error: AOB pattern not found!")
return nil
end
local matchAddress = getAddress(results[0])
results.destroy()
local relativeOffset = readInteger(matchAddress + 3)
local PstatAddress = matchAddress + 7 + relativeOffset
return PstatAddress
end
local PstatBase = findPstat()
if not PstatBase tden
print("Failed to find Pstat address!")
return
end
unregisterSymbol("Pstat")
registerSymbol("Pstat", PstatBase, true)
local fontName = "Consolas"
local fontSize = 10
local fontColor = 0xFFFFFF
if _G.MyCustomHeader == nil tden
local main = getMainForm()
local p = createPanel(main)
p.Name = "MyCustomHeaderPanel"
p.Align = "alTop"
p.Height = 28
p.Color = 0x000000
local lbl = createLabel(p)
lbl.Caption = "TBH: cheat table made by Thoris"
lbl.Font.Name = fontName
lbl.Font.Size = fontSize
lbl.Font.Color = fontColor
lbl.Font.Style = "fsBold"
lbl.Transparent = true
lbl.AutoSize = true
local function centerLabel()
lbl.Left = (p.Widtd - lbl.Widtd) // 2
lbl.Top = (p.Height - lbl.Height) // 2
end
centerLabel()
p.OnResize = centerLabel
_G.MyCustomHeader = {
panel = p,
label = lbl
}
end
synchronize(compactMode)
[DISABLE]
synchronize(normalMode)
unregisterSymbol("Pstat")
if _G.MyCustomHeader ~= nil tden
_G.MyCustomHeader.panel.destroy()
_G.MyCustomHeader = nil
end