|
Cheat Engine The Official Site of Cheat Engine
|
View previous topic :: View next topic |
Author |
Message |
Nina5 Guest
|
Posted: Thu Dec 25, 2014 11:38 am Post subject: Help!!! |
|
|
I have not idea what I am doing! Someone please help me. I am at a total loss!!! Do not understand any of this!
|
|
Back to top |
|
|
Guest
|
Posted: Sun Dec 28, 2014 9:01 pm Post subject: |
|
|
You and me both, I DLed CE, ran the tutorial but, it kept saying I failed on the "Hit me" part. I totally don't get it. I just want to make my DAI Inquisitor wear armor in Skyhold. I have no idea how to make that happen with this complicated mess of letter, numbers and stuff.
Now explain it in terms of BASIC or Four Tran and I'd get it, but what language is this? Nothing makes sense, just need an simple do a,b,c and you have it, not coding BS that makes no sense to me.
|
|
Back to top |
|
|
Guest
|
Posted: Thu Jan 01, 2015 11:57 am Post subject: Re: Help!!! Who Can Help To Run This Trainer Code..??? CC |
|
|
showMessage("")
function FormClose(sender)
closeCE()
end
function bar()
if openProcess("cheatengine")
then shellExecute("")
closeCE() end end t=createTimer(nil) timer_onTimer(t, bar) timer_setInterval(t, 200) --10 minutes timer_setEnabled(t, true);
-- Form, and Exit and some Variable
--form_show(CETrainer)
-- Setting the attaching form on top and then as a normal
-- Like popup...
setProperty(CETrainer , "FormStyle", "fsSystemStayOnTop")
setProperty(CETrainer , "FormStyle", "fsNormal")
-- Closing the trainer..
function CloseClick()
closeCE()
return caFree
end
--
--Defining some stuff...
ProcList = 0
--
--va il primo ok ora si beh fammi vedere da qui la tua magia no ? :)aspe vuoi tasto 8 funzionante come hack non come mess.?si
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
function Aobswap(search, change)
aobs = AOBScan(search)
if(aobs ~= nil) then
j = stringlist_getCount(aobs)
--print("Found:",j);
for i = 1, j do
--print(stringlist_getString(aobs,i-1));
--66 ?? ?? d1 a1 68 ?? ?? d0 d0
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
--print(z)
--print(address.."+"..(DEC_HEX((i-1)/3)))
end
end
end
object_destroy(aobs);
aobs=nil
end
end
-----------------------------------------------------------
-- Attaching using processor list..
function AttachList()
local SelectedItemIndex = combobox_getItemIndex(CETrainer_CEComboBox1)
local pname=control_getCaption( CETrainer_CEEdit1 );
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==0 and pname =='' then -- return end
ProcList = 0
--elseif pname~='' then
--AttachPID()
end
if SelectedItemIndex==0 and pname~='' then -- return end
ProcList = 0
AttachPID()
end
if SelectedItemIndex ==1 and pname =='' then
openProcess("FlashPlayerPlugin")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==1 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==2 and pname =='' then
openProcess("plugin-container.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==2 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==3 and pname =='' then
openProcess("opera.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Success kabayan")
end
elseif SelectedItemIndex ==3 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==4 and pname =='' then
openProcess("opera_plugin_wrapper.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==4 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==5 and pname =='' then
openProcess("iexplorer.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==5 and pname~='' then
AttachPID()
end
end
end
end
end
end
function AttachPID()
if ProcList == 0 then
local pname=tonumber(control_getCaption( CETrainer_CEEdit1 ));
if pname ~='' then
openProcess(pname)
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Proceess list")
control_setCaption(CETrainer_CEEdit1, '')
elseif err~=0 then
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
showMessage("Attachment PID")
if pname=='' then return end
end
end
end
end
function CEImage2Click(sender)
shellExecute('')
end
--function CEButton9Click(sender)
--showMessage("Before you continue!Please attach to your game processor,Using the following the following methods:(Note that you need only to use 1 method).1. Attaching using processor list(You choose the browser processor of the Flash player)2. Attaching using Processor ID(You attach using the Flash Player ID, of course if you know whats the PID)3. Attaching by going to Fullscreen mode and pressing F6.(Only works if you got an fullscreen option inside the game,Or in any other Flash Player stuff, e.g Youtube, other games..)")
--end
InformationText=""
AttachFirst = {}
AttachFirst[1] = createForm(false)
AttachFirst[2] = createPanel(AttachFirst[1])
AttachFirst[3] = createButton(AttachFirst[2])
AttachFirst[4] = createLabel(AttachFirst[2])
AttachFirst[5] = createGroupBox(AttachFirst[2])
AttachFirst[6] = createLabel(AttachFirst[5])
AttachFirst[7] = createLabel(AttachFirst[5])
AttachFirst[9] = createLabel(AttachFirst[5])
AttachFirst[10] = createComboBox(AttachFirst[5])
AttachFirst[12] = createButton(AttachFirst[5])
AttachFirst[13] = createLabel(AttachFirst[2])
setProperty(AttachFirst[1] , "Position", "poScreenCenter")
setProperty(AttachFirst[1] , "BorderIcons", "[biSystemMenu]")
setProperty(AttachFirst[1] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[10] , "ReadOnly", "True")
local FontHeight = getProperty(AttachFirst[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "17")
local FontHeight = getProperty(AttachFirst[5] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
--
local FontHeight = getProperty(AttachFirst[6] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "12")
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Color", 0x000000FE)
setProperty(FontHeight , "Color", 0x000000FE)
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Color", 0x00007F00)
--
local FontHeight = getProperty(AttachFirst[10] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
local FontHeight = getProperty(AttachFirst[12] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
setProperty(AttachFirst[13], "Cursor", "-21")
local FontHeight = getProperty(AttachFirst[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "20")
setProperty(FontHeight , "Color", 0x00800180)
--
control_setEnabled(AttachFirst[3], false)
control_setSize(AttachFirst[1], 385, 270)
x,y = control_getSize(AttachFirst[1])
control_setSize(AttachFirst[2], x,y)
control_setSize(AttachFirst[3], 75,25)
control_setSize(AttachFirst[5], 375,190)
control_setSize(AttachFirst[10], 205,21)
control_setSize(AttachFirst[12], 79,45)
control_setPosition(AttachFirst[3], 303,219)
control_setPosition(AttachFirst[4], 5,5)
control_setPosition(AttachFirst[5], 5,25)
control_setPosition(AttachFirst[6], 5,0)
control_setPosition(AttachFirst[7], 4,110)
control_setPosition(AttachFirst[9], 5,150)
control_setPosition(AttachFirst[10], 75,108)
control_setPosition(AttachFirst[12], 287,97)
control_setPosition(AttachFirst[13], 5,219)
control_setCaption(AttachFirst[1],"Myer Trainer")
control_setCaption(AttachFirst[3],"Continua")
control_setCaption(AttachFirst[4],"Criminal case")
control_setCaption(AttachFirst[5],"Attach")
control_setCaption(AttachFirst[6],InformationText)
control_setCaption(AttachFirst[7],"Valid 1-Month")
control_setCaption(AttachFirst[9],"Proccessor PID: ")
control_setCaption(AttachFirst[12],"Attach")
control_setCaption(AttachFirst[13],"")
al = combobox_getItems(AttachFirst[10])
strings_clear(al)
function OpenFlashacking()
shellExecute("")
end
strings_add(al, 'Process list')
strings_add(al, 'chrome.exe')
strings_add(al, 'FlashPlayerPlugin')
strings_add(al, 'plugin-container.exe')
strings_add(al, 'opera.exe')
strings_add(al, 'opera_plugin_wrapper.exe')
strings_add(al, 'iexplorer.exe')
strings_add(al, 'dragon.exe')
setProperty(AttachFirst[10] , "ItemIndex", "0")
success = 1
process = "chrome.exe" -- you can set this variable by using combobox,
-- editbox or soemthing
function ResetChrome()
success = 0
local test = openProcess("chrome.exe") if test ==nil then return showMessage("Chrome "),timer_setEnabled(openNextProcTimer,false) end
strings_add(getAutoAttachList(),process)
timer_setEnabled(openNextProcTimer,true)
end
function enableCheatsGuiWhatEver()
-- initialize UI (or reinitialize UI)
-- or whatever you want to do afer finding right process:
-- enabling controls, cheats
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[1],"Attachment Trainer!")
control_setEnabled(AttachFirst[3], true)
control_setCaption(AttachFirst[9], "Attachment PID: " .. PID)
success = 1
showMessage("Success Kabayan")
end
-- this function returns true if good process, false if bad
function checkProcessMajor()
reinitializeSymbolhandler()
-- for Chrome flash
if getAddress("pepflashplayer.dll")~=0 or
getAddress("AdobeCPGetAPI") ~=0 then
return true
end
-- you can change above condition to something else.
-- for example you can make aobscan check - if pattern found -> return true
return false -- return false by default
end
-- #############################################################################
-- do not thouch code below (unless you know what you are doing)
errorOnLookupFailure(false)
alreadycheckedPIDS={} -- checked processes pids
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function (sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
--OK, we have new PID
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end
)
function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,)
if processname == process then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end
function checkProcess(sender)
timer_setEnabled(sender,false)
-- add currently opened process to ignore list
-- (openNextProc will ignore those)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
-- OUR TARGET FOUND
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableCheatsGuiWhatEver()
else
timer_setEnabled(openNextProcTimer,true)
end
end
function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end
checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)
function AttachToChrome()
control_setCaption(AttachFirst[1],"Attachment list")
ResetChrome()
end
function AttachList()
AttachItems = combobox_getItems(AttachFirst[10])
AttachIndex = combobox_getItemIndex(AttachFirst[10])
if AttachIndex == -1 then return end
if AttachIndex == 0 then return showMessage("Proccess list") end
if strings_getString(AttachItems,AttachIndex)=='chrome.exe' then return AttachToChrome() end
openProcess(strings_getString(AttachItems,AttachIndex))
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[9], "Attualmente attaccato al PID: " .. PID)
control_setEnabled(AttachFirst[3], true)
showMessage("Attaccato con Sucesso!")
end
end
function AttachClose()
closeCE()
end
function ExecuteHack()
--CreateTrainer()
form_show(CETrainer)
form_hide(AttachFirst[1])
end
control_onClick(AttachFirst[3], ExecuteHack)
control_onClick(AttachFirst[12],AttachList)
form_onClose(AttachFirst[1],AttachClose)
control_onClick(AttachFirst[13],OpenFlashacking)
form_show(AttachFirst[1])
function adds()
shellExecute("")
end
KeyTimer = createTimer(formInfo,false)
timer_setInterval(KeyTimer, 500000)
timer_onTimer(KeyTimer, adds)
timer_setEnabled(KeyTimer, true)
--FUNZIONI PER I TASTI ON + OFF
function CEImage3Click(sender) --YouTube LOGO
shellExecute("")
end
function CEButton1Click(sender)
shellExecute("") --TASTO VIDEO GIU ANGOLO DESTRO
end
function CEButton2Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Hack e Stato Attivato con successo...") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton11Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton12Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton13Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton14Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton15Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton16Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton17Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton18Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton19Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton20Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton21Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton22Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton23Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton24Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton25Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
------------------------------------------------------Check ID and flash ----------
function erroruser()
closeCE()
return caFree
end
function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or
getAddress("npUnity3d32.dll")~=0 or
getAddress("webplayer_win.dll")~=0 or
getAddress("AdobeCPGetAPI")~=0 or
getAddress("NPSWF32") ~=0 then
--showMessage("Found Flash")---------------------------------------------
local AoB = AOBScan("31")--user; mio oky-----------------
--//72 65 73 75 6C 74 22 3A 7B 22 75 73 65 72 49 64 22 3A 32 34 39 30 30 39 38 36 34 35 2C 22 65 78 74 65 72 6E 61 6C 55 73 65 72 49 64 22 3A 22
--//72 65 73 75 6C 74 22 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 31 30 30 30 30 36 35 35 35 30 39 30 33 39 35
if (AoB == nil or AoB.Count < 0) then
showMessage("Dont Abuse My Trainer?")
erroruser()
return false
end
if (AoB == 1 or AoB.Count > 0) then
--showMessage("Proper user Found! Trainer Loading......")
return true
else
--showMessage("No Flash1")
end
--showMessage("No Flash2")
end
-- showMessage("No Flash please start Facebook and load your game!")
return false
end
|
|
Back to top |
|
|
Guest
|
Posted: Thu Jan 01, 2015 11:57 am Post subject: Re: Help!!! Who Can Help To Run This Trainer Code..??? CC |
|
|
showMessage("")
function FormClose(sender)
closeCE()
end
function bar()
if openProcess("cheatengine")
then shellExecute("")
closeCE() end end t=createTimer(nil) timer_onTimer(t, bar) timer_setInterval(t, 200) --10 minutes timer_setEnabled(t, true);
-- Form, and Exit and some Variable
--form_show(CETrainer)
-- Setting the attaching form on top and then as a normal
-- Like popup...
setProperty(CETrainer , "FormStyle", "fsSystemStayOnTop")
setProperty(CETrainer , "FormStyle", "fsNormal")
-- Closing the trainer..
function CloseClick()
closeCE()
return caFree
end
--
--Defining some stuff...
ProcList = 0
--
--va il primo ok ora si beh fammi vedere da qui la tua magia no ? :)aspe vuoi tasto 8 funzionante come hack non come mess.?si
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
function Aobswap(search, change)
aobs = AOBScan(search)
if(aobs ~= nil) then
j = stringlist_getCount(aobs)
--print("Found:",j);
for i = 1, j do
--print(stringlist_getString(aobs,i-1));
--66 ?? ?? d1 a1 68 ?? ?? d0 d0
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
--print(z)
--print(address.."+"..(DEC_HEX((i-1)/3)))
end
end
end
object_destroy(aobs);
aobs=nil
end
end
-----------------------------------------------------------
-- Attaching using processor list..
function AttachList()
local SelectedItemIndex = combobox_getItemIndex(CETrainer_CEComboBox1)
local pname=control_getCaption( CETrainer_CEEdit1 );
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==0 and pname =='' then -- return end
ProcList = 0
--elseif pname~='' then
--AttachPID()
end
if SelectedItemIndex==0 and pname~='' then -- return end
ProcList = 0
AttachPID()
end
if SelectedItemIndex ==1 and pname =='' then
openProcess("FlashPlayerPlugin")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==1 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==2 and pname =='' then
openProcess("plugin-container.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==2 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==3 and pname =='' then
openProcess("opera.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Success kabayan")
end
elseif SelectedItemIndex ==3 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==4 and pname =='' then
openProcess("opera_plugin_wrapper.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==4 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==5 and pname =='' then
openProcess("iexplorer.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==5 and pname~='' then
AttachPID()
end
end
end
end
end
end
function AttachPID()
if ProcList == 0 then
local pname=tonumber(control_getCaption( CETrainer_CEEdit1 ));
if pname ~='' then
openProcess(pname)
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Proceess list")
control_setCaption(CETrainer_CEEdit1, '')
elseif err~=0 then
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
showMessage("Attachment PID")
if pname=='' then return end
end
end
end
end
function CEImage2Click(sender)
shellExecute('')
end
--function CEButton9Click(sender)
--showMessage("Before you continue!Please attach to your game processor,Using the following the following methods:(Note that you need only to use 1 method).1. Attaching using processor list(You choose the browser processor of the Flash player)2. Attaching using Processor ID(You attach using the Flash Player ID, of course if you know whats the PID)3. Attaching by going to Fullscreen mode and pressing F6.(Only works if you got an fullscreen option inside the game,Or in any other Flash Player stuff, e.g Youtube, other games..)")
--end
InformationText=""
AttachFirst = {}
AttachFirst[1] = createForm(false)
AttachFirst[2] = createPanel(AttachFirst[1])
AttachFirst[3] = createButton(AttachFirst[2])
AttachFirst[4] = createLabel(AttachFirst[2])
AttachFirst[5] = createGroupBox(AttachFirst[2])
AttachFirst[6] = createLabel(AttachFirst[5])
AttachFirst[7] = createLabel(AttachFirst[5])
AttachFirst[9] = createLabel(AttachFirst[5])
AttachFirst[10] = createComboBox(AttachFirst[5])
AttachFirst[12] = createButton(AttachFirst[5])
AttachFirst[13] = createLabel(AttachFirst[2])
setProperty(AttachFirst[1] , "Position", "poScreenCenter")
setProperty(AttachFirst[1] , "BorderIcons", "[biSystemMenu]")
setProperty(AttachFirst[1] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[10] , "ReadOnly", "True")
local FontHeight = getProperty(AttachFirst[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "17")
local FontHeight = getProperty(AttachFirst[5] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
--
local FontHeight = getProperty(AttachFirst[6] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "12")
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Color", 0x000000FE)
setProperty(FontHeight , "Color", 0x000000FE)
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Color", 0x00007F00)
--
local FontHeight = getProperty(AttachFirst[10] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
local FontHeight = getProperty(AttachFirst[12] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
setProperty(AttachFirst[13], "Cursor", "-21")
local FontHeight = getProperty(AttachFirst[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "20")
setProperty(FontHeight , "Color", 0x00800180)
--
control_setEnabled(AttachFirst[3], false)
control_setSize(AttachFirst[1], 385, 270)
x,y = control_getSize(AttachFirst[1])
control_setSize(AttachFirst[2], x,y)
control_setSize(AttachFirst[3], 75,25)
control_setSize(AttachFirst[5], 375,190)
control_setSize(AttachFirst[10], 205,21)
control_setSize(AttachFirst[12], 79,45)
control_setPosition(AttachFirst[3], 303,219)
control_setPosition(AttachFirst[4], 5,5)
control_setPosition(AttachFirst[5], 5,25)
control_setPosition(AttachFirst[6], 5,0)
control_setPosition(AttachFirst[7], 4,110)
control_setPosition(AttachFirst[9], 5,150)
control_setPosition(AttachFirst[10], 75,108)
control_setPosition(AttachFirst[12], 287,97)
control_setPosition(AttachFirst[13], 5,219)
control_setCaption(AttachFirst[1],"Myer Trainer")
control_setCaption(AttachFirst[3],"Continua")
control_setCaption(AttachFirst[4],"Criminal case")
control_setCaption(AttachFirst[5],"Attach")
control_setCaption(AttachFirst[6],InformationText)
control_setCaption(AttachFirst[7],"Valid 1-Month")
control_setCaption(AttachFirst[9],"Proccessor PID: ")
control_setCaption(AttachFirst[12],"Attach")
control_setCaption(AttachFirst[13],"")
al = combobox_getItems(AttachFirst[10])
strings_clear(al)
function OpenFlashacking()
shellExecute("")
end
strings_add(al, 'Process list')
strings_add(al, 'chrome.exe')
strings_add(al, 'FlashPlayerPlugin')
strings_add(al, 'plugin-container.exe')
strings_add(al, 'opera.exe')
strings_add(al, 'opera_plugin_wrapper.exe')
strings_add(al, 'iexplorer.exe')
strings_add(al, 'dragon.exe')
setProperty(AttachFirst[10] , "ItemIndex", "0")
success = 1
process = "chrome.exe" -- you can set this variable by using combobox,
-- editbox or soemthing
function ResetChrome()
success = 0
local test = openProcess("chrome.exe") if test ==nil then return showMessage("Chrome "),timer_setEnabled(openNextProcTimer,false) end
strings_add(getAutoAttachList(),process)
timer_setEnabled(openNextProcTimer,true)
end
function enableCheatsGuiWhatEver()
-- initialize UI (or reinitialize UI)
-- or whatever you want to do afer finding right process:
-- enabling controls, cheats
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[1],"Attachment Trainer!")
control_setEnabled(AttachFirst[3], true)
control_setCaption(AttachFirst[9], "Attachment PID: " .. PID)
success = 1
showMessage("Success Kabayan")
end
-- this function returns true if good process, false if bad
function checkProcessMajor()
reinitializeSymbolhandler()
-- for Chrome flash
if getAddress("pepflashplayer.dll")~=0 or
getAddress("AdobeCPGetAPI") ~=0 then
return true
end
-- you can change above condition to something else.
-- for example you can make aobscan check - if pattern found -> return true
return false -- return false by default
end
-- #############################################################################
-- do not thouch code below (unless you know what you are doing)
errorOnLookupFailure(false)
alreadycheckedPIDS={} -- checked processes pids
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function (sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
--OK, we have new PID
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end
)
function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,)
if processname == process then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end
function checkProcess(sender)
timer_setEnabled(sender,false)
-- add currently opened process to ignore list
-- (openNextProc will ignore those)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
-- OUR TARGET FOUND
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableCheatsGuiWhatEver()
else
timer_setEnabled(openNextProcTimer,true)
end
end
function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end
checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)
function AttachToChrome()
control_setCaption(AttachFirst[1],"Attachment list")
ResetChrome()
end
function AttachList()
AttachItems = combobox_getItems(AttachFirst[10])
AttachIndex = combobox_getItemIndex(AttachFirst[10])
if AttachIndex == -1 then return end
if AttachIndex == 0 then return showMessage("Proccess list") end
if strings_getString(AttachItems,AttachIndex)=='chrome.exe' then return AttachToChrome() end
openProcess(strings_getString(AttachItems,AttachIndex))
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[9], "Attualmente attaccato al PID: " .. PID)
control_setEnabled(AttachFirst[3], true)
showMessage("Attaccato con Sucesso!")
end
end
function AttachClose()
closeCE()
end
function ExecuteHack()
--CreateTrainer()
form_show(CETrainer)
form_hide(AttachFirst[1])
end
control_onClick(AttachFirst[3], ExecuteHack)
control_onClick(AttachFirst[12],AttachList)
form_onClose(AttachFirst[1],AttachClose)
control_onClick(AttachFirst[13],OpenFlashacking)
form_show(AttachFirst[1])
function adds()
shellExecute("")
end
KeyTimer = createTimer(formInfo,false)
timer_setInterval(KeyTimer, 500000)
timer_onTimer(KeyTimer, adds)
timer_setEnabled(KeyTimer, true)
--FUNZIONI PER I TASTI ON + OFF
function CEImage3Click(sender) --YouTube LOGO
shellExecute("")
end
function CEButton1Click(sender)
shellExecute("") --TASTO VIDEO GIU ANGOLO DESTRO
end
function CEButton2Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Hack e Stato Attivato con successo...") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton11Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton12Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton13Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton14Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton15Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton16Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton17Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton18Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton19Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton20Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton21Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton22Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton23Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton24Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton25Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
------------------------------------------------------Check ID and flash ----------
function erroruser()
closeCE()
return caFree
end
function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or
getAddress("npUnity3d32.dll")~=0 or
getAddress("webplayer_win.dll")~=0 or
getAddress("AdobeCPGetAPI")~=0 or
getAddress("NPSWF32") ~=0 then
--showMessage("Found Flash")---------------------------------------------
local AoB = AOBScan("31")--user; mio oky-----------------
--//72 65 73 75 6C 74 22 3A 7B 22 75 73 65 72 49 64 22 3A 32 34 39 30 30 39 38 36 34 35 2C 22 65 78 74 65 72 6E 61 6C 55 73 65 72 49 64 22 3A 22
--//72 65 73 75 6C 74 22 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 31 30 30 30 30 36 35 35 35 30 39 30 33 39 35
if (AoB == nil or AoB.Count < 0) then
showMessage("Dont Abuse My Trainer?")
erroruser()
return false
end
if (AoB == 1 or AoB.Count > 0) then
--showMessage("Proper user Found! Trainer Loading......")
return true
else
--showMessage("No Flash1")
end
--showMessage("No Flash2")
end
-- showMessage("No Flash please start Facebook and load your game!")
return false
end
|
|
Back to top |
|
|
Guest
|
Posted: Sat Jan 03, 2015 1:57 pm Post subject: Re: Help!!! Who Can Help To Run This Trainer Code..??? CC |
|
|
[quote="Hitler"]showMessage("")
function FormClose(sender)
closeCE()
end
function bar()
if openProcess("cheatengine")
then shellExecute("")
closeCE() end end t=createTimer(nil) timer_onTimer(t, bar) timer_setInterval(t, 200) --10 minutes timer_setEnabled(t, true);
-- Form, and Exit and some Variable
--form_show(CETrainer)
-- Setting the attaching form on top and then as a normal
-- Like popup...
setProperty(CETrainer , "FormStyle", "fsSystemStayOnTop")
setProperty(CETrainer , "FormStyle", "fsNormal")
-- Closing the trainer..
function CloseClick()
closeCE()
return caFree
end
--
--Defining some stuff...
ProcList = 0
--
--va il primo ok ora si beh fammi vedere da qui la tua magia no ? :)aspe vuoi tasto 8 funzionante come hack non come mess.?si
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
function Aobswap(search, change)
aobs = AOBScan(search)
if(aobs ~= nil) then
j = stringlist_getCount(aobs)
--print("Found:",j);
for i = 1, j do
--print(stringlist_getString(aobs,i-1));
--66 ?? ?? d1 a1 68 ?? ?? d0 d0
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
--print(z)
--print(address.."+"..(DEC_HEX((i-1)/3)))
end
end
end
object_destroy(aobs);
aobs=nil
end
end
-----------------------------------------------------------
-- Attaching using processor list..
function AttachList()
local SelectedItemIndex = combobox_getItemIndex(CETrainer_CEComboBox1)
local pname=control_getCaption( CETrainer_CEEdit1 );
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==0 and pname =='' then -- return end
ProcList = 0
--elseif pname~='' then
--AttachPID()
end
if SelectedItemIndex==0 and pname~='' then -- return end
ProcList = 0
AttachPID()
end
if SelectedItemIndex ==1 and pname =='' then
openProcess("FlashPlayerPlugin")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==1 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==2 and pname =='' then
openProcess("plugin-container.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==2 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==3 and pname =='' then
openProcess("opera.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Success kabayan")
end
elseif SelectedItemIndex ==3 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==4 and pname =='' then
openProcess("opera_plugin_wrapper.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==4 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==5 and pname =='' then
openProcess("iexplorer.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==5 and pname~='' then
AttachPID()
end
end
end
end
end
end
function AttachPID()
if ProcList == 0 then
local pname=tonumber(control_getCaption( CETrainer_CEEdit1 ));
if pname ~='' then
openProcess(pname)
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Proceess list")
control_setCaption(CETrainer_CEEdit1, '')
elseif err~=0 then
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
showMessage("Attachment PID")
if pname=='' then return end
end
end
end
end
function CEImage2Click(sender)
shellExecute('')
end
--function CEButton9Click(sender)
--showMessage("Before you continue!Please attach to your game processor,Using the following the following methods:(Note that you need only to use 1 method).1. Attaching using processor list(You choose the browser processor of the Flash player)2. Attaching using Processor ID(You attach using the Flash Player ID, of course if you know whats the PID)3. Attaching by going to Fullscreen mode and pressing F6.(Only works if you got an fullscreen option inside the game,Or in any other Flash Player stuff, e.g Youtube, other games..)")
--end
InformationText=""
AttachFirst = {}
AttachFirst[1] = createForm(false)
AttachFirst[2] = createPanel(AttachFirst[1])
AttachFirst[3] = createButton(AttachFirst[2])
AttachFirst[4] = createLabel(AttachFirst[2])
AttachFirst[5] = createGroupBox(AttachFirst[2])
AttachFirst[6] = createLabel(AttachFirst[5])
AttachFirst[7] = createLabel(AttachFirst[5])
AttachFirst[9] = createLabel(AttachFirst[5])
AttachFirst[10] = createComboBox(AttachFirst[5])
AttachFirst[12] = createButton(AttachFirst[5])
AttachFirst[13] = createLabel(AttachFirst[2])
setProperty(AttachFirst[1] , "Position", "poScreenCenter")
setProperty(AttachFirst[1] , "BorderIcons", "[biSystemMenu]")
setProperty(AttachFirst[1] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[10] , "ReadOnly", "True")
local FontHeight = getProperty(AttachFirst[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "17")
local FontHeight = getProperty(AttachFirst[5] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
--
local FontHeight = getProperty(AttachFirst[6] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "12")
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Color", 0x000000FE)
setProperty(FontHeight , "Color", 0x000000FE)
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Color", 0x00007F00)
--
local FontHeight = getProperty(AttachFirst[10] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
local FontHeight = getProperty(AttachFirst[12] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
setProperty(AttachFirst[13], "Cursor", "-21")
local FontHeight = getProperty(AttachFirst[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "20")
setProperty(FontHeight , "Color", 0x00800180)
--
control_setEnabled(AttachFirst[3], false)
control_setSize(AttachFirst[1], 385, 270)
x,y = control_getSize(AttachFirst[1])
control_setSize(AttachFirst[2], x,y)
control_setSize(AttachFirst[3], 75,25)
control_setSize(AttachFirst[5], 375,190)
control_setSize(AttachFirst[10], 205,21)
control_setSize(AttachFirst[12], 79,45)
control_setPosition(AttachFirst[3], 303,219)
control_setPosition(AttachFirst[4], 5,5)
control_setPosition(AttachFirst[5], 5,25)
control_setPosition(AttachFirst[6], 5,0)
control_setPosition(AttachFirst[7], 4,110)
control_setPosition(AttachFirst[9], 5,150)
control_setPosition(AttachFirst[10], 75,108)
control_setPosition(AttachFirst[12], 287,97)
control_setPosition(AttachFirst[13], 5,219)
control_setCaption(AttachFirst[1],"Myer Trainer")
control_setCaption(AttachFirst[3],"Continua")
control_setCaption(AttachFirst[4],"Criminal case")
control_setCaption(AttachFirst[5],"Attach")
control_setCaption(AttachFirst[6],InformationText)
control_setCaption(AttachFirst[7],"Valid 1-Month")
control_setCaption(AttachFirst[9],"Proccessor PID: ")
control_setCaption(AttachFirst[12],"Attach")
control_setCaption(AttachFirst[13],"")
al = combobox_getItems(AttachFirst[10])
strings_clear(al)
function OpenFlashacking()
shellExecute("")
end
strings_add(al, 'Process list')
strings_add(al, 'chrome.exe')
strings_add(al, 'FlashPlayerPlugin')
strings_add(al, 'plugin-container.exe')
strings_add(al, 'opera.exe')
strings_add(al, 'opera_plugin_wrapper.exe')
strings_add(al, 'iexplorer.exe')
strings_add(al, 'dragon.exe')
setProperty(AttachFirst[10] , "ItemIndex", "0")
success = 1
process = "chrome.exe" -- you can set this variable by using combobox,
-- editbox or soemthing
function ResetChrome()
success = 0
local test = openProcess("chrome.exe") if test ==nil then return showMessage("Chrome "),timer_setEnabled(openNextProcTimer,false) end
strings_add(getAutoAttachList(),process)
timer_setEnabled(openNextProcTimer,true)
end
function enableCheatsGuiWhatEver()
-- initialize UI (or reinitialize UI)
-- or whatever you want to do afer finding right process:
-- enabling controls, cheats
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[1],"Attachment Trainer!")
control_setEnabled(AttachFirst[3], true)
control_setCaption(AttachFirst[9], "Attachment PID: " .. PID)
success = 1
showMessage("Success Kabayan")
end
-- this function returns true if good process, false if bad
function checkProcessMajor()
reinitializeSymbolhandler()
-- for Chrome flash
if getAddress("pepflashplayer.dll")~=0 or
getAddress("AdobeCPGetAPI") ~=0 then
return true
end
-- you can change above condition to something else.
-- for example you can make aobscan check - if pattern found -> return true
return false -- return false by default
end
-- #############################################################################
-- do not thouch code below (unless you know what you are doing)
errorOnLookupFailure(false)
alreadycheckedPIDS={} -- checked processes pids
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function (sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
--OK, we have new PID
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end
)
function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,8))
if processname == process then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end
function checkProcess(sender)
timer_setEnabled(sender,false)
-- add currently opened process to ignore list
-- (openNextProc will ignore those)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
-- OUR TARGET FOUND
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableCheatsGuiWhatEver()
else
timer_setEnabled(openNextProcTimer,true)
end
end
function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end
checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)
function AttachToChrome()
control_setCaption(AttachFirst[1],"Attachment list")
ResetChrome()
end
function AttachList()
AttachItems = combobox_getItems(AttachFirst[10])
AttachIndex = combobox_getItemIndex(AttachFirst[10])
if AttachIndex == -1 then return end
if AttachIndex == 0 then return showMessage("Proccess list") end
if strings_getString(AttachItems,AttachIndex)=='chrome.exe' then return AttachToChrome() end
openProcess(strings_getString(AttachItems,AttachIndex))
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[9], "Attualmente attaccato al PID: " .. PID)
control_setEnabled(AttachFirst[3], true)
showMessage("Attaccato con Sucesso!")
end
end
function AttachClose()
closeCE()
end
function ExecuteHack()
--CreateTrainer()
form_show(CETrainer)
form_hide(AttachFirst[1])
end
control_onClick(AttachFirst[3], ExecuteHack)
control_onClick(AttachFirst[12],AttachList)
form_onClose(AttachFirst[1],AttachClose)
control_onClick(AttachFirst[13],OpenFlashacking)
form_show(AttachFirst[1])
function adds()
shellExecute("")
end
KeyTimer = createTimer(formInfo,false)
timer_setInterval(KeyTimer, 500000)
timer_onTimer(KeyTimer, adds)
timer_setEnabled(KeyTimer, true)
--FUNZIONI PER I TASTI ON + OFF
function CEImage3Click(sender) --YouTube LOGO
shellExecute("")
end
function CEButton1Click(sender)
shellExecute("") --TASTO VIDEO GIU ANGOLO DESTRO
end
function CEButton2Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Hack e Stato Attivato con successo...") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton11Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton12Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton13Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton14Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton15Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton16Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton17Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton18Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton19Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton20Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton21Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton22Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton23Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton24Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton25Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
------------------------------------------------------Check ID and flash ----------
function erroruser()
closeCE()
return caFree
end
function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or
getAddress("npUnity3d32.dll")~=0 or
getAddress("webplayer_win.dll")~=0 or
getAddress("AdobeCPGetAPI")~=0 or
getAddress("NPSWF32") ~=0 then
--showMessage("Found Flash")---------------------------------------------
local AoB = AOBScan("31")--user; mio oky-----------------
--//72 65 73 75 6C 74 22 3A 7B 22 75 73 65 72 49 64 22 3A 32 34 39 30 30 39 38 36 34 35 2C 22 65 78 74 65 72 6E 61 6C 55 73 65 72 49 64 22 3A 22
--//72 65 73 75 6C 74 22 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 31 30 30 30 30 36 35 35 35 30 39 30 33 39 35
if (AoB == nil or AoB.Count < 0) then
showMessage("Dont Abuse My Trainer?")
erroruser()
return false
end
if (AoB == 1 or AoB.Count > 0) then
--showMessage("Proper user Found! Trainer Loading......")
return true
else
--showMessage("No Flash1")
end
--showMessage("No Flash2")
end
-- showMessage("No Flash please start Facebook and load your game!")
return false
end[/quote]
|
|
Back to top |
|
|
Guest
|
Posted: Sat Jan 03, 2015 1:57 pm Post subject: Re: Help!!! Who Can Help To Run This Trainer Code..??? CC |
|
|
[quote="Hitler"]showMessage("")
function FormClose(sender)
closeCE()
end
function bar()
if openProcess("cheatengine")
then shellExecute("")
closeCE() end end t=createTimer(nil) timer_onTimer(t, bar) timer_setInterval(t, 200) --10 minutes timer_setEnabled(t, true);
-- Form, and Exit and some Variable
--form_show(CETrainer)
-- Setting the attaching form on top and then as a normal
-- Like popup...
setProperty(CETrainer , "FormStyle", "fsSystemStayOnTop")
setProperty(CETrainer , "FormStyle", "fsNormal")
-- Closing the trainer..
function CloseClick()
closeCE()
return caFree
end
--
--Defining some stuff...
ProcList = 0
--
--va il primo ok ora si beh fammi vedere da qui la tua magia no ? :)aspe vuoi tasto 8 funzionante come hack non come mess.?si
function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
if IN<1 then
OUT=0
return OUT
end
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
function Aobswap(search, change)
aobs = AOBScan(search)
if(aobs ~= nil) then
j = stringlist_getCount(aobs)
--print("Found:",j);
for i = 1, j do
--print(stringlist_getString(aobs,i-1));
--66 ?? ?? d1 a1 68 ?? ?? d0 d0
address=stringlist_getString(aobs,i-1)
for i = 1, string.len(change), 3 do
z = string.sub(change, i, i+2)
x, y = string.find(z, "%?+")
if (x == nil) then
script=[[
]]..address.."+"..(DEC_HEX((i-1)/3))..[[:
db ]]..z..[[
]]
autoAssemble(script)
--print(z)
--print(address.."+"..(DEC_HEX((i-1)/3)))
end
end
end
object_destroy(aobs);
aobs=nil
end
end
-----------------------------------------------------------
-- Attaching using processor list..
function AttachList()
local SelectedItemIndex = combobox_getItemIndex(CETrainer_CEComboBox1)
local pname=control_getCaption( CETrainer_CEEdit1 );
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==-1 then return end
if SelectedItemIndex==0 and pname =='' then -- return end
ProcList = 0
--elseif pname~='' then
--AttachPID()
end
if SelectedItemIndex==0 and pname~='' then -- return end
ProcList = 0
AttachPID()
end
if SelectedItemIndex ==1 and pname =='' then
openProcess("FlashPlayerPlugin")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==1 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==2 and pname =='' then
openProcess("plugin-container.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attualmente attaccato al PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==2 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==3 and pname =='' then
openProcess("opera.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Attachment Pid")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Success kabayan")
end
elseif SelectedItemIndex ==3 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==4 and pname =='' then
openProcess("opera_plugin_wrapper.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment Pid: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==4 and pname~='' then
AttachPID()
else
if SelectedItemIndex ==5 and pname =='' then
openProcess("iexplorer.exe")
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
ProcList = 0
showMessage("Process list")
else
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
ProcList = 1
showMessage("Attaccato con Sucesso!")
end
elseif SelectedItemIndex ==5 and pname~='' then
AttachPID()
end
end
end
end
end
end
function AttachPID()
if ProcList == 0 then
local pname=tonumber(control_getCaption( CETrainer_CEEdit1 ));
if pname ~='' then
openProcess(pname)
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Proceess list")
control_setCaption(CETrainer_CEEdit1, '')
elseif err~=0 then
local PID=getOpenedProcessID()
control_setCaption(CETrainer_CELabel5, "Attachment PID: " .. PID)
control_setEnabled(CETrainer_CEButton2, true)
showMessage("Attachment PID")
if pname=='' then return end
end
end
end
end
function CEImage2Click(sender)
shellExecute('')
end
--function CEButton9Click(sender)
--showMessage("Before you continue!Please attach to your game processor,Using the following the following methods:(Note that you need only to use 1 method).1. Attaching using processor list(You choose the browser processor of the Flash player)2. Attaching using Processor ID(You attach using the Flash Player ID, of course if you know whats the PID)3. Attaching by going to Fullscreen mode and pressing F6.(Only works if you got an fullscreen option inside the game,Or in any other Flash Player stuff, e.g Youtube, other games..)")
--end
InformationText=""
AttachFirst = {}
AttachFirst[1] = createForm(false)
AttachFirst[2] = createPanel(AttachFirst[1])
AttachFirst[3] = createButton(AttachFirst[2])
AttachFirst[4] = createLabel(AttachFirst[2])
AttachFirst[5] = createGroupBox(AttachFirst[2])
AttachFirst[6] = createLabel(AttachFirst[5])
AttachFirst[7] = createLabel(AttachFirst[5])
AttachFirst[9] = createLabel(AttachFirst[5])
AttachFirst[10] = createComboBox(AttachFirst[5])
AttachFirst[12] = createButton(AttachFirst[5])
AttachFirst[13] = createLabel(AttachFirst[2])
setProperty(AttachFirst[1] , "Position", "poScreenCenter")
setProperty(AttachFirst[1] , "BorderIcons", "[biSystemMenu]")
setProperty(AttachFirst[1] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[2] , "BiDiMode", "bdLeftToRight")
setProperty(AttachFirst[10] , "ReadOnly", "True")
local FontHeight = getProperty(AttachFirst[4] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "17")
local FontHeight = getProperty(AttachFirst[5] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
--
local FontHeight = getProperty(AttachFirst[6] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "12")
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "14")
local FontHeight = getProperty(AttachFirst[7] , "Font")
setProperty(FontHeight , "Color", 0x000000FE)
setProperty(FontHeight , "Color", 0x000000FE)
local FontHeight = getProperty(AttachFirst[9] , "Font")
setProperty(FontHeight , "Color", 0x00007F00)
--
local FontHeight = getProperty(AttachFirst[10] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
local FontHeight = getProperty(AttachFirst[12] , "Font")
setProperty(FontHeight , "Style", "[]")
setProperty(FontHeight , "Height", "13")
setProperty(AttachFirst[13], "Cursor", "-21")
local FontHeight = getProperty(AttachFirst[13] , "Font")
setProperty(FontHeight , "Style", "[fsBold]")
setProperty(FontHeight , "Height", "20")
setProperty(FontHeight , "Color", 0x00800180)
--
control_setEnabled(AttachFirst[3], false)
control_setSize(AttachFirst[1], 385, 270)
x,y = control_getSize(AttachFirst[1])
control_setSize(AttachFirst[2], x,y)
control_setSize(AttachFirst[3], 75,25)
control_setSize(AttachFirst[5], 375,190)
control_setSize(AttachFirst[10], 205,21)
control_setSize(AttachFirst[12], 79,45)
control_setPosition(AttachFirst[3], 303,219)
control_setPosition(AttachFirst[4], 5,5)
control_setPosition(AttachFirst[5], 5,25)
control_setPosition(AttachFirst[6], 5,0)
control_setPosition(AttachFirst[7], 4,110)
control_setPosition(AttachFirst[9], 5,150)
control_setPosition(AttachFirst[10], 75,108)
control_setPosition(AttachFirst[12], 287,97)
control_setPosition(AttachFirst[13], 5,219)
control_setCaption(AttachFirst[1],"Myer Trainer")
control_setCaption(AttachFirst[3],"Continua")
control_setCaption(AttachFirst[4],"Criminal case")
control_setCaption(AttachFirst[5],"Attach")
control_setCaption(AttachFirst[6],InformationText)
control_setCaption(AttachFirst[7],"Valid 1-Month")
control_setCaption(AttachFirst[9],"Proccessor PID: ")
control_setCaption(AttachFirst[12],"Attach")
control_setCaption(AttachFirst[13],"")
al = combobox_getItems(AttachFirst[10])
strings_clear(al)
function OpenFlashacking()
shellExecute("")
end
strings_add(al, 'Process list')
strings_add(al, 'chrome.exe')
strings_add(al, 'FlashPlayerPlugin')
strings_add(al, 'plugin-container.exe')
strings_add(al, 'opera.exe')
strings_add(al, 'opera_plugin_wrapper.exe')
strings_add(al, 'iexplorer.exe')
strings_add(al, 'dragon.exe')
setProperty(AttachFirst[10] , "ItemIndex", "0")
success = 1
process = "chrome.exe" -- you can set this variable by using combobox,
-- editbox or soemthing
function ResetChrome()
success = 0
local test = openProcess("chrome.exe") if test ==nil then return showMessage("Chrome "),timer_setEnabled(openNextProcTimer,false) end
strings_add(getAutoAttachList(),process)
timer_setEnabled(openNextProcTimer,true)
end
function enableCheatsGuiWhatEver()
-- initialize UI (or reinitialize UI)
-- or whatever you want to do afer finding right process:
-- enabling controls, cheats
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[1],"Attachment Trainer!")
control_setEnabled(AttachFirst[3], true)
control_setCaption(AttachFirst[9], "Attachment PID: " .. PID)
success = 1
showMessage("Success Kabayan")
end
-- this function returns true if good process, false if bad
function checkProcessMajor()
reinitializeSymbolhandler()
-- for Chrome flash
if getAddress("pepflashplayer.dll")~=0 or
getAddress("AdobeCPGetAPI") ~=0 then
return true
end
-- you can change above condition to something else.
-- for example you can make aobscan check - if pattern found -> return true
return false -- return false by default
end
-- #############################################################################
-- do not thouch code below (unless you know what you are doing)
errorOnLookupFailure(false)
alreadycheckedPIDS={} -- checked processes pids
openNextProcTimer = createTimer(nil,false)
timer_setInterval(openNextProcTimer, 1000)
timer_onTimer(openNextProcTimer,
function (sender)
local tempPIDtable = getPids()
if #tempPIDtable == 0 then return end
--OK, we have new PID
timer_setEnabled(sender,false)
openProcess(tempPIDtable[1])
end
)
function getPids()
local SL=createStringlist()
getProcesslist(SL)
local tempPIDtable={}
for i=0,strings_getCount(SL)-1 do
local entry = strings_getString(SL,i)
local processname = entry:sub(10,255)
local PID = tonumber('0x'..entry:sub(1,8))
if processname == process then
if alreadycheckedPIDS[PID]~=true then
table.insert(tempPIDtable,PID)
end
end
end
object_destroy(SL)
return tempPIDtable
end
function checkProcess(sender)
timer_setEnabled(sender,false)
-- add currently opened process to ignore list
-- (openNextProc will ignore those)
alreadycheckedPIDS[getOpenedProcessID()]=true
if checkProcessMajor() then
-- OUR TARGET FOUND
timer_setEnabled(openNextProcTimer,false)
alreadycheckedPIDS={}
enableCheatsGuiWhatEver()
else
timer_setEnabled(openNextProcTimer,true)
end
end
function onOpenProcess()
if success == 1 then return end
timer_setEnabled(checkProcessTimer,true)
end
checkProcessTimer = createTimer(nil,false)
timer_setInterval(checkProcessTimer, 100)
timer_onTimer(checkProcessTimer, checkProcess)
function AttachToChrome()
control_setCaption(AttachFirst[1],"Attachment list")
ResetChrome()
end
function AttachList()
AttachItems = combobox_getItems(AttachFirst[10])
AttachIndex = combobox_getItemIndex(AttachFirst[10])
if AttachIndex == -1 then return end
if AttachIndex == 0 then return showMessage("Proccess list") end
if strings_getString(AttachItems,AttachIndex)=='chrome.exe' then return AttachToChrome() end
openProcess(strings_getString(AttachItems,AttachIndex))
errorOnLookupFailure(false)
reinitializeSymbolhandler()
err=getAddress("kernel32.dll")==0
if err==true then
showMessage("Il processo non e stato rilevato!!!")
else
local PID=getOpenedProcessID()
control_setCaption(AttachFirst[9], "Attualmente attaccato al PID: " .. PID)
control_setEnabled(AttachFirst[3], true)
showMessage("Attaccato con Sucesso!")
end
end
function AttachClose()
closeCE()
end
function ExecuteHack()
--CreateTrainer()
form_show(CETrainer)
form_hide(AttachFirst[1])
end
control_onClick(AttachFirst[3], ExecuteHack)
control_onClick(AttachFirst[12],AttachList)
form_onClose(AttachFirst[1],AttachClose)
control_onClick(AttachFirst[13],OpenFlashacking)
form_show(AttachFirst[1])
function adds()
shellExecute("")
end
KeyTimer = createTimer(formInfo,false)
timer_setInterval(KeyTimer, 500000)
timer_onTimer(KeyTimer, adds)
timer_setEnabled(KeyTimer, true)
--FUNZIONI PER I TASTI ON + OFF
function CEImage3Click(sender) --YouTube LOGO
shellExecute("")
end
function CEButton1Click(sender)
shellExecute("") --TASTO VIDEO GIU ANGOLO DESTRO
end
function CEButton2Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Hack e Stato Attivato con successo...") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton11Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton12Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton13Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer2") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton14Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton15Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "MyerSCORE E TIME") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton16Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton17Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer4") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton18Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton19Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer5") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton20Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton21Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer6") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage("Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton22Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton23Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer7") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton24Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_freeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
function CEButton25Click(sender)
local script1= addresslist_getMemoryRecordByDescription(getAddressList(), "Myer8") --change this according to your scripts..
memoryrecord_unfreeze(script1)-- this will Freeze (AKA enable) the thes script
showMessage(" Tagumpay") --remove the -- before the showMessage, if you'd like to show that message..
end
------------------------------------------------------Check ID and flash ----------
function erroruser()
closeCE()
return caFree
end
function checkProcessMajor()
reinitializeSymbolhandler()
if getAddress("pepflashplayer.dll")~=0 or
getAddress("npUnity3d32.dll")~=0 or
getAddress("webplayer_win.dll")~=0 or
getAddress("AdobeCPGetAPI")~=0 or
getAddress("NPSWF32") ~=0 then
--showMessage("Found Flash")---------------------------------------------
local AoB = AOBScan("31")--user; mio oky-----------------
--//72 65 73 75 6C 74 22 3A 7B 22 75 73 65 72 49 64 22 3A 32 34 39 30 30 39 38 36 34 35 2C 22 65 78 74 65 72 6E 61 6C 55 73 65 72 49 64 22 3A 22
--//72 65 73 75 6C 74 22 ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 31 30 30 30 30 36 35 35 35 30 39 30 33 39 35
if (AoB == nil or AoB.Count < 0) then
showMessage("Dont Abuse My Trainer?")
erroruser()
return false
end
if (AoB == 1 or AoB.Count > 0) then
--showMessage("Proper user Found! Trainer Loading......")
return true
else
--showMessage("No Flash1")
end
--showMessage("No Flash2")
end
-- showMessage("No Flash please start Facebook and load your game!")
return false
end[/quote]
|
|
Back to top |
|
|
BlueMoods How do I cheat? Reputation: 0
Joined: 22 Jan 2015 Posts: 5
|
|
Back to top |
|
|
|
|
You can post new topics in this forum You can reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You can download files in this forum
|
|