1.         令 temptim = Split(tempvar," ")
  2.         根据 temptim(2) 选择
  3.         情况 "Jan":
  4.             令 mon = "01"
  5.         情况 "Feb":
  6.             令 mon = "02"
  7.         情况 "Mar":
  8.             令 mon = "03"
  9.         情况 "Apr":
  10.             令 mon = "04"
  11.         情况 "Mar":
  12.             令 mon = "05"
  13.         情况 "Jun":
  14.             令 mon = "06"
  15.         情况 "Jul":
  16.             令 mon = "07"
  17.         情况 "Aug":
  18.             令 mon = "08"
  19.         情况 "Sep":
  20.             令 mon = "09"
  21.         情况 "Oct":
  22.             令 mon = "10"
  23.         情况 "Nov":
  24.             令 mon = "11"
  25.         情况 "Dec":
  26.             令 mon = "12"
  27.         选择结束
  28.         令 timeGMT = CDate(temptim(3) & "年" & mon & "月" & temptim(1) & "日" & temptim(4))
  29.         令 GetNetTime = DateAdd("h",0,timeGMT)
  30.     结束VBScript块
  31.     令 cc = DateDiff("d","2011-11-4",GetNetTime)
  32.     如果 cc > 1 则
  33.         弹出窗口 "测试时间已过请联系作者QQ：254694795"
  34.         脚本停止运行
  35.     否则如果 cc < - 5 则
  36.         弹出窗口 "远程时间错误请联系作者QQ：254694795"
  37.         脚本停止运行
  38.     否则
  39.         弹出窗口 "作者要哭无泪，QQ：254694795，谢谢测试，测试时间剩余" & cc & "天."
  40.     条件结束
  41. 子程序结束
  42. 子程序 加血001
  43.     调用 ckcl(d1ID,0,0)
  44.     延时 300 毫秒
  45.     调用 移动(600,38)
  46.     延时 300 毫秒
  47.     （鼠标）右键单击, 1次
  48.     延时 300 毫秒
  49.     调用 移动(600,50)
  50.     延时 300 毫秒
  51.     （鼠标）右键单击, 1次
  52.     延时 300 毫秒
  53. 子程序结束
  54. 子程序 加血002
  55.     调用 ckcl(d1ID,0,0)
  56.     延时 300 毫秒
  57.     调用 移动(600,38)
  58.     延时 300 毫秒
  59.     （鼠标）右键单击, 1次
  60.     延时 300 毫秒
  61.     调用 移动(600,50)
  62.     延时 300 毫秒
  63.     （鼠标）右键单击, 1次
  64.     延时 300 毫秒
  65.     调用 ckcl(d2ID,151,0)
  66.     延时 300 毫秒
  67.     调用 移动(751,38)
  68.     延时 300 毫秒
  69.     （鼠标）右键单击, 1次
  70.     延时 300 毫秒
  71.     调用 移动(751,50)
  72.     延时 300 毫秒
  73.     （鼠标）右键单击, 1次
  74.     延时 300 毫秒
  75. 子程序结束
  76. 子程序 加血003
  77.     调用 ckcl(d1ID,0,0)
  78.     延时 300 毫秒
  79.     调用 移动(600,38)
  80.     延时 300 毫秒
  81.     （鼠标）右键单击, 1次
  82.     延时 300 毫秒
  83.     调用 移动(600,50)
  84.     延时 300 毫秒
  85.     （鼠标）右键单击, 1次
  86.     延时 300 毫秒
  87.     调用 ckcl(d2ID,151,0)
  88.     延时 300 毫秒
  89.     调用 移动(751,38)
  90.     延时 300 毫秒
  91.     （鼠标）右键单击, 1次
  92.     延时 300 毫秒
  93.     调用 移动(751,50)
  94.     延时 300 毫秒
  95.     （鼠标）右键单击, 1次
  96.     延时 300 毫秒
  97.     调用 ckcl(d3ID,378,0)
  98.     延时 300 毫秒
  99.     调用 移动(978,38)
  100.     延时 300 毫秒