按键精灵手机脚本文档
//基本命令
//触摸命令
KeyPress"Back"
Delay3000
KeyDown"A"
KeyUp"A"
Swipe 100,100,200,200,2000
Tap 100,200
//id time
TouchDown100,400,1
TouchMove100,300,1,2000
TouchUp1
//标记
Rem"2"
Dim i =0
//控制命令
If i=0Then
TracePrint"条件判断符号被通过"
Elself i=1Then
TracePrint"否则条件判断符合被通过"
Else
TracePrint"否则"
End If
Dim a =1
Select Case Dim
Case0,1
TracePrint"2"
Case2
TracePrint"333"
Case Else
TracePrint"djs"
End Select
Do
TracePrint"就不停止"
Loop
Dim i =0
Do While i=0
TracePrint"条件成立就不停止"
Loop
Dim i =0
Do Until i=1
TracePrint"没有执行"
Loop
Dim i =0
Do Until i=0
TracePrint"一直执行"
Loop
Dim i =0
Do
TracePrint"ok"
Loop While i<>0
TracePrint"可执行一次"
Dim i =0
Do Whiletrue
TracePrint"我将循环10次停下来"
If i>=10Then
//当循环条件成立的时候，离开循环体
Exitdo
Endif
n=n+1
Loop
TracePrint n &"次"
For10
TracePrint"循环中"
Next
TracePrint"10次后离开循环"
Dim i
For i =9To0Step-1
TracePrint"循环中"
Next
Dim i =5
For i=0To10
TracePrint"循环中"
If i=5Then
Exit For //离开当前循环
End If
Dim array = Array("我","爱","按","键","精","灵")
For Each a In Array
TracePrint a
Next
Dim i =0
While i =0
TracePrint"我不可能停下来"
Wend
While i<10
i = i+1
TracePrint"正在循环中，i=",i
If i =5Then
TracePrint"准备退出循环"
Exit While
End If
Wend
TracePrint"循环结束，i=",i
Goto"1"
//中间代码
Rem"1"
TracePrint "直接跳转的标记1这里执行代码，中间的不执行"
Call callMethod(a)
EndScript //无条件停止脚本运行
Sub callMethod(Dim a)//Sub 不支持返回值
TracePrint a
End Sub
Call callFunction()
TracePrint"调用函数结束"
Function callFunction()//Function 支持返回值
TracePrint"我是被你调用的函数"
End Function
//控制命令
//颜色命令
//图像命令
//文字命令
//设备命令
//其他命令
Dim a//定义变量
Delay3000//延迟3秒
InputText "你好，我是按键精灵"//使用前先激活当前窗口输入框，在当前窗口输入字符串
TracePrint a//打印数据
ShowMessage"我是按键精灵",3000,350,350 //显示信息
KillApp "com.tencent.mm" //关闭微信
RunApp "com.tencent.mm" //启动微信
Import "Str.lua" //导入库文件
PutAttachment "","*.png" //释放附件把文件释放到当前目录下
SetControlBarPos 0,1 //设置悬浮窗口， 左侧0表示上，1表示下，右侧0表示不锁定，1表示锁定
SetAppSpeed("sh.lilith.dgame.uc",5)// 为刀塔游戏加速5倍区间（-10,-5),(5,10）取整数
//网络命令
GetNetworkTime() //获取网络时间
//界面配置
ReadUIConfig("账号",100)//读取界面配置
ReadConfig("移动",6)//读取脚本配置
WriteConfig("移动",6)//写入配置
//标准库函数
//数字函数
Abs(number)//绝对值
//字符串函数
//数组函数
Dim arr = Array(1,"ZI","3","442")
arr(1) ="ZI"
UBound(arr) =3//最大下标
Dim MyArray
MyArray = Split("VBScriptXisXfun!",X)
MyArray(0) ="VBScript"
MyArray(1) ="is"
MyArray(2) ="fun!"
Clone(MyArray)//复制数组
//类型转换函数
CBool(A)//转bool
CDbl(A) //转双精度浮点数
CSng(A) //转单精度浮点数
CInt(A)//转整数
CLng(A)//转长整
CStr(A)//转字符串
//时间日期函数
Date() //获取系统日期
Now() //获取系统日期和时间
TickCount()//获取脚本运行时间
Time() //获取系统时间
//其他函数
isArray(arr) //判断是否为数组
isNull(arr(0)) //判断是否为空
isNumeric(arr(1)) //判断是否为数字
//运算符
//算术运算
Dim resu =10+20
resu =10/20//不整除 0.5
resu =9\4 //整除 2
resu =2^3//幂运算 8
resu =15Mod4//取余 3
//连接运算
Dim s,s1,s2
s ="你好"
s1 = "按键精灵"
s2 = s & s1//你好按键精灵
//关系运算
= //等于或赋值
<>//不等于
//逻辑运算
And
Not
Or
//插件命令
//文件插件
Dim file = "/sdcard/MobileAnjian/anjian.txt"
Dim content ="按键精灵，我爱你"
Call File.Write(file,content)
Call File.Append(file,content)
返回值 = File.Read(file)
Dim byte = File.Bytes(file)
Dim content1 = array("按键精灵","按键精灵1")
Call File.WriteLines(file,content1)
File.ReadLine(file,1)
Call File.DeleteLine(file,1)
Call Dir.Creat(file)
Call File.Write(file, content1);
Dim num = File.length
File.LinesNumber(file)
Dim array = File.ReadLines(file)
Dim content2
For Each content2inarray
TracePrint content2
Next
//时间日期插件 t可以不填
DateTime.Year(t)
DateTime.Month(t)
DateTime.Day(t)
DateTime.Hour(t)
DateTime.Minute(t)
DateTime.Second(t)
DateTime.WeekDay(t)
DateTime.YearDay(t)
DateTime.Format()
//多线程插件
Thread.Start
@end
网友评论