安卓内存教程心得2：一键提取特征码工具

猿人部落 · 发表于 2019-12-15 23:33:10

本帖最后由猿人部落于 2019-12-15 23:46 编辑

安卓内存特征码提取工具： 目前来说应该是特别好用。支持外部特征码和内部特征码。特征码适合C++易语言和按键助手使用，可以说非常的方便。

使用：模拟器id最好自己手动填写，黑色板块是调试窗口，最大板块是模拟器对比，右下角是特征码和偏移，核心板块真正实现一键提取，非常方便。有空可以关注我关于工具使用的视频。

Import "ShanHai.lua"
Dim 当前应用包名
当前应用包名 = sys.GetFront()
TracePrint 当前应用包名
Dim addr = "0xb0000000"
Dim tb1 = {"lv":4294950606}
Dim tb2 = {"lv":3122109856,"offset":4} //特征码直接提取过来使用的
Dim tb3 = {"lv":3122109856,"offset":4}
Dim tb4 = {"lv":8856,"offset":168}
Dim tb5 = {"lv":7588,"offset":204}
Dim tb6 = {"lv":9880,"offset":160}
Dim tb= {tb1,tb2,tb2,tb3,tb4,tb5,tb6}
Dim t = TickCount()
Dim Addr_Search = Sys.MemorySearch(当前应用包名, True,addr, tb, "i32",0,5)
Dim 坐标地址X = 地址相加(Addr_Search(0), 34) //224
TracePrint 坐标地址X
Dim 坐标地址Y = 地址相加(Addr_Search(0), 24)
TracePrint 坐标地址Y
TracePrint "当前坐标X为:"&Sys.MemoryRead(当前应用包名,坐标地址X, "i32")
TracePrint "当前坐标Y为:"&Sys.MemoryRead(当前应用包名,坐标地址Y, "i32")
For i = 0 To UBOUND(Addr_Search)
TracePrint "地图地址X为:"&Addr_Search(i)+44
Next
For i = 0 To UBOUND(Addr_Search)
TracePrint "地图地址Y为:"&Addr_Search(i)+44
Next
Do
Dim 坐标X = int(Sys.MemoryRead(当前应用包名,坐标地址X,"F32"))
Dim 坐标Y =int(Sys.MemoryRead(当前应用包名,坐标地址Y,"F32"))
TracePrint "坐标X：" &坐标X,"坐标Y："&坐标Y
ShowMessage "坐标X：" &坐标X&"坐标Y："&坐标Y, 4000,500,500
Delay 200
Loop
Function 地址相加(地址, 偏移)
Dim A = Right(地址,Len(地址)-2)
Dim B = Clng("0x"&A)
Dim C = B+偏移
Dim D = Hex(C)
Dim E = "0x"&D
地址相加 = E
End Function

复制代码

工具下载下载链接：

工具可能报毒，因为是易语言写的，自己信任即可。

这个工具非常强大，远远不止这个功能，自己体会吧。

1828009986 · 发表于 2024-3-18 10:32:02

谢谢分享！！！！！

wupanfeng · 发表于 2023-9-28 15:05:02

拿走试试

阿橙阿 · 发表于 2022-11-4 04:33:55

感谢分享

阿橙阿 · 发表于 2022-10-8 01:55:24

感谢分享

9934633 · 发表于 2022-4-24 14:26:10

好东西啊

inmyheart · 发表于 2022-1-9 20:45:40

66666666666666666666666

yang7845020 · 发表于 2021-12-30 00:13:12

666666666666666666666

2679 · 发表于 2021-12-5 21:44:24

远远不止这个功能，自己体会吧。

sumcaii · 发表于 2021-12-4 00:46:51

不能下载？？？

		自动登录	找回密码
密码			注册

[技术专题] 安卓内存教程心得2：一键提取特征码工具