1. //******************************************************
  2. // 技能时间判断
  3. // 技能时间判断
  4. //******************************************************
  5. //******************************************************
  6. 子程序 [判断时间]
  7.     子程序 [判断时间]
  8.         延时10毫秒
  9.         延时10毫秒
  10.         如果表达式 (IsNumeric(sj(m))=True) 为真,则
  11.             如果表达式 (IsNumeric(sj(m))=True) 为真,则
  12.                 //< IsNumeric 函数：返回 Boolean 值指明表达式的值是否为数字>
  13.                 //< IsNumeric 函数：返回 Boolean 值指明表达式的值是否为数字>
  14.                 （VBScript语句） s(r)=CInt(sj(m))
  15.                 （VBScript语句） s(r)=CInt(sj(m))
  16.                 //< CInt 函数：返回已被转换为整形子类型的变体的表达式>
  17.                 //< CInt 函数：返回已被转换为整形子类型的变体的表达式>
  18.             否则
  19.             否则
  20.                 跳转到标记 时间
  21.                 跳转到标记 时间
  22.             条件结束
  23.         条件结束
  24.         （VBScript语句） m=m+1:r=r+1
  25.         （VBScript语句） m=m+1:r=r+1
  26.         标记 时间
  27.         标记 时间
  28.     子程序结束,回到调用处
  29. 子程序结束,回到调用处
  30. //*******************************************
  31. //*******************************************
  32. // 放时间技能
  33. // 放时间技能
  34. //********************************************
  35. //********************************************
  36. 子程序 时间技能
  37.     子程序 时间技能
  38.         延时10毫秒
  39.         延时10毫秒
  40.         如果表达式 (DateDiff("s",t1,now)>=s(0)) 为真,则
  41.             如果表达式 (DateDiff("s",t1,now)>=s(0)) 为真,则
  42.                 //< DateDiff 函数：返回两个日期之间的时间间隔>
  43.                 //< DateDiff 函数：返回两个日期之间的时间间隔>
  44.                 //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  45.                 //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  46.                 硬件模拟按键<2>
  47.                 硬件模拟按键<2>
  48.                 //按键2
  49.                 //按键2
  50.                 延时100毫秒
  51.                 延时100毫秒
  52.                 （VBScript语句） t1=now
  53.                 （VBScript语句） t1=now
  54.                 //重新定义时间变量
  55.                 //重新定义时间变量
  56.             条件结束
  57.         条件结束
  58.         如果表达式 (DateDiff("s",t2,now)>=s(1)) 为真,则
  59.             如果表达式 (DateDiff("s",t2,now)>=s(1)) 为真,则
  60.                 硬件模拟按键<3>
  61.                 硬件模拟按键<3>
  62.                 //按键3
  63.                 //按键3
  64.                 延时100毫秒
  65.                 延时100毫秒
  66.                 （VBScript语句） t2=now
  67.                 （VBScript语句） t2=now
  68.             条件结束
  69.         条件结束
  70.         如果表达式 (DateDiff("s",t3,now)>=s(2)) 为真,则
  71.             如果表达式 (DateDiff("s",t3,now)>=s(2)) 为真,则
  72.                 硬件模拟按键<4>
  73.                 硬件模拟按键<4>
  74.                 //按键 F1
  75.                 //按键 F1
  76.                 延时100毫秒
  77.                 延时100毫秒
  78.                 （VBScript语句） t3=now
  79.                 （VBScript语句） t3=now
  80.             条件结束
  81.         条件结束
  82.         如果表达式 (DateDiff("s",t4,now)>=s(3)) 为真,则
  83.             如果表达式 (DateDiff("s",t4,now)>=s(3)) 为真,则
  84.                 硬件模拟按键<5>
  85.                 硬件模拟按键<5>
  86.                 //按键F2
  87.                 //按键F2
  88.                 延时100毫秒
  89.                 延时100毫秒
  90.                 （VBScript语句） t4=now
  91.                 （VBScript语句） t4=now
  92.             条件结束
  93.         条件结束
  94.         如果表达式 (DateDiff("s",t5,now)>=s(4)) 为真,则
  95.             如果表达式 (DateDiff("s",t5,now)>=s(4)) 为真,则
  96.                 硬件模拟按键<6>
  97.                 硬件模拟按键<6>
  98.                 //按键F3
  99.                 //按键F3
  100.                 延时100毫秒