- 调用子程序 移动鼠标
- 左键单击
- 延时500毫秒
- Num = 1
- 循环 10 遍
- //VBSCall MessageBox (BSDirection(Num))
- 如果表达式 (BSDirection(Num) = 1 or BSDirection(Num) = 2) 为真,则
- 如果表达式 (BSDirection(Num) = 1) 为真,则
- PosX = 62
- PosY = 94
- 调用子程序 移动鼠标
- 调用子程序 快速入仓
- 调用子程序 当前时间
- Message = CurrentTime & "点取:" & Num & "号买入商品结束..."
- 调用子程序 写入日志文件
- 条件结束
- 按键<Down>
- 延时1000毫秒
- 否则
- 跳转到标记 买入商品结束
- 条件结束
- Num = Num+1
- 循环结束
- 标记 买入商品结束
- PosX = 661
- PosY = 411
- 调用子程序 坐标转换
- 如果 (PosX,PosY) 的颜色不等于 #736A56 则
- 鼠标移到 PosX , PosY
- 延时600毫秒
- 左键单击
- 调用子程序 延时判定
- 延时2000毫秒
- 调用子程序 当前时间
- Message = CurrentTime & "买入商品结束..."
- 调用子程序 写入日志文件
- 否则
- 按键<Esc>
- 延时500毫秒
- 调用子程序 当前时间
- Message = CurrentTime & "!!!买入商品结束,无任何买入物..."
- 调用子程序 写入日志文件
- 条件结束
- 子程序结束,回到调用处
- 子程序 卖出商品
- 延时1000毫秒
- 如果表达式 (SellChoose = 0) 为真,则
- SellChoose = 1
- 条件结束
- StMenu = 0
- 如果表达式 (StMenu = 0) 为真,则循环执行
- PosX = 687
- PosY = 359
- 调用子程序 移动鼠标
- 左键单击
- 调用子程序 延时判定
- 延时2000毫秒
- PosX = 92
- PosY = 93
- 调用子程序 坐标转换
- 如果 (PosX,PosY) 的颜色大约等于 #BBBBBB 则
- StMenu = 1
- 调用子程序 当前时间
- Message = CurrentTime & "卖出商品页面打开成功..."
- 调用子程序 写入日志文件
- 否则
- 调用子程序 当前时间
- Message = CurrentTime & "!!!卖出商品页面打开未成功..."
- 调用子程序 写入日志文件
- 如果表达式 (MarketSell(SellChoose) <> 0) 为真,则
- 调用子程序 查找交易所老板
- 否则
- StMenu = 1
- 条件结束
- 条件结束
- 循环结束
- 如果表达式 (MarketSell(SellChoose) <> 0) 为真,则
- PosX = 92+((SellChoose+4) MOD 5)*56
- PosY = 93+((SellChoose-1)\5)*72
- 调用子程序 移动鼠标
- 左键单击
- 延时1000毫秒
- 循环 2 遍
- 调用子程序 砍价要价
- 循环结束
- //点全部卖出
- PosX = 325
- PosY = 70
- 调用子程序 移动鼠标
- 左键单击
- 延时1000毫秒
- PosX = 631
- PosY = 413
- 调用子程序 移动鼠标
- 左键单击
- 调用子程序 延时判定
- 延时2000毫秒
- 调用子程序 当前时间
- Message = CurrentTime & "卖出商品结束..."
- 调用子程序 写入日志文件