1.     否则
  2.         调用子程序 当前时间
  3.         Message = CurrentTime & "！！！卖出商品结束，无任何卖出物..."
  4.         调用子程序 写入日志文件
  5.     条件结束
  6. 子程序结束,回到调用处
  7. 子程序 行情查看
  8.     //点开行情页面
  9.     //Delay 1000
  10.     StMenu = 0
  11.     如果表达式 (StMenu = 0) 为真,则循环执行
  12.         PosX = 729
  13.         PosY = 360
  14.         调用子程序 移动鼠标
  15.         左键单击
  16.         调用子程序 延时判定
  17.         延时2000毫秒
  18.         PosX = 102
  19.         PosY = 99
  20.         调用子程序 坐标转换
  21.         如果 (PosX,PosY) 的颜色大约等于 #BBBBBB 则
  22.             StMenu = 1
  23.             调用子程序 当前时间
  24.             Message = CurrentTime & "行情查看页面打开成功..."
  25.             调用子程序 写入日志文件
  26.         否则
  27.             调用子程序 当前时间
  28.             Message = CurrentTime & "！！！行情查看页面打开未成功..."
  29.             调用子程序 写入日志文件
  30.             //再去找老板
  31.             调用子程序 查找交易所老板
  32.         条件结束
  33.     循环结束
  34.     调用子程序 行情数组初始化
  35.     调用子程序 卖出行情查看
  36.     调用子程序 买入行情查看
  37.     //行情查看结束
  38.     按键<Esc>
  39.     延时1000毫秒
  40. 子程序结束,回到调用处
  41. 子程序 行情数组初始化
  42.     //判断买入走势（0-货不存在，1-Down下，2-Calm平，3-Up上）
  43.     Num = 1
  44.     循环 10 遍
  45.         （VBScript语句） MarketBuy(Num) = 0
  46.         Num = Num+1
  47.     循环结束
  48.     //判断卖出走势（0-货不存在，1-Down下，2-Calm平，3-Up上）
  49.     Num = 1
  50.     循环 15 遍
  51.         （VBScript语句） MarketSell(Num) = 0
  52.         Num = Num+1
  53.     循环结束
  54.     //百分比制定买入信息（0-货不存在，1-买入，2-价高不买）
  55.     Num = 1
  56.     循环 10 遍
  57.         （VBScript语句） BSDirection(Num) = 0
  58.         Num = Num+1
  59.     循环结束
  60. 子程序结束,回到调用处
  61. 子程序 卖出行情查看
  62.     //选择卖出标志商品
  63.     SellChoose = 0
  64.     Num = 1
  65.     循环 15 遍
  66.         PosX = 424
  67.         PosY = 99
  68.         调用子程序 坐标转换
  69.         调用子程序 商品坐标转换
  70.         如果 (PosX,PosY) 的颜色大约等于 #BBBBBB 则
  71.             PosX = 669
  72.             PosY = 133
  73.             调用子程序 坐标转换
  74.             调用子程序 商品坐标转换
  75.             如果 (PosX,PosY) 的颜色大约等于 #CCDD11 则
  76.                 （VBScript语句） MarketSell(Num) = 1
  77.             否则
  78.                 如果 (PosX,PosY) 的颜色大约等于 #22DD99 则
  79.                     （VBScript语句） MarketSell(Num) = 2
  80.                     如果表达式 (SellChoose = 0) 为真,则
  81.                         SellChoose = Num
  82.                     条件结束
  83.                 否则
  84.                     如果 (PosX,PosY) 的颜色大约等于 #2277DD 则
  85.                         （VBScript语句） MarketSell(Num) = 3
  86.                         SellChoose = Num
  87.                     否则
  88.                         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  89.                     条件结束
  90.                 条件结束
  91.             条件结束
  92.         否则
  93.             跳转到标记 卖出行情查看结束
  94.         条件结束
  95.         如果表达式 (Num>=5) 为真,则
  96.             PosX = 694
  97.             PosY = 369
  98.             调用子程序 移动鼠标
  99.             如果 (PosX,PosY) 的颜色大约等于 #000000 则
  100.                 PosX = 694