yoyodiy 發表於 2016-3-25 20:02:17

3/25 更新 無後坐力 簡易非CE直用輔助



下載
**** Hidden Message *****
原始碼
--[]
errorOnLookupFailure(false)
form_show(UDF1)
getAutoAttachList().add("TheDivision.exe")

function CloseClick()
  closeCE()
  return caFree
end

UDF1.OnClose = CloseClick
mAddress = mAddress or nil
mOldValue = mOldValue or nil
--[]

--[]
--http://forum.cheatengine.org/viewtopic.php?t=584799
--function by vng21092
function lua_aobscan(name,module,bytes,index)
  index = index - 1
  if(module == "") then
    local resultSet = AOBScan(bytes)
      if(resultSet == nil) then
        unregisterSymbol(name)
        print(name.." not found")
      else
        unregisterSymbol(name)
        registerSymbol(name,resultSet)
        resultSet.destroy()
      end
  else
    if(getModuleSize(module) == nil) then
      --print("Module "..module.." not found")
    else
      local memScanner = createMemScan()
      local memFoundList = createFoundList(memScanner)
      memScanner.firstScan(
        soExactValue,vtByteArray,rtRounded,bytes,nil,
        getAddress(module),(getAddress(module)+getModuleSize(module)),"",
        fsmNotAligned,"",true,false,false,false)
      memScanner.waitTillDone()
      memFoundList.initialize()
        if(memFoundList.Count == 0) then
          unregisterSymbol(name)
          print(name.." in module "..module.." not found")
        else
          unregisterSymbol(name)
          registerSymbol(name,memFoundList.Address)
        end
      memScanner.destroy()
      memFoundList.destroy()
    end
  end
end
--function by vng21092

--check for process
function pCheckProcess()
  --This is here because TheDivision.exe opens itself, thus autoattach gets fooled.
  if getProcessIDFromProcessName("TheDivision.exe") ~= getOpenedProcessID() then
    openProcess(getProcessIDFromProcessName("TheDivision.exe"))
  end

  if getProcessIDFromProcessName("TheDivision.exe") == getOpenedProcessID() then
    return true
  else
    return false
  end
end

--Get address
function td_rcl_start()
  lua_aobscan("td_rcl_base","TheDivision.exe","48 8D 8B ******** F30F59C3 F30F59C7 F30F5806 F30F1106",1)
  local mBase = getAddress('td_rcl_base')
  local mOffset = readInteger('td_rcl_base-4')
  mAddress = mBase+mOffset --result
  if mBase == nil or mBase == 0 or mOffset == nil or mOffset == 0 then
    --nothing
  else
    if not mOldValue then
      mOldValue = readFloat(mAddress) --store initial value
    end
    writeFloat(mAddress,0.0)
  end
end

--Stop and flush
function td_rcl_stop()
  writeFloat(mAddress,mOldValue) --restore initial value
  mOldValue = nil
  mAddress = nil
end
--[]

--[]
function CEToggleBox1Change(sender)
  if (checkbox_getState(UDF1.CEToggleBox1) == 1) then
    --
    if pCheckProcess() then
      td_rcl_start() --execute
      control_setCaption(UDF1.CEToggleBox1, "State: ON")
    else
      --DO SOMETHING IF NO PROCESS
      checkbox_setState(UDF1.CEToggleBox1, 0) --disable current toggle
      control_setCaption(UDF1.CEToggleBox1, "Missing TheDivision.exe\nClick to Refresh")
    end
  end
  if (checkbox_getState(UDF1.CEToggleBox1) == 0) then
    --
    if pCheckProcess() then
      td_rcl_stop() --execute
      control_setCaption(UDF1.CEToggleBox1, "State: OFF")
    else
      --DO SOMETHING IF NO PROCESS
      checkbox_setState(UDF1.CEToggleBox1, 0) --disable current toggle
      control_setCaption(UDF1.CEToggleBox1, "Missing TheDivision.exe\nClick to Refresh")
    end
  end
end

kawlmmwx 發表於 2016-3-25 21:09:38

xu3jou6 發表於 2016-3-25 22:17:04


感謝分享 謝謝

lightcrack 發表於 2016-3-26 09:57:42

spring43266 發表於 2016-3-27 10:25:30

感謝來試試看

sa1597 發表於 2016-3-27 15:48:16

謝謝分享
試試看看

ems9527 發表於 2016-3-27 22:47:18

版主大大，辛苦了，謝謝分享~~

洪振先 發表於 2016-3-28 02:43:46

謝謝分享
來試用看看

Frankko 發表於 2016-3-28 06:48:04

iceoo 發表於 2016-4-12 22:17:51

一改版 什麼都要來試一下才行 XD

tommykong123 發表於 2016-4-13 17:27:07

支持!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

凃小恩 發表於 2023-7-13 12:11:55

0.0

發表於 2023-8-3 10:21:36

0.0
頁: [1]
查看完整版本: 3/25 更新 無後坐力 簡易非CE直用輔助