运行环境:分辨率:1600×900 色深:32位 操作系统:Microsoft Windows XP 按键精灵版本:9.24.11390
Sub 时间限制() Set XmlHttp = CreateObject("Microsoft.XMLHTTP") XmlHttp.Open "Get", "//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
按键精灵如何设置使用时间
按键精灵时间限制
按键精灵限制源码
按键精灵时间限制代码
按键精灵 时间
按键精灵源码时间限制
按键精灵使用限制代码
按键精灵倒计时代码