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

admin_user

[按键精灵] 纯文本查看 复制代码

//充值绑定什么的我就不多说了。。。
//首先自己手动到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

简歌插件原贴地址:https://zimaoxy.com/b/forum.php?mod=viewthread&tid=580&highlight=xx


写代码不易，请动动你们的小手，评分一下？

gj222jg

可以，但是有用的时候再找！

liup0315

6666666666666666

大头的大

(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)

阿俊

xx抹机有破解版的不

pjjimysp

阿俊 发表于 2019-5-28 10:55
xx抹机有破解版的不

看我的帖子，我这版有一个，可能你能用到

zzlanjian

(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)(*^▽^*)

celebratory7

很给力，学习学习感谢作者