运行环境：分辨率：1600×900 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：9.24.11390

Sub 时间限制()   Set XmlHttp = CreateObject("Microsoft.XMLHTTP")       XmlHttp.Open "Get", "http://www.time.ac.cn/timeflash.asp?user=flash", False       XmlHttp.send       datetxt=XmlHttp.getResponseHeader("Date")       Set XmlHttp = Nothing       temdate = Split(datetxt, ",")       tempvar = Replace(temdate(1), "GMT", "")       temptim = Split(tempvar, " ")       Select Case temptim(2)       Case "Jan":           mon = "01"       Case "Feb":           mon = "02"       Case "Mar":           mon = "03"       Case "Apr":           mon = "04"       Case "Mar":           mon = "05"       Case "Jun":           mon = "06"       Case "Jul":           mon = "07"       Case "Aug":           mon = "08"       Case "Sep":           mon = "09"       Case "Oct":           mon = "10"       Case "Nov":           mon = "11"       Case "Dec":           mon = "12"       End Select       timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))       网络时间 = DateAdd("h", 8, timeGMT)   Do       时间 = "2012-12-17 21:58:49"   Loop Until Len(时间) = 8 and DateDiff("s", now, 时间) > 0 or DateDiff("s", time, 时间) > 0 or Len(时间) = 19 and DateDiff("s", now, 时间) > 0 or DateDiff("s", time, 时间) > 0   If Len(时间) < 10 Then 时间 = date & " " & 时间   Do       t = DateDiff("s", 网络时间, 时间)       days = Int(t / 86400)       t = t Mod 86400       hours = Int(t / 3600)       t = t Mod 3600       minutes = Int(t / 60)       t = t Mod 60 : w = Plugin.Sys.GetScRX()       If days < 10 Then days = "0" & days       显示 = "倒计时：" & CStr(days) + "日" + Right("0" & CStr(hours), 2) + "时" + Right("0" & CStr(minutes), 2) + "分" + Right("0" & CStr(t), 2) + "秒"       //显示方式，自行修改       Call Plugin.Msg.ShowScrTXT(w/2-92, 0, w, 768, 显示, "0000FF")       Delay 1000   Loop Until DateDiff("s", now, 时间) < 0   MessageBox "时间到"   ExitScript       End Sub