按键精灵 怎么做一个定时功能

这两天好几个人问怎么给脚本加一个定时功能,也就是在固定时间执行指定的任务。

分析思路:

  1. 获取系统的时分秒
  2. 比对系统是否和设定的时间一样
  3. 每隔一秒钟比对一次,循环比对,直到比对成功以后退出循环。

代码截图(简易版):

问题解答:怎么做一个定时功能

代码:

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 “到时间了!”

本站内容来源于网络,转载请注明出处和链接!
本文链接地址: https://pumpkinit.com/2183.html
南瓜  [https://pumpkinit.com]  感谢

发表评论

电子邮件地址不会被公开。 必填项已用*标注