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

yoyodiy

下載

遊客【如果您要看隱藏內容 請選擇 繼續閱讀】本站解除隱藏說明教學

繼續閱讀文章 - 解除隱藏文章限制

原始碼

1. 
   
2. --[[INIT START]]
   
3. errorOnLookupFailure(false)
   
4. form_show(UDF1)
   
5. getAutoAttachList().add("TheDivision.exe")
   
6. 
   
7. function CloseClick()
   
8.   closeCE()
   
9.   return caFree
   
10. end
    
11. 
    
12. UDF1.OnClose = CloseClick
    
13. mAddress = mAddress or nil
    
14. mOldValue = mOldValue or nil
    
15. --[[INIT END]]
    
16. 
    
17. --[[FUNCTIONS START]]
    
18. --http://forum.cheatengine.org/viewtopic.php?t=584799
    
19. --function by vng21092
    
20. function lua_aobscan(name,module,bytes,index)
    
21.   index = index - 1
    
22.   if(module == "") then
    
23.     local resultSet = AOBScan(bytes)
    
24.       if(resultSet == nil) then
    
25.         unregisterSymbol(name)
    
26.         print(name.." not found")
    
27.       else
    
28.         unregisterSymbol(name)
    
29.         registerSymbol(name,resultSet[index])
    
30.         resultSet.destroy()
    
31.       end
    
32.   else
    
33.     if(getModuleSize(module) == nil) then
    
34.       --print("Module "..module.." not found")
    
35.     else
    
36.       local memScanner = createMemScan()
    
37.       local memFoundList = createFoundList(memScanner)
    
38.       memScanner.firstScan(
    
39.         soExactValue,vtByteArray,rtRounded,bytes,nil,
    
40.         getAddress(module),(getAddress(module)+getModuleSize(module)),"",
    
41.         fsmNotAligned,"",true,false,false,false)
    
42.       memScanner.waitTillDone()
    
43.       memFoundList.initialize()
    
44.         if(memFoundList.Count == 0) then
    
45.           unregisterSymbol(name)
    
46.           print(name.." in module "..module.." not found")
    
47.         else
    
48.           unregisterSymbol(name)
    
49.           registerSymbol(name,memFoundList.Address[index])
    
50.         end
    
51.       memScanner.destroy()
    
52.       memFoundList.destroy()
    
53.     end
    
54.   end
    
55. end
    
56. --function by vng21092
    
57. 
    
58. --check for process
    
59. function pCheckProcess()
    
60.   --This is here because TheDivision.exe opens itself, thus autoattach gets fooled.
    
61.   if getProcessIDFromProcessName("TheDivision.exe") ~= getOpenedProcessID() then
    
62.     openProcess(getProcessIDFromProcessName("TheDivision.exe"))
    
63.   end
    
64. 
    
65.   if getProcessIDFromProcessName("TheDivision.exe") == getOpenedProcessID() then
    
66.     return true
    
67.   else
    
68.     return false
    
69.   end
    
70. end
    
71. 
    
72. --Get address
    
73. function td_rcl_start()
    
74.   lua_aobscan("td_rcl_base","TheDivision.exe","48 8D 8B ******** F30F59C3 F30F59C7 F30F5806 F30F1106",1)
    
75.   local mBase = getAddress('td_rcl_base')
    
76.   local mOffset = readInteger('td_rcl_base-4')
    
77.   mAddress = mBase+mOffset --result
    
78.   if mBase == nil or mBase == 0 or mOffset == nil or mOffset == 0 then
    
79.     --nothing
    
80.   else
    
81.     if not mOldValue then
    
82.       mOldValue = readFloat(mAddress) --store initial value
    
83.     end
    
84.     writeFloat(mAddress,0.0)
    
85.   end
    
86. end
    
87. 
    
88. --Stop and flush
    
89. function td_rcl_stop()
    
90.   writeFloat(mAddress,mOldValue) --restore initial value
    
91.   mOldValue = nil
    
92.   mAddress = nil
    
93. end
    
94. --[[FUNCTIONS END]]
    
95. 
    
96. --[[BUTTONS, ACTIONS START]]
    
97. function CEToggleBox1Change(sender)
    
98.   if (checkbox_getState(UDF1.CEToggleBox1) == 1) then
    
99.     --[ENABLE]
    
100.     if pCheckProcess() then
     
101.       td_rcl_start() --execute
     
102.       control_setCaption(UDF1.CEToggleBox1, "State: ON")
     
103.     else
     
104.       --DO SOMETHING IF NO PROCESS
     
105.       checkbox_setState(UDF1.CEToggleBox1, 0) --disable current toggle
     
106.       control_setCaption(UDF1.CEToggleBox1, "Missing TheDivision.exe\nClick to Refresh")
     
107.     end
     
108.   end
     
109.   if (checkbox_getState(UDF1.CEToggleBox1) == 0) then
     
110.     --[DISABLE]
     
111.     if pCheckProcess() then
     
112.       td_rcl_stop() --execute
     
113.       control_setCaption(UDF1.CEToggleBox1, "State: OFF")
     
114.     else
     
115.       --DO SOMETHING IF NO PROCESS
     
116.       checkbox_setState(UDF1.CEToggleBox1, 0) --disable current toggle
     
117.       control_setCaption(UDF1.CEToggleBox1, "Missing TheDivision.exe\nClick to Refresh")
     
118.     end
     
119.   end
     
120. end
     

複製代碼

xu3jou6

感謝分享 謝謝

spring43266

感謝來試試看

sa1597

謝謝分享
試試看看

ems9527

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

洪振先

謝謝分享
來試用看看

iceoo

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

tommykong123

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

凃小恩

0.0

0.0