返回值=网络时间()
到期时间 = "2015/3/1 20:30:00"
If CDate(到期时间) < 返回值 Then
MsgBox "脚本使用时间到期了"
EndScript
End If
Function 网络时间()
Set xmlHttp = CreateObject("Microsoft.XMLHTTP")
xmlHttp.Open "get", "http://m.hao123.com/1234", False
xmlHttp.send
sdate = ucase(xmlhttp.getResponseHeader("Date"))
Set xmlHttp = nothing
网络时间 = cdate(trim(mid(sdate, 5, instr(sdate, "GMT") - 6))) + 8 / 24
End Function
=================
除了上述方法，还可以使用时间戳来进行设定，逻辑一样的，超级模块里面就有获取时间戳功能