AylinCE
Grandmaster Cheater Supreme
 Reputation: 37
Joined: 16 Feb 2017
Posts: 1530
|
 Posted: Wed Oct 19, 2022 11:04 am Post subject: Simple, example Trainer Code .. |
 |
|
Free ..
| Code: | if myFrm1 then myFrm1.destroy() f=nil end
myFrm1 = createForm() myFrm1.setSize(300,305)
myFrm1.Position=poDesktopCenter myFrm1.Font.Style="fsBold"
myFrm1.BorderStyle = "bsNone"
myFrm1.Caption = "AylinCE Trainers(2021)"
myFrm1.PopupMode=0--"pmAuto"
myFrm1.setLayeredAttributes(0x000100, 255, LWA_COLORKEY | LWA_ALPHA )
myFrm1.Color=0x000100
myFrm1.ShowInTaskBar="stAlways"
local frm = {}
frm.title1=createPanel(myFrm1)
frm.title1.Height=35 frm.title1.Left=5 frm.title1.Top=0 frm.title1.Width=290 frm.title1.Cursor= -22
frm.title1.BevelWidth=3 frm.title1.Color=0xFF0000
frm.title1.caption="[ My Hack Trainer V1.0 ]"
frm.title1.Font.Size=12 frm.title1.Font.Color=16776960
frm.title1.OnMouseDown = function() myFrm1.DragNow() end
---------------------------
frm.Table1=createPanel(myFrm1)
frm.Table1.Height=160 frm.Table1.Left=5 frm.Table1.Top=40 frm.Table1.Width=290
frm.Table1.BevelWidth=3 frm.Table1.Color=0xFF0000
frm.Proc1=createPanel(frm.Table1)
frm.Proc1.Height=26 frm.Proc1.Left=11 frm.Proc1.Top=10 frm.Proc1.Width=270
frm.Proc1.BevelWidth=3 frm.Proc1.Color=0x00FF00
frm.Proc1.Caption="Open Process: ..." frm.Proc1.Font.Size=12
frm.Hack1=createPanel(frm.Table1)
frm.Hack1.Height=26 frm.Hack1.Left=11 frm.Hack1.Top=54 frm.Hack1.Width=270
frm.Hack1.BevelWidth=3 frm.Hack1.Color=0x00FF00
frm.Hack1.Caption="Hack 1 [OFF]" frm.Hack1.Font.Size=12
frm.Hack2=createPanel(frm.Table1)
frm.Hack2.Height=26 frm.Hack2.Left=11 frm.Hack2.Top=86 frm.Hack2.Width=270
frm.Hack2.Caption="Hack 2 [OFF]" frm.Hack2.Font.Size=12
frm.Hack2.BevelWidth=3 frm.Hack2.Color=0x00FF00
frm.HackPnl1=createPanel(frm.Table1)
frm.HackPnl1.Height=26 frm.HackPnl1.Left=11 frm.HackPnl1.Top=118 frm.HackPnl1.Width=270
frm.HackPnl1.BevelWidth=3 frm.HackPnl1.Color=0x00FF00
frm.Hack3=createCheckBox(frm.HackPnl1)
frm.Hack3.Left=70 frm.Hack3.Top=0
frm.Hack3.Caption=" Hack 3 [OFF]" frm.Hack3.Font.Size=12
frm.Hack3.Checked=false
----------------------------
frm.Table2=createPanel(myFrm1)
frm.Table2.Height=45 frm.Table2.Left=5 frm.Table2.Top=205 frm.Table2.Width=290
frm.Table2.BevelWidth=3 frm.Table2.Color=0xFF0000
frm.Btn1=createPanel(frm.Table2)
frm.Btn1.Height=24 frm.Btn1.Left=10 frm.Btn1.Top=10 frm.Btn1.Width=70
frm.Btn1.BevelColor=16776960 frm.Btn1.Caption="DONATE"
frm.Btn1.BevelWidth=3 frm.Btn1.Color=0x00FFFF frm.Btn1.Font.Size=11
frm.Btn2=createPanel(frm.Table2)
frm.Btn2.Height=24 frm.Btn2.Left=210 frm.Btn2.Top=10 frm.Btn2.Width=70
frm.Btn2.BevelColor=16776960 frm.Btn2.Caption="Close"
frm.Btn2.BevelWidth=3 frm.Btn2.Color=0x00FFFF
----------------------------
function ButtonEffect22(name24)
name24.BevelColor=clDefault --0x00BFFF --x16FF66 --16777215
--name24.BevelInner=bvRaised
--name24.BevelOuter = [[bvRaised]]
name24.BevelWidth=3 name24.Cursor=-21
name24.OnMouseMove=function() name24.BevelColor=0xF9CA90 end --4194559
name24.OnMouseLeave=function() name24.BevelColor=clDefault end
end
frm.Hack3.OnMouseMove=function() frm.HackPnl1.BevelColor=0xF9CA90 end --4194559
frm.Hack3.OnMouseLeave=function() frm.HackPnl1.BevelColor=clDefault end
ButtonEffect22(frm.Proc1) ButtonEffect22(frm.Hack1)
ButtonEffect22(frm.Hack2) ButtonEffect22(frm.Btn1)
ButtonEffect22(frm.Btn2)
-------------------------------------------------------
function multiAOB(search,replace)
if (type(search) == 'string' and type(replace)=='string') then
local aobs = AOBScan(search,"+W-X");
if (aobs) then
-- prepare replace table;
local tn,rt,i = tonumber,{},0
for byte,id in replace:gsub('[^%w%?]+',''):gmatch('..') do
byte = tn(byte,16)
if (byte) then
rt[i] = byte;
end
i = i + 1;
end
for i=0,aobs.Count-1 do
local addr = tn(aobs.getString(i),16);
for k,v in pairs(rt) do
writeBytes(addr+k,v)
i = tonumber(i)
end
end
aobs.destroy();
return true;
end
end
return false;
end
----------------------------------------------------------------
local process_name = "chrome.exe"
frm.Hack1.Enabled=false
frm.Hack2.Enabled=false
frm.Hack3.Enabled=false
frm.Proc1.OnClick=function()
status = getProcessIDFromProcessName( process_name )
if status == nil then
--print("not attached to process "..process_name.." !!")
frm.Proc1.Caption="Process: not found!"
else
openProcess(process_name)
pid = getOpenedProcessID() or nil
frm.Hack1.Enabled=true
frm.Hack2.Enabled=true
frm.Hack3.Enabled=true
--print("attached to process - "..pid)
frm.Proc1.Caption="Process PID: " ..pid
end
end
frm.Hack1.OnClick=function()
frm.Hack1.Enabled=false
res = multiAOB("E8 03 00 00 00 00 00 00","E9 03 00 00 00 00 00 00")
if res==true then
frm.Hack1.Enabled=true
frm.Hack1.Caption="Hack 1 [ON]"
else
frm.Hack1.Enabled=true
frm.Hack1.Caption="Hack 1 [ERROR!]"
end
end
frm.Hack2.OnClick=function()
frm.Hack2.Enabled=false
res = multiAOB("E9 03 00 00 00 00 00 00","E8 03 00 00 00 00 00 00")
if res==true then
frm.Hack2.Enabled=true
frm.Hack2.Caption="Hack 2 [ON]"
else
frm.Hack2.Enabled=true
frm.Hack2.Caption="Hack 2 [ERROR!]"
end
end
frm.Hack3.OnChange=function()
myScript = [[[ENABLE]
Aobscan(_code1,E8 03 00 00 00 00 00 00)
_code1:
db E9 03 00 00 00 00 00 00
[DISABLE]
]]
frm.Hack3.Enabled=false
if frm.Hack3.Checked==true then
res = autoAssemble(myScript)
if res==true then
frm.Hack3.Enabled=true
frm.Hack3.Caption="Hack 3 [ON]"
else
frm.Hack3.Enabled=true
frm.Hack3.Caption="Hack 3 [ERROR!]"
end
else
frm.Hack3.Enabled=true
frm.Hack3.Caption="Hack 3 [OFF]"
end
end
----------------------------------------------------------------
frm.Btn1.OnClick=function()
showMessage("Thanks for Donations.")
shellExecute("www.paypal.me/SelcukAyar")
end
frm.Btn2.OnClick=function()
closeCE()
return caFree
end |
Enjoy it!
_________________
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
