1. 子程序 时间限制()
2.     令 XmlHttp = CreateObject("Microsoft.XMLHTTP")
3.     XmlHttp.Open("Get","http://www.time.ac.cn/timeflash.asp?user=flash",False)
4.     XmlHttp.send()
5.     令 datetxt = XmlHttp.getResponseHeader("Date")
6.     令 XmlHttp = Nothing
7.     令 temdate = Split(datetxt,",")
8.     令 tempvar = Replace(temdate(1),"GMT","")
9.     令 temptim = Split(tempvar," ")
10.     根据 temptim(2) 选择
11.     情况 "Jan":
12.         令 mon = "01"
13.     情况 "Feb":
14.         令 mon = "02"
15.     情况 "Mar":
16.         令 mon = "03"
17.     情况 "Apr":
18.         令 mon = "04"
19.     情况 "Mar":
20.         令 mon = "05"
21.     情况 "Jun":
22.         令 mon = "06"
23.     情况 "Jul":
24.         令 mon = "07"
25.     情况 "Aug":
26.         令 mon = "08"
27.     情况 "Sep":
28.         令 mon = "09"
29.     情况 "Oct":
30.         令 mon = "10"
31.     情况 "Nov":
32.         令 mon = "11"
33.     情况 "Dec":
34.         令 mon = "12"
35.     选择结束
36.     令 timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
37.     令 网络时间 = DateAdd("h",8,timeGMT)
38.     循环开始
39.         令 时间 = "2012-12-17 21:58:49"
40.     当 Len(时间) = 8 并且 DateDiff("s",now,时间) > 0 或者 DateDiff("s",time,时间) > 0 或者 Len(时间) = 19 并且 DateDiff("s",now,时间) > 0 或者 DateDiff("s",time,时间) > 0 之前循环
41.     如果 Len(时间) < 10 则
42.         令 时间 = date & " " & 时间
43.     条件结束
44.     循环开始
45.         令 t = DateDiff("s",网络时间,时间)
46.         令 days = Int(t / 86400)
47.         令 t = t Mod 86400
48.         令 hours = Int(t / 3600)
49.         令 t = t Mod 3600
50.         令 minutes = Int(t / 60)
51.         令 t = t Mod 60
52.         令 w = Sys.GetScRX()
53.         如果 days < 10 则
54.             令 days = "0" & days
55.         条件结束
56.         令 显示 = "倒计时：" & CStr(days) + "日" + Right("0" & CStr(hours),2) + "时" + Right("0" & CStr(minutes),2) + "分" + Right("0" & CStr(t),2) + "秒"
57.         注释：显示方式，自行修改
58.         调用 Msg.ShowScrTXT(w / 2 - 92,0,w,768,显示,"0000FF")
59.         延时 1000 毫秒
60.     当 DateDiff("s",now,时间) < 0 之前循环
61.     弹出窗口 "时间到"
62.     ExitScript()
63. 子程序结束