脚本也能有定时功能吗（按键精灵定时启动脚本的代码）

活该孤独 • 2022-07-24 13:01:57 • 软件

昨天有群友问我怎么写个定时的功能？

这代码挺简单，大概思路就是先做个时间记录，然后循环比对时间，看看有没有到时间。

举个例子，脚本每隔20秒执行一下A操作，其余时间执行B操作，想想这个操作该怎么写。

直接上代码：

启动定时()
Do
    If 定时检测(20) Then  //参数20代表20秒
        TracePrint "执行a操作--------------"
        启动定时()
    Else 
        TracePrint "执行b操作"
    End If
    Delay 200
Loop






/*----以下代码直接放到脚本的最后面----*/
Function 启动定时()
    file.Write("/sdcard/pictures/定时.txt",TickCount())
End Function


Function 定时检测(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 Function


Function 定时检测(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

第二步：在你需要定时的代码位置写上