• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.3.6
软件大小:62.5M
更新时间:01-16

按键精灵iOS版
立即下载

软件版本:1.6.0
软件大小:29.2M
更新时间:07-29

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 9
发新话题 回复该主题

[源码分享] 闲来无聊,又分享一波源码.千炮捕鱼金币内存地址定位. [复制链接]

1#
回复有代码.实测夜神逍遥雷电天天 四个模拟器 .

金币地址有两个..一个是显示的金币数量.一个是真实金币数量.我读的是真实金币数量...显示金币的数量.会在一定延迟内变成真实金币数量.


apk 下载地址: qp.pook.com

Dim 当前应用包名
当前应用包名 = sys.GetFront()
TracePrint 当前应用包名
'以下是以"比武招亲(武林萌主)游戏为例子,通过搜索内存返回的结果进行偏移读取人物信息面板里的等级、经验等数据"
Dim addr = "0x00000000"
'下面定义的表数据可通过烧饼修改器等内存搜索工具来查找对比获得
Dim tb1 = {"lv":96}
Dim tb2 = {"lv":-1,"offset":8}
Dim tb3 = {"lv": 1,"offset":84}
Dim tb = {tb1, tb2,tb3}
Dim t = TickCount()
Dim A = Sys.MemorySearch(当前应用包名, True,addr, tb, "i32",0,1)
TracePrint "搜索地址为:"&A(0)&",耗时"&(TickCount()-t)
Dim 金币地址=地址相加( A(0), 256)
TracePrint 金币地址
TracePrint Sys.MemoryRead(当前应用包名, 地址相加(金币地址, -8), "i32")
For 1000
    Delay 100
    ShowMessage "当前真实金币为:"&Sys.MemoryRead(当前应用包名,金币地址, "i32"),0,0,0
Next

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

2#

回复 1楼q229101的帖子

老夫写代码就是一顿复制黏贴一顿干

3#

谢谢分享

4#

千炮捕鱼金币内存地址定位.

官方实名认证作者 QQ:185220901
承接 游戏,办公...各类脚本制作
5#

老夫写代码就是一顿复制黏贴一顿干

按键精灵安卓版编写脚本零基础课程【视频教程】

公众号:3分钟学堂
6#

老夫写代码就是一顿复制黏贴一顿干


以建会友,共同学习,共同进步。

7#

老夫写代码就是一顿复制黏贴一顿干

8#

老夫写代码就是一顿复制黏贴一顿干

9#

谢谢分享,学一下如何内存定位。

10#

感谢分享







Yeah分享

11#

该内容需您回复才可浏览 *****

12#

四个模拟器

定制脚本,请带上价格和要求私QQ175174881
13#

看看怎么样

14#

沉了///

15#

内存地址定位

16#

来学一下内存!!!!!!

17#

感谢分享

18#

快快乐乐看看吧空间里

19#

棒棒棒

20#

好东西 学下~

发新话题 回复该主题