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