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

下載


所有站內附件皆會附上安全掃描報告
請會員查看純淨度百分比後判斷使用



相關檔案須知：
取得檔案前，請先詳細閱讀文章內容
避免不必要錯誤與誤會發生。
也可多參考文章討論樓層內容
了解附件檔案相關討論資訊。

【此文章部分內容隱藏中】    解除隱藏說明教學點擊下方 繼續閱讀文章 後
請仔細觀看文章內容 並依照指示進行下一步
最後完成解除隱藏後
系統會回到此文章自動顯示隱藏內容~

繼續閱讀

原始碼

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

複製代碼