紫猫学院社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 259|回复: 7

[教程源码] 开源球球大作战定位基址写法遍历

[复制链接]

9

主题

24

帖子

29

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
313
发表于 2021-9-3 13:56:25 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 w1995811 于 2021-9-16 14:49 编辑

我曾踏足山巅,也曾进入低谷,这俩者都使我受益良多求+精
2862-永远的神


   
[按键精灵] 纯文本查看 复制代码
Function 内存读取坐标()
    Dim 读出来的地址
    Dim 地址结果,读取结果,写入结果
   
    Dim addr = "0x0"
    Dim tb1 = {"lv":-1002733568}
    Dim tb = {tb1}
    Dim A = Sys.MemorySearch(当前应用包名, True,addr, tb, "i32",0,100)
    For Each 读取结果 In a
        读出来的地址 = 地址相加(读取结果,20)
        地址结果 = CInt(Sys.MemoryRead(当前应用包名, 读出来的地址, "F32"))
        If 地址结果 = 1 Then 
            //特征码=1,遍历数据对比
            For 5
                读出来的地址 = 地址相加(读出来的地址, 4)
                地址结果 = CInt(Sys.MemoryRead(当前应用包名, 读出来的地址, "F32"))
                TracePrint 地址结果
                If 地址结果 = 1 Then 
                    //对比成功,继续遍历
                    地址结果 = Sys.MemoryRead(当前应用包名, 读出来的地址, "i32")
                    If 最终结果 = 2 Then  
                        //遍历2次以后结果对得上,这个地址就是遍历后的结果 定位成功 
                        Y = 地址相加(读出来的地址, -36)
                        X = 地址相加(读出来的地址, -40)
                        TracePrint X
                        TracePrint y
                        ShowMessage  "遍历地址成功"
                        Exit Function
                    End If
                    最终结果 = 最终结果 + 1
                Else 
                    TracePrint "遍历失败~"
                    Exit For
                End If
            Next
        End If
    Next
End Function//移动CALL 定位地址偏移后XY已经出来

Function 内存移动读取()
    ShowMessage "获取内存中...."
    //内存移动call定位
    Dim addr = "0x0"
    Dim tb1 = {"lv":2}
    Dim tb2 = {"lv":256,"offset":12}
    Dim tb3 = {"lv":216,"offset":40}
    Dim tb4 = {"lv":1123,"offset":4}
    Dim tb5 = {"lv":-1,"offset":12}
    Dim tb = {tb1,tb2,tb3,tb4,tb5}
    Dim t = TickCount()
    Dim A = Sys.MemorySearch(当前应用包名, True,addr, tb, "i32",0,100)
    内存X = 地址相加(A(0), 72)
    内存Y = 地址相加(A(0), 76)
    TracePrint 内存X
    TracePrint 内存Y
End Function



QIUQIU新版.mqb

3.55 KB, 下载次数: 5, 下载积分: 猫粮 -1

新版按键写法

回复

使用道具 举报

1

主题

7

帖子

12

积分

按键电脑&手机班学员

Rank: 8Rank: 8

猫粮
232
发表于 2021-9-3 13:57:34 | 显示全部楼层
大星先来支持一波♪(^∇^*)
回复

使用道具 举报

0

主题

1

帖子

1

积分

学前班

Rank: 1

猫粮
6
发表于 2021-9-6 11:15:23 | 显示全部楼层
66666666666666
回复

使用道具 举报

0

主题

1

帖子

1

积分

学前班

Rank: 1

猫粮
0
发表于 2021-9-6 13:37:33 | 显示全部楼层
66666666666666
回复

使用道具 举报

3

主题

6

帖子

6

积分

按键电脑班学员

Rank: 8Rank: 8

猫粮
175
发表于 2021-9-6 15:11:46 | 显示全部楼层
在哪下载
回复

使用道具 举报

3

主题

24

帖子

24

积分

按键手机班学员

毛都没有

Rank: 8Rank: 8

猫粮
369
QQ
发表于 2021-9-7 04:22:25 | 显示全部楼层
先干围巾
回复

使用道具 举报

5

主题

31

帖子

31

积分

按键手机班学员

Rank: 8Rank: 8

猫粮
307
发表于 2021-9-7 18:49:37 | 显示全部楼层
后干毛衣
回复

使用道具 举报

0

主题

3

帖子

3

积分

学前班

Rank: 1

猫粮
5
发表于 2021-9-10 22:35:38 | 显示全部楼层

6666666666666
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学院  

GMT+8, 2021-9-27 05:33

Powered by Discuz! X3.4

Copyright © 2012-2021 紫猫编程学院

快速回复 返回顶部 返回列表