按键精灵时间限制源码

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

@mlqqmv    2012/12/21

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