1. Здравствуй, Гость ! Для получения привилегий и просмотра хайдов предлагаем группу Премиум
  2. Голосуем за Стиль сайта

[CE] Speed Hack

Тема в разделе "CheatEngine", создана пользователем /intactdev, 16 июл 2014.

  1. TEMIKgt

    TEMIKgt Администратор Команда форума

    1.387
    1.098
    113
    [​IMG]
    Код:
    function CreateTrainer()
    
    function setHack_Information()
    --########### Trainer Appearance edit ############--
    --Trainer Name
    control_setCaption(ht[1], 'TITOLO DEI TRAINER')
    --Game hacks title
    control_setCaption(ht[1.2] ,'TITOLO DEI GAME HACK')
    --Creator credits
    control_setCaption(ht[1.1] ,'DA CHI E CREATO IL TRAINER')
    --Hack enteries
    t =
    {
    --Entry 0:
    {'SPEEDHACK X10 VOLTE',[[LuaCall(speedhack_setSpeed(10))]],[[QUESTO FA IL GIOCO PIU VELOCE CON 10 VOLTE DI VELOCITA]],[[SPEEDHACK X10 E ATTIVATO]], 'yes',[[LuaCall(speedhack_setSpeed(1))]],[[SPEEDHACK E STATO PORTATO IN NORMALITA]]},
    
    
    --Entry 1:
    {'NOME HACK',[[LuaCall(Aobswap("AOB ORIGINALE","AOB DA CAMBIARE"))]],[[TESTO DI DESCRIZIONE VA QUI]],[[IL HACK E STATO ATTIVATO]], 'yes',[[LuaCall(Aobswap("AOB CAMBIATO","AOB ORIGINALE"))]],[[HACK E STATO DISATTIVATO]]}
    }
    end
    ht = {}
    ht[1] = createForm()
    ht[2] = createPanel(ht[1])
    ht[1.1] = createLabel(ht[2])
    ht[1.2] = createLabel(ht[2])
    ht[1.3] = createLabel(ht[2])
    ht[3] = createGroupBox(ht[2])
    ht[3.1] = createLabel(ht[3])
    ht[3.2] = createLabel(ht[3])
    ht[3.3] = createLabel(ht[3])
    ht[3.4] = createLabel(ht[3])
    ht[4] = createListBox(ht[3])
    ht[5] = createButton(ht[3])
    setProperty(ht[1] , 'Position', 'poScreenCenter')
    setProperty(ht[1] , 'BorderIcons', '[biSystemMenu]')
    setProperty(ht[1] , 'BiDiMode', 'bdLeftToRight')
    setProperty(ht[2] , 'BiDiMode', 'bdLeftToRight')
    local FontHeight = getProperty(ht[1.2] , 'Font')
    setProperty(FontHeight , 'Color', 0x000000FE)
    setProperty(FontHeight , 'Style', '[fsBold]')
    setProperty(FontHeight , 'Height', '20')
    local FontHeight = getProperty(ht[3.1] , 'Font')
    setProperty(FontHeight , 'Color', 0x00007F00)
    setProperty(FontHeight , 'Style', '[fsBold]')
    setProperty(FontHeight , 'Height', '16')
    local FontHeight = getProperty(ht[3.3] , 'Font')
    setProperty(FontHeight , 'Color', 0x00F21200)
    local FontHeight = getProperty(ht[1.3] , 'Font')
    setProperty(FontHeight , 'Color', 0x00FF0482)
    setProperty(FontHeight , 'Style', '[fsBold]')
    control_setSize(ht[1], 400, 300)
    x,y = control_getSize(ht[1])
    control_setSize(ht[2], x,y)
    control_setPosition(ht[1.1], 5, y-17)
    control_setPosition(ht[1.3], 313, y-17)
    control_setPosition(ht[1.2], 10, 2.5)
    control_setSize(ht[3], x*0.965, y*0.85)
    control_setPosition(ht[3], 5,y*1.095-y)
    control_setCaption(ht[3], 'The Available Hacks')
    control_setPosition(ht[3.1], 5, 0)
    control_setCaption(ht[3.1],'Please Select a hack from the list, and press ENABLE!')
    X,Y = control_getSize(ht[3])
    control_setSize(ht[4], X*0.75-6, 64)
    X,Y = control_getSize(ht[4])
    control_setPosition(ht[4],5, 20)
    control_setSize(ht[5], X*0.34-6, 64)
    control_setPosition(ht[5],X+6, 20)
    control_setCaption(ht[5], 'ENABLE')
    control_setPosition(ht[3.3] ,5, Y+20)
    control_setCaption(ht[3.3] , 'Description of the selected hack:')
    control_setPosition(ht[3.4] ,5, Y+35)
    control_setCaption(ht[3.4] , 'Please choose a hack to see the description!')
    setHack_Information()
    local TeL = listbox_getItems(ht[4])
    TempSave = {}
    strings_clear(TeL)
    check = 0
    i = 0
    repeat
    if t[i+1]==nil then
    check = 1
    else
    i = i+1
    strings_add(TeL, t[1])
    if t[8]==nil then t[8]=2 end
    if t[5]=='no' then t[5]=nil end
    TempSave = {}
    TempSave[1] = t[1]
    TempSave[2] = t[2]
    TempSave[3] = t[3]
    TempSave[4] = t[4]
    TempSave[5] = t[5]
    TempSave[6] = t[6]
    TempSave[7] = t[i][7]
    TempSave[i][8] = t[i][8]
    check = 0
    end
    until check == 1
    function ExecuteHacksScripts()
    HLS = listbox_getItemIndex(ht[4])
    if HLS == -1 then return end
    i = HLS+1
    if t[i][5]=='no' or t[i][5]==nil and t[i][2]==nil then return showMessage(t[i][4]) end
    if t[i][5]=='yes' and TempSave[i][8]==1 then
    Asm=false
    if type(t[i][6])=='string' then
    Asm = autoAssemble(t[i][6])
    elseif type(t[i][6])=='function' then
    t[i][6]() --Executes it as an function
    Asm=true
    end
    if Asm~=true then
    return showMessage('Hack failed to disable! Please try again!')
    end
    if AobSwapCheck~=true and AobSwapCheck~=nil then
    AobSwapCheck=nil
    return showMessage('Hack failed to disable! Please try again!')
    end
    AobSwapCheck=nil
    t[i][1] = TempSave[i][1]
    t[i][2] = TempSave[i][2]
    t[i][3] = TempSave[i][3]
    t[i][4] = TempSave[i][4]
    t[i][5] = TempSave[i][5]
    t[i][6] = TempSave[i][6]
    t[i][7] = TempSave[i][7]
    t[i][8] = TempSave[i][8]
    local TempText
    TempText = t[i][1]
    strings_setString( TeL, HLS, TempText )
    OriginalCap=nil
    control_setCaption(ht[5], 'ENABLE')
    if t[i][7]=='' then
    showMessage('Hack is now DISABLED')
    else
    showMessage(t[i][7])
    end
    TempSave[i][8] = 0
    end
    if TempSave[i][8] == 2 then
    if type(t[i][2])=='string' then
    Asm = autoAssemble(t[i][2])
    elseif type(t[i][2])=='function' then
    t[i][2]() --Executes it as an function
    Asm=true
    elseif type(t[i][2])=='nil' then
    Asm=true
    end
    if Asm~=true then
    return showMessage('Hack did not Activate correctly! Please try again!')
    end
    if AobSwapCheck~=true and AobSwapCheck~=nil then
    AobSwapCheck=nil
    return showMessage('Hack did not Activate correctly! Please try again!')
    end
    AobSwapCheck=nil
    local TempText
    TempText = t[i][1]..' - ENABLED'
    strings_setString( TeL, HLS, TempText )
    if t[i][5]=='yes' then control_setCaption(ht[5], 'DISABLE') end
    if t[i][4]=='' then
    showMessage('Hack is now ACTIVATED! Congratulations!')
    else
    showMessage(t[i][4])
    end
    t[i][2] = nil
    t[i][4] = 'This Hack was already ACTIVATED!'
    TempSave[i][8] = 1
    end
    if TempSave[i][8] == 0 then TempSave[i][8] = 2 end
    end
    function HackDescriptionsChange()
    HLS = listbox_getItemIndex(ht[4])
    if HLS == -1 then return end
    i = HLS+1
    if t[i][3]~='' and t[i][3]~=nil then
    control_setCaption(ht[3.4],t[i][3])
    else
    control_setCaption(ht[3.4],'Theres no descriptions available about this hack')
    end
    if t[i][5]=='yes' and TempSave[i][8]==1 then control_setCaption(ht[5], 'DISABLE') end
    if t[i][5]=='yes' and TempSave[i][8]==2 then control_setCaption(ht[5], 'ENABLE') end
    if t[i][5]==nil then control_setCaption(ht[5], 'ENABLE') end
    end
    function CloseProgram()
    closeCE()
    end
    form_onClose(ht[1],CloseProgram)
    control_onClick(ht[5],ExecuteHacksScripts)
    setMethodProperty(ht[4], 'OnSelectionChange', HackDescriptionsChange)
    end
    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)
    for i = 1, j do
    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)
    end
    end
    end
    object_destroy(aobs);
    aobs=nil
    end
    end
    function AobswapC(search, change)
    aobs = AOBScan(search)
    if(aobs == nil) then AobSwapCheck=false else
    j = stringlist_getCount(aobs)
    for i = 1, j do
    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)
    end
    end
    end
    object_destroy(aobs);
    aobs=nil
    AobSwapCheck=true
    end
    end
    InformationText=" Before you move on to hacking!\n-------------------------------------------------------------------------------------------\n Please choose and attach your Flash process, from the list\n Please note that you must attach the right Flash process\n controlling your game, otherwise the Hacks will not be usable.\n If the attachment was successfull the 'Continue' button will turn\n available and you can continue to the hacks"
    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", "[]")
    setProperty(FontHeight , "Height", "13")
    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, 250)
    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], 5,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]," I am the Attachment Window")
    control_setCaption(AttachFirst[3],"CONTINUE")
    control_setCaption(AttachFirst[4]," PLEASE CHOOSE YOUR FLASH PROCESS BELLOW")
    control_setCaption(AttachFirst[5]," The Attachment Window ")
    control_setCaption(AttachFirst[6],InformationText)
    control_setCaption(AttachFirst[7],"PROCESS LIST")
    control_setCaption(AttachFirst[9],"Correctly attached to PID number: ")
    control_setCaption(AttachFirst[12],"ATTACH ME")
    control_setCaption(AttachFirst[13],"The Facebook of Dolce Panna")
    al = combobox_getItems(AttachFirst[10])
    strings_clear(al)
    function OpenFlashacking()
    shellExecute("http://www.facebook.com/dolcepanna2012/")
    end
    strings_add(al, 'Please pick your Process...')
    strings_add(al, 'Chrome.exe')
    strings_add(al, 'Bul-Dozer Browser')
    strings_add(al, 'FlashPlayerPlugin')
    strings_add(al, 'Opera.exe')
    strings_add(al, 'Plugin-Container.exe')
    strings_add(al, 'Iexplorer.exe')
    setProperty(AttachFirst[10] , "ItemIndex", "0")
    success = 1
    process = "chrome.exe" -- you can set this variable by using combobox,
    -- editbox or something
    function ResetChrome()
    success = 0
    local test = openProcess("chrome.exe") if test ==nil then return showMessage("Google Chrome Process was not found! Please start you Chrome Browser and try again!"),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],"Form is being attached!")
    control_setEnabled(AttachFirst[3], true)
    control_setCaption(AttachFirst[9], "Was correctly attached to PID number: " .. PID)
    success = 1
    showMessage("Was correctly Attached!")
    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],"Form is being Attached!")
    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("Please pick the correct process from the 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("Couldn't find the process")
    else
    local PID=getOpenedProcessID()
    control_setCaption(AttachFirst[9], "Was correctly attached to PID number: " .. PID)
    control_setEnabled(AttachFirst[3], true)
    showMessage("The Process Attachment was successfull!")
    end
    end
    function AttachClose()
    closeCE()
    end
    function ExecuteHack()
    CreateTrainer()
    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])[/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i]
    [i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i][/i]
     
    lis2381 нравится это.