1.                 如果表达式 (DateDiff("s",t(10),now)>=5) 为真,则
  2.                     //< DateDiff 函数：返回两个日期之间的时间间隔>
  3.                     //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  4.                     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
  5.                     如果表达式 (x1>0 and y1>0) 为真,则
  6.                         //到达挂机点检测
  7.                         延时100毫秒
  8.                         t(10)=now
  9.                         //重新定义时间变量
  10.                         鼠标移到 x6+4 , y6+4
  11.                         延时500毫秒
  12.                         左键单击
  13.                         //关掉标记位置
  14.                     否则
  15.                         延时10毫秒
  16.                         跳转到标记 跑路时间
  17.                     条件结束
  18.                 否则
  19.                     延时10毫秒
  20.                     跳转到标记 跑路时间
  21.                 条件结束
  22.             否则
  23.                 鼠标移到 x6+4 , y6+4
  24.                 延时500毫秒
  25.                 左键单击
  26.                 //关掉标记位置
  27.             条件结束
  28.         条件结束
  29.     条件结束
  30. 子程序结束,回到调用处
  31. //************************************************
  32. // 挂机范围
  33. //************************************************
  34. 子程序 挂机范围
  35.     延时10毫秒
  36.     如果表达式 (DateDiff("s",t(12),now)>=1800) 为真,则
  37.         //< DateDiff 函数：返回两个日期之间的时间间隔>
  38.         //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  39.         延时10毫秒
  40.         t(12)=now
  41.         延时10毫秒
  42.         调用子程序 挂机点
  43.         //每半小时自动返回挂机点一次
  44.     条件结束
  45.     延时10毫秒
  46.     如果表达式 (BJ>=1) 为真,则
  47.         如果表达式 (DateDiff("s",t(11),now)>=8) 为真,则
  48.             //< DateDiff 函数：返回两个日期之间的时间间隔>
  49.             //<"s"：秒> <t1：时间变量> <now：当前系统日期和时间> <s(0)：自定义时间变量>
  50.             t(11)=now
  51.             //重新定义时间变量,使每10秒检测一次
  52.             调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
  53.             如果表达式 (x4>0 and y4>0) 为真,则
  54.                 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
  55.                 如果表达式 (x5>0 and y5>0) 为真,则
  56.                     延时10毫秒
  57.                     a=x5-x4-4
  58.                     b=y5-y4-4
  59.                     如果表达式 (Abs(a)>=BJ or Abs(b)>=BJ) 为真,则
  60.                         //------------------
  61.                         调用子程序 挂机点
  62.                         //------------------
  63.                         延时10毫秒
  64.                     条件结束
  65.                 条件结束
  66.             条件结束
  67.         条件结束
  68.     条件结束
  69. 子程序结束,回到调用处
  70. //*****************************************************
  71. 子程序 放大地图
  72.     延时10毫秒
  73.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1023,767,"Attachment:\定位点.BMP",0.8,x,y)
  74.     如果表达式 (x7>0 and y7>0) 为真,则
  75.         鼠标移到 x7+4 , y7+4
  76.         延时500毫秒
  77.         左键单击
  78.         //放大地图
  79.     条件结束
  80. 子程序结束,回到调用处
  81. //***************************************************
  82. 子程序 初始化时间
  83.     延时10毫秒
  84.     j=1
  85.     循环 14 遍
  86.         t(j)=now
  87.         j=j+1
  88.     循环结束
  89. 子程序结束,回到调用处