2个回答
展开全部
time1 = "12:00" //////这行修改成你需要的开始时间(精确到分钟)
time2 = "14:00" //////这行修改成你需要的停止时间(精确到分钟)
qiege1 = split(time1, ":")
qiege2 = split(time2, ":")
XS1 = qiege1(0)
FZ1 = qiege1(1)
XS2 = qiege2(0)
FZ2 = qiege2(1)
If XS1 < XS2 Then
XS2 = qiege2(0) + 24
End If
Rem aaa
sDate = Plugin.Sys.GetDateTime()
qiege3 = split(sDate, " ")
SJ = qiege3(1)
qiege4 = split(SJ, ":")
If XS2 > 23 Then
XS = qiege4(0)+24
Else
XS = qiege4(0)
End If
FZ = qiege4(1)
If XS > XS1 And XS < XS2 Then
ElseIf XS > XS1 And XS = XS2 And FZ <= FZ2 Then
ElseIf XS = XS1 And FZ >= FZ1 and XS < XS2 Then
ElseIf XS = XS1 And FZ >= FZ1 And XS = XS2 And FZ <= FZ2 Then
Else
Delay 1000
Goto aaa
End If
KeyPress "Enter", 1 //////这行改成你需要的按键
Goto aaa
time2 = "14:00" //////这行修改成你需要的停止时间(精确到分钟)
qiege1 = split(time1, ":")
qiege2 = split(time2, ":")
XS1 = qiege1(0)
FZ1 = qiege1(1)
XS2 = qiege2(0)
FZ2 = qiege2(1)
If XS1 < XS2 Then
XS2 = qiege2(0) + 24
End If
Rem aaa
sDate = Plugin.Sys.GetDateTime()
qiege3 = split(sDate, " ")
SJ = qiege3(1)
qiege4 = split(SJ, ":")
If XS2 > 23 Then
XS = qiege4(0)+24
Else
XS = qiege4(0)
End If
FZ = qiege4(1)
If XS > XS1 And XS < XS2 Then
ElseIf XS > XS1 And XS = XS2 And FZ <= FZ2 Then
ElseIf XS = XS1 And FZ >= FZ1 and XS < XS2 Then
ElseIf XS = XS1 And FZ >= FZ1 And XS = XS2 And FZ <= FZ2 Then
Else
Delay 1000
Goto aaa
End If
KeyPress "Enter", 1 //////这行改成你需要的按键
Goto aaa
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
已经发送,请查收。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |