1.     否则
  2.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  3.     条件结束
  4.     调用子程序 行情查看
  5.     如果表达式 (iaccountant = 0) 为真,则
  6.         调用子程序 买入商品
  7.     否则如果(iaccountant = 1)为真,则
  8.         调用子程序 会计买入
  9.     否则
  10.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  11.     条件结束
  12.     调用子程序 行动力保护
  13. 子程序结束,回到调用处
  14. 子程序 会计买入
  15.     //Delay 1000
  16.     Num = 1
  17.     循环 10 遍
  18.         如果表达式 (BSDirection(Num) = 1 or BSDirection(Num) = 2) 为真,则
  19.             如果表达式 (BSDirection(Num) = 1) 为真,则
  20.                 StMenu = 0
  21.                 如果表达式 (StMenu = 0) 为真,则循环执行
  22.                     PosX = 645
  23.                     PosY = 357
  24.                     调用子程序 移动鼠标
  25.                     左键单击
  26.                     调用子程序 延时判定
  27.                     延时2000毫秒
  28.                     PosX = 62
  29.                     PosY = 94
  30.                     调用子程序 坐标转换
  31.                     如果 (PosX,PosY) 的颜色大约等于 #BBBBBB 则
  32.                         StMenu = 1
  33.                         调用子程序 当前时间
  34.                         Message = CurrentTime & "会计买入页面打开成功..."
  35.                         调用子程序 写入日志文件
  36.                     否则
  37.                         调用子程序 当前时间
  38.                         Message = CurrentTime & "！！！会计买入页面打开未成功..."
  39.                         调用子程序 写入日志文件
  40.                         调用子程序 查找交易所老板
  41.                     条件结束
  42.                 循环结束
  43.                 PosX = 62
  44.                 PosY = 94
  45.                 调用子程序 移动鼠标
  46.                 左键单击
  47.                 延时500毫秒
  48.                 TNum = Num-1
  49.                 循环 TNum 遍
  50.                     按键<Down>
  51.                     延时500毫秒
  52.                 循环结束
  53.                 调用子程序 快速入仓
  54.                 如果表达式 (MarketBuy(Num) = 1 or MarketBuy(Num) = 2) 为真,则
  55.                     调用子程序 砍价要价
  56.                 条件结束
  57.                 //点确定
  58.                 PosX = 661
  59.                 PosY = 411
  60.                 调用子程序 坐标转换
  61.                 如果 (PosX,PosY) 的颜色不等于 #736A56 则
  62.                     鼠标移到 PosX , PosY
  63.                     延时600毫秒
  64.                     左键单击
  65.                     调用子程序 延时判定
  66.                     延时2000毫秒
  67.                     调用子程序 当前时间
  68.                     Message = CurrentTime & "买入：" & Num & " 号商品成功..."
  69.                     调用子程序 写入日志文件
  70.                 否则
  71.                     按键<Esc>
  72.                     延时600毫秒
  73.                     调用子程序 当前时间
  74.                     Message = CurrentTime & "！！！买入：" & Num & " 号商品未成功..."
  75.                     调用子程序 写入日志文件
  76.                 条件结束
  77.             条件结束
  78.         否则
  79.             跳转到标记 会计买入结束
  80.         条件结束
  81.         Num = Num+1
  82.     循环结束
  83.     标记 会计买入结束
  84. 子程序结束,回到调用处
  85. 子程序 会计卖出
  86.     //Delay 1000
  87.     Num = 1
  88.     循环 15 遍
  89.         如果表达式 (MarketSell(Num) = 0) 为真,则
  90.             如果表达式 (Num = 1) 为真,则
  91.                 调用子程序 当前时间
  92.                 Message = CurrentTime & "没有卖出商品..."
  93.                 调用子程序 写入日志文件
  94.             条件结束
  95.             跳转到标记 会计卖出结束
  96.         否则
  97.             //StMenu = 0
  98.             //While StMenu = 0
  99.             PosX = 687
  100.             PosY = 359