- 令 数字串 = Right(数字串,n)
- 循环结束
- (鼠标)左键单击, 1次
- 注释: MoveTo 198,400
- 子程序结束
- 子程序 检查是否有交易()
- 如果点 (915,453) 的颜色约等于 "FFFFFF" 则
- Delay200()
- (鼠标)移动到 (881, 544)
- 延时 200 毫秒
- (鼠标)左键单击, 2次
- 否则
- 延时 500 毫秒
- 跳转到标记 s(子程序 检查是否有交易)
- 条件结束
- 子程序结束
- 子程序 检查是否正在交易
- 注释: Delay 500
- 注释: Call FindPic(81,107,316,135,"C:DNF图片\物品交易.bmp",0.6,intX,intY)
- 注释: If intX > 0
- 从左上到右下查找颜色 "FFFFFF",把找到的坐标保存到 (intX, intY),指定区域(左:160 上:115 右:217 下:130)
- 如果 intX > 0 则
- 注释: MessageBox("正在交易")
- 调用 等待放入物品
- 注释: Delay 100
- 否则
- 调用 交易前喊收货()
- 条件结束
- 子程序结束
- 子程序 检查交易是否提前结束
- 注释: MessageBox("进来sum"&sum)
- 注释: Call FindPic(81,107,316,135,"C:\物品交易.bmp",0.6,intX,intY)
- 注释: If intX > 0
- 从左上到右下查找颜色 "FFFFFF",把找到的坐标保存到 (intX, intY),指定区域(左:160 上:115 右:217 下:130)
- 如果 intX > 0 则
- 注释: MessageBox("交易未结束,开始找图")
- 令 sum = 0
- 令 flag = 0
- 循环 m 从 0 到 45
- 注释: MessageBox("m="&m)
- 调用 找图并传递图片(物品(m),单价(m),图片位置(m))
- 循环结束
- 注释: MessageBox(sum)
- 否则
- 跳转到标记 s(子程序 检查交易是否提前结束)
- 条件结束
- 子程序结束
- 子程序 等待交易
- 延时 1000 毫秒
- 循环 j 从 1 到 5
- (语句无法识别,可能有错误): Call FindPic (448,263,644,331,"C:DNF图片\交易公告.bmp",0.6,intX,intY) //扫描交易框
- 如果 intX > 0 则
- 延时 200 毫秒
- (鼠标)移动到 (523, 403)
- (鼠标)左键单击, 2次
- 延时 2000 毫秒
- 跳转到标记 s(子程序 等待交易)
- 跳出循环
- 否则
- 延时 200 毫秒
- 条件结束
- 循环结束
- 跳转到标记 s(子程序 等待交易)
- 子程序结束
- 子程序 等待放入物品
- 注释: MessageBox("等待放入物品")
- 循环 i 从 1 到 16
- 注释: MessageBox("进入循环体")
- 调用 从左上到右下查找图片 "C:DNF图片\物品栏空.bmp",把找到的坐标保存到 (intx, inty),指定区域(左:60 上:160 右:110 下:210),相似度 0.6
- 注释: MessageBox("查看交易栏")
- 如果 intx > 0 则
- 注释: MessageBox("交易栏无物品")
- 延时 500 毫秒
- 否则
- 注释: MessageBox("交易栏有物品")
- 跳出循环
- 条件结束
- 循环结束
- 注释: MessageBox(i)
- 如果 i = 17 则
- 延时 1000 毫秒
- (键盘)按 "esc" 键, 1次
- 延时 100 毫秒
- 跳转到标记 s(子程序 等待放入物品)
- 否则
- 调用 检查交易是否提前结束
- 条件结束
- 子程序结束
- 子程序 找图并传递图片(物品,单价,图片位置)
- 定义变量 intx, inty
- 调用 从左上到右下查找图片 图片位置,把找到的坐标保存到 (intx, inty),指定区域(左:72 上:174 右:307 下:259),相似度 0.6
- 如果 intx > 0 则
- 注释: MessageBox("找到"&物品)
- 注释: MessageBox("单价"&单价)
- 调用 识别数字并计算(物品,单价,intx,inty)
- 否则
- 注释: MessageBox("未找到"&物品)
- 条件结束
- 子程序结束
- 子程序 识别数字并计算(物品,单价,x,y)