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