传递变量给判断模块 或者 写一个配置文件

时间点一样的话
用
       Dim 秒数 = ""
       Dim 分钟 = ""
       Dim dTime = ""
       
       Do While True
               
               dTime = Time.Now()
               分钟 = Time.Minute(dTime)
               秒数 = Time.Second(dTime)
               
               If 分钟=1 And 秒数=0

这里加入操作流程

Else
End If

If 分钟=1 And 秒数=0

这里加入操作流程

Else
End If

继续下一个流程 不断添加就好 

Loop