自动精灵如何制作脚本(脚本精灵怎么做脚本)

大家好,我是郭立员~

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

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

举个例子,脚本每隔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

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

启动定时()

第三步:检测到没到时间的代码位置写上

定时检测(20)  //参数20代表20秒

这个函数有返回值,如果到时间了返回true,如果没有到时间返回false

你在使用的时候可以把返回值作为判断的条件,用来控制判断是否生效,把要执行的代码放入到判断里面。

平时我其实不用两个函数,这里为了方便大家使用,借助txt文本为媒介,并且把函数一分为二。

好了内容就这些,下期写一下指定时间的定时写法。

本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 sumchina520@foxmail.com 举报,一经查实,本站将立刻删除。
如若转载,请注明出处:https://www.vsaren.com/10627.html