让程序每隔一段时间执行一次

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