文首鸡汤:能用就行,授人以鱼不如授人以渔
0.我的脚本以及我的模拟器配置
平板版:1920x1080
Dim MyString, MyArray,ArrayLength
MyString = "11111 11111 11111"
MyArray = Split(MyString, " ")
ArrayLength = UBOUND(MyArray)
For i=0 To ArrayLength
TracePrint "循环中,i=" & i
// TracePrint MyArray(i)
Call 自动发送消息(MyArray(i))
Next
EndScript
Sub 自动发送消息(参数1)
// Dim messagestr = 参数1
Delay 1000
TracePrint "我是子程序,被你调用了"
TracePrint "参数1=" & 参数1
Tap 140, 280
Delay 1000
InputText 参数1
Delay 1000
Tap 230, 800
Delay 1000
Tap 1855, 777
Delay 1000
Tap 1847, 561
Delay 1000
InputText "你好"
Delay 1000
Tap 1847, 110
Delay 1000
Tap 100, 1013
Delay 1000
Tap 100, 1013
Delay 1000
Tap 100, 49
TracePrint "调用成功"
End Sub
1.目标:
按键精灵加雷电模拟器加app实现自动化操作代替人力
2.案例:
喵喵星球一键打招呼
3.工具准备:
工具 | 版本 | 官网地址 |
按键精灵手机助手 | 3.7.9 | |
按键精灵2014.06 | 3.7.0 | |
雷电模拟器 | 最新版本(9.0.57) | |
喵喵星球apk | 最新 |
4.操作步骤及脚本
1.进入雷电模拟器,打开root权限(非常重要!!!)
2.打开模拟器中的按键精灵并选择允许访问root权限(非常重要!!!)
3.应用中打开按键精灵打开通知权限(非常重要!!!)
4.按键精灵连接模拟器
5.显示已经root
6.新建脚本
7.执行脚本并调试输出
5.优点
1.有效解决雷电一键宏(输入中,已屏蔽问题)
2.丰富的调用函数