? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?按鍵精靈手機(jī)腳本文檔
//基本命令
//觸摸命令
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
//標(biāo)記
Rem"2"
Dim i =0
//控制命令
If i=0Then
? ? TracePrint"條件判斷符號(hào)被通過(guò)"
Elself i=1Then
? ? TracePrint"否則條件判斷符合被通過(guò)"
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"沒(méi)有執(zhí)行"
Loop
Dim i =0
Do Until i=0
TracePrint"一直執(zhí)行"
Loop
Dim i =0
Do
? ? TracePrint"ok"
Loop While i<>0
TracePrint"可執(zhí)行一次"
Dim i =0
Do Whiletrue
? ? TracePrint"我將循環(huán)10次停下來(lái)"
? ? If i>=10Then
? ? //當(dāng)循環(huán)條件成立的時(shí)候黄虱，離開(kāi)循環(huán)體
? ? ? ? Exitdo
? ? Endif
? ? n=n+1
Loop
TracePrint n &"次"
For10
? ? TracePrint"循環(huán)中"
Next
TracePrint"10次后離開(kāi)循環(huán)"
Dim i
For i =9To0Step-1
? ? TracePrint"循環(huán)中"
Next
Dim i =5
For i=0To10
? ? TracePrint"循環(huán)中"
? ? If i=5Then
? ? ? ? Exit For? ? //離開(kāi)當(dāng)前循環(huán)
? ? End If
Dim array = Array("我","愛(ài)","按","鍵","精","靈")
For Each a In Array
? ? TracePrint a
Next
Dim i =0
While i =0
TracePrint"我不可能停下來(lái)"
Wend
While i<10
i = i+1
TracePrint"正在循環(huán)中源譬，i=",i
If i =5Then
TracePrint"準(zhǔn)備退出循環(huán)"
Exit While
End If
Wend
TracePrint"循環(huán)結(jié)束，i=",i
Goto"1"
//中間代碼
Rem"1"
TracePrint "直接跳轉(zhuǎn)的標(biāo)記1這里執(zhí)行代碼，中間的不執(zhí)行"
Call callMethod(a)
EndScript? //無(wú)條件停止腳本運(yùn)行
Sub callMethod(Dim a)//Sub 不支持返回值
? ? TracePrint a
End Sub
Call callFunction()
TracePrint"調(diào)用函數(shù)結(jié)束"
Function callFunction()//Function 支持返回值
? ? TracePrint"我是被你調(diào)用的函數(shù)"
End Function
//控制命令
//顏色命令
//圖像命令
//文字命令
//設(shè)備命令
//其他命令
Dim a//定義變量
Delay3000//延遲3秒
InputText "你好拆吆，我是按鍵精靈"http://使用前先激活當(dāng)前窗口輸入框，在當(dāng)前窗口輸入字符串
TracePrint a//打印數(shù)據(jù)
ShowMessage"我是按鍵精靈",3000,350,350? //顯示信息
KillApp "com.tencent.mm"? ? //關(guān)閉微信
RunApp "com.tencent.mm" //啟動(dòng)微信
Import "Str.lua" //導(dǎo)入庫(kù)文件
PutAttachment "","*.png" //釋放附件把文件釋放到當(dāng)前目錄下
SetControlBarPos 0,1? ? //設(shè)置懸浮窗口遏弱， 左側(cè)0表示上授舟，1表示下，右側(cè)0表示不鎖定缀匕，1表示鎖定
SetAppSpeed("sh.lilith.dgame.uc",5)//?為刀塔游戲加速5倍區(qū)間（-10,-5),(5,10）取整數(shù)
//網(wǎng)絡(luò)命令
GetNetworkTime()? ? //獲取網(wǎng)絡(luò)時(shí)間
//界面配置
ReadUIConfig("賬號(hào)",100)//讀取界面配置
ReadConfig("移動(dòng)",6)//讀取腳本配置
WriteConfig("移動(dòng)",6)//寫(xiě)入配置
//標(biāo)準(zhǔn)庫(kù)函數(shù)
//數(shù)字函數(shù)
Abs(number)//絕對(duì)值
//字符串函數(shù)
//數(shù)組函數(shù)
Dim arr = Array(1,"ZI","3","442")
arr(1) ="ZI"
UBound(arr) =3//最大下標(biāo)
Dim MyArray
MyArray = Split("VBScriptXisXfun!",X)
MyArray(0) ="VBScript"
MyArray(1) ="is"
MyArray(2) ="fun!"
Clone(MyArray)//復(fù)制數(shù)組
//類型轉(zhuǎn)換函數(shù)
CBool(A)//轉(zhuǎn)bool
CDbl(A)? //轉(zhuǎn)雙精度浮點(diǎn)數(shù)
CSng(A)? //轉(zhuǎn)單精度浮點(diǎn)數(shù)
CInt(A)//轉(zhuǎn)整數(shù)
CLng(A)//轉(zhuǎn)長(zhǎng)整
CStr(A)//轉(zhuǎn)字符串
//時(shí)間日期函數(shù)
Date() //獲取系統(tǒng)日期
Now() //獲取系統(tǒng)日期和時(shí)間
TickCount()//獲取腳本運(yùn)行時(shí)間
Time() //獲取系統(tǒng)時(shí)間
//其他函數(shù)
isArray(arr)? ? //判斷是否為數(shù)組
isNull(arr(0))? //判斷是否為空
isNumeric(arr(1))? //判斷是否為數(shù)字
//運(yùn)算符
//算術(shù)運(yùn)算
Dim resu =10+20
resu =10/20//不整除 0.5
resu =9\4? //整除 2
resu =2^3//冪運(yùn)算 8
resu =15Mod4//取余 3
//連接運(yùn)算
Dim s,s1,s2
s ="你好"
s1 = "按鍵精靈"
s2 = s & s1//你好按鍵精靈
//關(guān)系運(yùn)算
= //等于或賦值
<>//不等于
//邏輯運(yùn)算
And
Not
Or
//插件命令
//文件插件
Dim file = "/sdcard/MobileAnjian/anjian.txt"
Dim content ="按鍵精靈纳决，我愛(ài)你"
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
//時(shí)間日期插件 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
