按键精灵-日期-随心

CALL  时间限制
//此处接正式脚本
//--------------
EndScript 
Sub 时间限制
    VBSBegin 
        ' //获取百度原始时间
        Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
        XmlHttp.Open "Get", "http://www.baidu.com/", False
        XmlHttp.send
        datetxt=XmlHttp.getResponseHeader("Date")
        Set XmlHttp = Nothing
        ' //将获取到的原始时间进行格式化 2013年03月20日 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 "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
        '//将获取到的时间转换为北京时间+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<201003111230
        Delay 100
    Else 
        MessageBox "试用期已过，请联系QQ：XXXXXXXX 购买，谢谢！"
        EndScript 
    End If 
End sub