安卓内存教程技术交流（二） 一键提取安卓内存特征码工具获取

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

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

工具可能报毒，因为是易语言写的，自己信任即可。完整版本源码联系作者。这里不支持上传附件，自己到群670956672 下载，或者联系我Q：578052137

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

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