请问一下在什么情况下会计算出现189912300000
这是一个获得网络时间,然后进行对比验证的脚本,现在想知道189912300000是怎么得出的? 就是我有2太联网的机器,不知道为什么1台可以过验证,一台就显示未连接,既是189912300000。求助,附上源码,请大侠解决我的问题Sub 时间限制
VBSBegin
' //获取百度原始时间
Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
XmlHttp.Open "Get", "http://www., False
XmlHttp.send
datetxt=XmlHttp.getResponseHeader("Date")
Set XmlHttp = Nothing
' //将获取到的原始时间进行格式化 2010年03月11日 03:09:52
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 "May":
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
'//将获取到的时间转换为北京时间+8小时
timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
GetNetTime = DateAdd("h",8, timeGMT)
VBSEnd
ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))
If ShiJian=189912300000
MessageBox "未连接到服务器"
EndScript
//以下数字就是脚本到期时间
ElseIf ShiJian<201211121630
Delay 100
Else
MessageBox "服务器升级维护 "
Delay 100
EndScript