①第一次循环如果刚好计算机时间刚好符合设定，确实执行第一次弹窗，但是如果在这之前启动，就算达到设定时间就会失效
②循环失败，看调试里记录，没有报错，发现时间《sub 循环》里的时间0>时间220类似的，直接跳过，不晓得是比较失效，还是数据丢失直接跳过比较）
call 循环
sub 循环
do
call 时间定义
If 时间0 > 时间32 Then
MsgBox 11111
exit do
End If
Delay 500
If 时间0 > 时间220 and 时间0 < 时间32 Then
MsgBox 2222
End If
Delay 60000
loop
end sub
Sub 时间定义
//模拟方式(0普通|1硬件|2超级)
//下面设置超级模式
SetSimMode 2
//你要的设置的时间，也可作为变量随意
Dim 时间0,时间110,时间11,时间12,时间21,时间32
时间0 =Hour(now)*10000+Minute(now)*100+Second(now)
时间110 =82505
时间11 =83000
时间12 =120000
时间21 =133000
时间32=170000
End sub