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