[教程源码] 关于安卓内存读写

Sub 修改内存()
    Dim  _坐标s,_坐标x,修改次数=1
    Dim 背包=array(516,730,591,794,"A88951","-4|12|DEAB45,-3|5|4A86D3,-11|-2|0D439D,-11|-8|2F63B4,-22|-10|DCAA42,-25|-8|AB6712,-26|5|3B73C8,-28|14|B06C18",0,0.9,0,300)
    TracePrint Dir.Delete ("/sdcard/ms_revoland_x.txt")
    TracePrint Dir.Delete ("/sdcard/ms_revoland_s.txt")
    PutAttachment "/sdcard/", "*.txt"
    do
        If Sys.AppIsFront("com.xiongliang.revoland") Then 
            If 找色(背包) then
                rem 重新开始
                Delay 1000
                PutAttachment "/data/data/", "ms_revoland_x"
                PutAttachment "/data/data/", "ms_revoland_s"
                Delay 1000
                zm.Execute ("chmod 777 /data/data/ms_revoland_s")
                zm.Execute ("chmod 777 /data/data/ms_revoland_x")
                Delay 500
                zm.Execute ("/data/data/ms_revoland_x")
                zm.Execute ("/data/data/ms_revoland_s")
                For 100
                    _坐标x = File.Read("/sdcard/ms_revoland_x.txt")
                    _坐标s = File.Read("/sdcard/ms_revoland_s.txt")
                    If (_坐标x = "输入的值有误" or _坐标s ="输入的值有误") or (_坐标s= "" or _坐标x= "" )  then
                        ShowMessage "等待内存搜索..."
                        TracePrint  "等待内存搜索..."
                        Delay 1000
                        修改内存 = False
                    Else 
                        ShowMessage "内存修改成功！！！"
                        Delay 1000
                        修改内存 = true
                        修改次数 = 修改次数 + 1
                        If 修改次数 < 4 Then 
                            If  修改次数=2
                                zm.FileWriteLine "/sdcard/ms_revoland_x.txt", 1, "6264"
                                zm.FileWriteLine "/sdcard/ms_revoland_s.txt", 1, "288"
                                goto 重新开始
                            ElseIf 修改次数 = 3 Then
                                zm.FileWriteLine "/sdcard/ms_revoland_x.txt", 1, "3360"
                                zm.FileWriteLine "/sdcard/ms_revoland_s.txt", 1, "720"
                                Goto 重新开始
                            Else 
                                Exit Do
                            End  if
                        End If
                        Exit Do
                    End If
                Next
            Else 
            End If
        Else 
            KillApp "com.xiongliang.revoland"
            Delay 2000
            RunApp "com.xiongliang.revoland"
            For 15
                Delay 1000
                ShowMessage "等待启动"
            Next
        End if
    Loop 
End Sub