按键精灵安卓版做一个定时启动功能
- 2019 年 10 月 7 日
- 筆記
这两天好几个人问怎么给脚本加一个定时功能，也就是在固定时间执行指定的任务。
分析思路：
- 获取系统的时分秒
- 比对系统是否和设定的时间一样
- 每隔一秒钟比对一次，循环比对，直到比对成功以后退出循环。
代码截图（简易版）：
代码：
Dim 定时小时=9
Dim 定时分钟=20
Dim h,m
do
h =DateTime.Hour()
m = DateTime.minute()
TracePrint h,m
If h = 定时小时 and m = 定时分钟 Then
Exit Do
End If
Delay 1000
Loop
TracePrint "到时间了！"
第二种带有倒计时功能的代码：
代码：
Dim ds=10
Dim df=53
Dim h,m,s,时,分,秒
do
h =DateTime.Hour()
m = DateTime.minute()
s = DateTime.Second()
If h = ds and m = df Then
Exit Do
End If
秒 = 60 – s
If df – 1 < m Then
分 = 60 + df -1- m
时=ds-1-h
Else
分 = df-1 – m
时=ds-h
End If
TracePrint 时,分,秒
ShowMessage "距离开始还有"&时&"小时"&分&"分钟"&秒&"秒"
Delay 1000
Loop
TracePrint "到时间了！"
