虽然对于XX抹机这种工具研究的不多,但是这两天很多人都在论坛咨询这相关的问题,所以我就开始重视起来了,关于抹机软件相信大家都清楚呗!就是一个清理设备的工具,可以实现一键改机的功能,这个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
复制代码 其实我们上面给大家提供的源码是在某论坛上转载过来的,发现还是有一些利用价值的,当然我也不会用这个东西,只有专业的人才会懂,可能和XX抹机有一些相关,咋也不敢问,直接上源码
|