大家好，我是郭立员~
昨天有群友问我怎么写个定时的功能？
这代码挺简单，大概思路就是先做个时间记录，然后循环比对时间，看看有没有到时间。
举个例子，脚本每隔20秒执行一下A操作，其余时间执行B操作，想想这个操作该怎么写。
直接上代码：
启动定时()Do If 定时检测(20) Then //参数20代表20秒 TracePrint "执行a操作--------------" 启动定时() Else TracePrint "执行b操作" End If Delay 200Loop/*----以下代码直接放到脚本的最后面----*/Function 启动定时() file.Write("/sdcard/pictures/定时.txt",TickCount())End FunctionFunction 定时检测(miao) Dim t=file.read("/sdcard/pictures/定时.txt") Dim n=1000*miao If Len(t) = 0 Then TracePrint "还未启动定时" EndScript End If If TickCount() - t > n Then 定时检测 = true Else 定时检测=false End If End Function我的代码中写了2个函数，函数1是启动定时，函数2是定时检测。
你在写脚本的时候，如果是我这种定时思路，可以直接用我上面的框架，如果你是想要在你脚本中插入这个定时功能，可以这么写：
第一步：把两个函数放到你的脚本最下面。
/*----以下代码直接放到脚本的最后面----*/Function 启动定时() file.Write("/sdcard/pictures/定时.txt",TickCount())End FunctionFunction 定时检测(miao) Dim t=file.read("/sdcard/pictures/定时.txt") Dim n=1000*miao If Len(t) = 0 Then TracePrint "还未启动定时" EndScript End If If TickCount() - t > n Then 定时检测 = true Else 定时检测=false End If End Function第二步：在你需要定时的代码位置写上
启动定时()第三步：检测到没到时间的代码位置写上
定时检测(20) //参数20代表20秒这个函数有返回值，如果到时间了返回true，如果没有到时间返回false
你在使用的时候可以把返回值作为判断的条件，用来控制判断是否生效，把要执行的代码放入到判断里面。
平时我其实不用两个函数，这里为了方便大家使用，借助txt文本为媒介，并且把函数一分为二。
好了内容就这些，下期写一下指定时间的定时写法。
免责声明: 文章源于会员发布，不作为任何投资建议
如有侵权请联系我们删除，本文链接：https://www.sws100.com/kexue/10662.html
