[教程源码] "简歌丶"XX抹机神器插件后台常用调用源码

//充值绑定什么的我就不多说了。。。
//首先自己手动到XX抹机里面添加被抹机的软件
//然后修改一下抹机储存路径改为"/sdcard"
//然后就可以进行下面操作了
//成功则返回true，失败则返回失败原因

Import "File.lua"
Import "Cjson.lua"
Dim 新建 = xx("新建环境") 
TracePrint 新建   

Dim 启动应用 = xx("启动软件|这里填写被抹机的软件的包名") 
TracePrint 启动应用

Dim 重命名环境 = xx("重命名当前环境|这里填写重命名环境的名称") 
TracePrint 重命名环境

Dim 删除环境 = xx("删除当前环境") 
TracePrint 删除环境

Dim 获取环境名称 = xx("获取当前环境名称") 
TracePrint 获取环境名称

Dim 模拟定位 = xx("随机模拟定位") 
TracePrint 模拟定位 

Dim 模拟定位到IP城市 = xx("模拟定位到IP所在城市") 
TracePrint 模拟定位到IP城市

Dim 获取环境 = xx("获取环境列表") 
TracePrint 获取环境

Dim 切换环境上 = xx("切换到上一个环境")
TracePrint 切换环境上

Dim 切换环境下 = xx("切换到下一个环境") 
TracePrint 切换环境下

Dim 保存数据 = xx("保存应用数据") //将沙盒中的应用数据保存到环境目录中,以便将来恢复,但是xx默认开启自动保存应用数据,只有将自动保存的开关关闭这个功能才可以使用,一般情况下无需使用,仅供特殊用户使用
TracePrint 保存数据 



//这子程序里面的代码不需要修改，直接把他放在脚本里面就不管了。它会自动执行上面的命令进行操作
Function xx(cmd) 
    File.Write "/data/data/zpp.wjy.xxsq/share/cmd.txt", cmd
    Delay 200
    Dim 输出
    While true
        输出 = File.Read ( "/data/data/zpp.wjy.xxsq/share/cmd_return.txt")
        If (输出="正在处理") Then 
            TracePrint 输出 
            Delay 1000 
        Else 
            Exit While
        End If
    Wend
    xx=输出
End Function