12

Dimenv time2
Dimenv s
a = InputBox(“请输入几分钟后上传课程:”)
s=a601000
//首先得到当前时间
time1 = now()
//得到一小时之后的时间
time2=DateAdd(“n”,a,time1)
BeginThread 倒计时
Sub 倒计时
do
x = DateDiff(“s”, now, time2)
Delay 1000
Call Plugin.Msg.ShowScrTXT(0, 0, 300, 150, “距离上传课程还有:”&(x\60)&”分”&(x mod 60)&”秒 “, “FFB6C1”)
Loop
End Sub
TracePrint s
Delay s
MoveTo 51, 46

问天道 » 12

评论 0

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址