鲁达 今天小编给大家分享一个如何让程序每隔一段时间执行一次的代码，废话不多说，直接上干货！
Dim t1,t2,cha,first,sj
Delay 666
first = ReadUIConfig("输入框1", "0")//可以在界面填写，用来判断是否立马执行程序
first=int(first)
sj = ReadUIConfig("输入框2", "1")//填写需要间隔的时间
sj=int(sj)
If first = 0 Then //判断是否让程序立马执行
Call 主程序()
End If
//这里先让程序第一次
Do
t1 = Time()//获取程序开始的时间
Do
t2 = Time() //持续获取时间
ShowMessage "开始计时（秒）："&t2-t1
Delay 1000
If t2 - t1=sj*60 Then
Exit Do //每隔一定时间的时候跳出循环
End If
Loop
TracePrint "开始执行"
Call 主程序() //执行自己的程序
Delay 5000
Loop
Sub 主程序()
//填写自己想要的操作
End Sub