1.                 PosY = 362
  2.                 调用子程序 坐标转换
  3.                 如果 (PosX,PosY) 的颜色不等于 #AA9977 则
  4.                     左键单击
  5.                     延时600毫秒
  6.                 否则
  7.                     跳转到标记 卖出行情查看结束
  8.                 条件结束
  9.             条件结束
  10.         条件结束
  11.         Num = Num+1
  12.     循环结束
  13.     标记 卖出行情查看结束
  14.     //Num = 1
  15.     //For 15
  16.     //VBSCall MessageBox (Num)
  17.     //VBSCall MessageBox (MarketSell(Num))
  18.     //Num = Num+1
  19.     //EndFor
  20. 子程序结束,回到调用处
  21. 子程序 买入行情查看
  22.     //选择买入标志商品
  23.     BuyChoose = 0
  24.     Num = 1
  25.     循环 10 遍
  26.         PosX = 155
  27.         PosY = 143
  28.         调用子程序 坐标转换
  29.         调用子程序 商品坐标转换
  30.         调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  31.         如果表达式 (x>0 and y>0) 为真,则
  32.             //VBSCall MessageBox (x)
  33.             //VBSCall MessageBox (Y)
  34.             //是不是大于百分之130
  35.             如果表达式 ((x-PosX)*2>=iQuotation) 为真,则
  36.                 （VBScript语句） BSDirection(Num) = 2
  37.             否则
  38.                 （VBScript语句） BSDirection(Num) = 1
  39.                 PosX = 347
  40.                 PosY = 133
  41.                 调用子程序 坐标转换
  42.                 调用子程序 商品坐标转换
  43.                 如果 (PosX,PosY) 的颜色大约等于 #CCDD11 则
  44.                     （VBScript语句） MarketBuy(Num) = 1
  45.                     BuyChoose = Num
  46.                 否则
  47.                     如果 (PosX,PosY) 的颜色大约等于 #22DD99 则
  48.                         （VBScript语句） MarketBuy(Num) = 2
  49.                         如果表达式 (BuyChoose = 0) 为真,则
  50.                             BuyChoose = Num
  51.                         条件结束
  52.                     否则
  53.                         如果 (PosX,PosY) 的颜色大约等于 #2277DD 则
  54.                             （VBScript语句） MarketBuy(Num) = 3
  55.                         否则
  56.                             调用外部VBScript子程序 MessageBox ("错误的码头，请开到多佛尔或伦敦后重新执行！")
  57.                         条件结束
  58.                     条件结束
  59.                 条件结束
  60.             条件结束
  61.         否则
  62.             跳转到标记 买入行情查看结束
  63.         条件结束
  64.         如果表达式 (Num>=5) 为真,则
  65.             PosX = 372
  66.             PosY = 369
  67.             调用子程序 移动鼠标
  68.             如果 (PosX,PosY) 的颜色大约等于 #000000 则
  69.                 PosX = 372
  70.                 PosY = 362
  71.                 调用子程序 坐标转换
  72.                 如果 (PosX,PosY) 的颜色不等于 #AA9977 则
  73.                     左键单击
  74.                     延时600毫秒
  75.                 否则
  76.                     跳转到标记 买入行情查看结束
  77.                 条件结束
  78.             条件结束
  79.         条件结束
  80.         Num = Num+1
  81.     循环结束
  82.     标记 买入行情查看结束
  83.     //Num = 1
  84.     //For 10
  85.     //VBSCall MessageBox (Num)
  86.     //VBSCall MessageBox (BSDirection(Num))
  87.     //VBSCall MessageBox (MarketBuy(Num))
  88.     //Num = Num+1
  89.     //EndFor
  90. 子程序结束,回到调用处
  91. //======================================================================================
  92. 子程序 下码头
  93.     //Delay 1000
  94.     StMenu = 0
  95.     如果表达式 (StMenu = 0) 为真,则循环执行
  96.         PosX = 651+(InPier-1)*40
  97.         PosY = 383
  98.         调用子程序 移动鼠标
  99.         左键单击
  100.         调用子程序 延时判定