[mw_shl_code=qscript,true]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已经出来
发表于 2021-9-3 13:56:25
