Import "zm.luae"
Import "ElementEx.luae"
Import "iconv.lua"
Import "bbyreg.mql"
Import "DateTime.lua"
zm.Init
Dim intX,intY
Dim 时间间隔,打卡,蓝牙间隔,打开蓝牙等待时间
时间间隔 = ReadUIConfig("时间间隔")
蓝牙间隔 = ReadUIConfig("蓝牙间隔")
打开蓝牙等待时间=ReadUIConfig("打开蓝牙等待时间")
//Device.SetBTEnable (true)//打开蓝牙
//Delay 蓝牙间隔
Do
Device.SetBTEnable (false)//关闭蓝牙
TracePrint "关闭蓝牙"
Delay 蓝牙间隔
Device.SetBTEnable (true)//打开蓝牙
TracePrint "打开蓝牙"
Delay 打开蓝牙等待时间
ElementEx.Find("res", "com.alibaba.android.rimet:id/h5_tabbaritem_txticon", "text", "统计") Then
ElementEx.Click "text", "统计"
TracePrint "点击统计"
Delay 10000
点击打卡
Delay 时间间隔
Loop
Sub 点击打卡
Do
打卡 = FindPic( 0, 0, 0, 0,"Attachment:打卡1.png", "000000", 3, 0.8, intX, intY)
If 打卡 > -1 And intY > -1 Then
TracePrint "点击打卡"
Tap intX, intY
Delay 100
Exit Do
Else
Exit Do
End If
End Sub