按键精灵9时间判断代码求解决

Question

我想实现一个脚本，就是在每天下午13点55开始，每过30分钟，就调用子程序。我现在这样写的，貌似很占资源。单独测试看起来行，真用，就不行了。求优化。求帮助
我的代码：
Do
Rem pd
st = time
If st > "13:55:00" and st < "13:59:00" Then
Call aa()
ElseIf st > "14:25:00" and st < "14:29:00" Then
Call aa()
ElseIf st > "14:55:00" and st < "14:59:00" Then
Call aa()
ElseIf st > "15:25:00" and st < "15:29:00" Then
Call aa()
ElseIf st > "15:55:00" and st < "15:59:00" Then
Call aa()
ElseIf st > "16:25:00" and st < "16:29:00" Then
Call aa()
ElseIf st > "16:55:00" and st < "16:59:00" Then
Call aa()
ElseIf st > "17:25:00" and st < "17:59:00" Then
Call aa()
ElseIf st > "17:55:00" and st < "17:59:00" Then
Call aa()

End If

Loop
sub aa()
Rem tzrw
dm_ret = dm.FindPic(0, 0, 2000, 2000, "txtp.bmp", "000000", 0.8, 0, tzX, tzY)
If tzX >= 0 Then
dm.MoveTO tzx+225 , tzy+225
Delay 500
dm.leftClick
Delay 500
dm.leftClick
Delay 500
dm.leftClick
Delay 500
End If
End Sub

Answer 1

Do
    st = time
    TracePrint st
    mt = split(st, ":")
    If int(mt(0)) >= 13 and int(mt(0)) <= 17 Then 
        If int(mt(1)) > 25 and int(mt(1)) < 29 Then 
            Call aa()
            //如果子程序执行时间少于5分钟
            //延时5分钟以免重复启动子程序
            For 5 * 60
                Delay 1000
            Next
        End If
    End If
Loop

追问

那么55分钟和59分钟了？
不好意思，刚开始学习。能否麻烦你注释下你的语句。

追答

Do
    st = time
    //分拆字符串保存到数组
    mt = split(st, ":")
    //判断小时部分
    If int(mt(0)) >= 13 and int(mt(0)) <= 17 Then 
        //判断分钟部分
        If (int(mt(1)) > 25 and int(mt(1)) < 29) or (int(mt(1)) > 55 and int(mt(1)) < 59) Then 
            Call aa()
            //如果子程序执行时间少于5分钟
            //延时5分钟以免重复启动子程序
            For 5 * 60
                Delay 1000
            Next
        End If
    End If
Loop

 下面是更简洁的:

小时 = int(Hour(TIME))
分钟 = int(Minute(TIME))
If 小时 >= 13 and 小时 <= 17 Then 
    If (分钟 >= 25 and 分钟 <= 29) or (分钟 >= 55 and 分钟 <= 59) Then 
        Call aa()
    End If
End If