1.         令 XmlHttp = CreateObject("Microsoft.XMLHTTP")
  2.         XmlHttp.Open("Get","http://www.baidu.com/",False)
  3.         XmlHttp.send()
  4.         令 datetxt = XmlHttp.getResponseHeader("Date")
  5.         令 XmlHttp = Nothing
  6.         注释：//将获取到的原始时间进行格式化 2010年01月28日 03:09:52
  7.         令 temdate = Split(datetxt,",")
  8.         令 tempvar = Replace(temdate(1),"GMT","")
  9.         令 temptim = Split(tempvar," ")
  10.         根据 temptim(2) 选择
  11.         情况 "Jan":
  12.             令 mon = "01"
  13.         情况 "Feb":
  14.             令 mon = "02"
  15.         情况 "Mar":
  16.             令 mon = "03"
  17.         情况 "Apr":
  18.             令 mon = "04"
  19.         情况 "May":
  20.             令 mon = "05"
  21.         情况 "Jun":
  22.             令 mon = "06"
  23.         情况 "Jul":
  24.             令 mon = "07"
  25.         情况 "Aug":
  26.             令 mon = "08"
  27.         情况 "Sep":
  28.             令 mon = "09"
  29.         情况 "Oct":
  30.             令 mon = "10"
  31.         情况 "Nov":
  32.             令 mon = "11"
  33.         情况 "Dec":
  34.             令 mon = "12"
  35.         选择结束
  36.         注释：//将获取到的时间转换为北京时间+8小时
  37.         令 timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
  38.         令 GetNetTime = DateAdd("h",8,timeGMT)
  39.     结束VBScript块
  40.     令 ShiJian = (Year(GetNetTime) & Right("0" & Month(GetNetTime),2) & Right("0" & Day(GetNetTime),2) & Right("0" & Hour(GetNetTime),2) & Right("0" & Minute(GetNetTime),2))
  41.     如果 ShiJian > 201005092359 则
  42.         弹出窗口 "试用期已过，请联系QQ：495177767 购买，谢谢！"
  43.         脚本停止运行
  44.     否则
  45.     条件结束
  46. 子程序结束