1.         令 数字串 = Right(数字串,n)
  2.     循环结束
  3.     （鼠标）左键单击, 1次
  4.     注释： MoveTo 198,400
  5. 子程序结束
  6. 子程序 检查是否有交易()
  7.     如果点 (915,453) 的颜色约等于 "FFFFFF" 则
  8.         Delay200()
  9.         （鼠标）移动到 (881, 544)
  10.         延时 200 毫秒
  11.         （鼠标）左键单击, 2次
  12.     否则
  13.         延时 500 毫秒
  14.         跳转到标记 s(子程序 检查是否有交易)
  15.     条件结束
  16. 子程序结束
  17. 子程序 检查是否正在交易
  18.     注释： Delay 500
  19.     注释： Call FindPic(81,107,316,135,"C:DNF图片\物品交易.bmp",0.6,intX,intY)
  20.     注释： If intX > 0
  21.     从左上到右下查找颜色 "FFFFFF"，把找到的坐标保存到 (intX, intY)，指定区域（左：160 上：115 右：217 下：130）
  22.     如果 intX > 0 则
  23.         注释： MessageBox("正在交易")
  24.         调用 等待放入物品
  25.         注释： Delay 100
  26.     否则
  27.         调用 交易前喊收货()
  28.     条件结束
  29. 子程序结束
  30. 子程序 检查交易是否提前结束
  31.     注释： MessageBox("进来sum"&sum)
  32.     注释： Call FindPic(81,107,316,135,"C:\物品交易.bmp",0.6,intX,intY)
  33.     注释： If intX > 0
  34.     从左上到右下查找颜色 "FFFFFF"，把找到的坐标保存到 (intX, intY)，指定区域（左：160 上：115 右：217 下：130）
  35.     如果 intX > 0 则
  36.         注释： MessageBox("交易未结束，开始找图")
  37.         令 sum = 0
  38.         令 flag = 0
  39.         循环 m 从 0 到 45
  40.             注释： MessageBox("m="&m)
  41.             调用 找图并传递图片(物品(m),单价(m),图片位置(m))
  42.         循环结束
  43.         注释： MessageBox(sum)
  44.     否则
  45.         跳转到标记 s(子程序 检查交易是否提前结束)
  46.     条件结束
  47. 子程序结束
  48. 子程序 等待交易
  49.     延时 1000 毫秒
  50.     循环 j 从 1 到 5
  51.         (语句无法识别，可能有错误): Call FindPic (448,263,644,331,"C:DNF图片\交易公告.bmp",0.6,intX,intY) //扫描交易框
  52.         如果 intX > 0 则
  53.             延时 200 毫秒
  54.             （鼠标）移动到 (523, 403)
  55.             （鼠标）左键单击, 2次
  56.             延时 2000 毫秒
  57.             跳转到标记 s(子程序 等待交易)
  58.             跳出循环
  59.         否则
  60.             延时 200 毫秒
  61.         条件结束
  62.     循环结束
  63.     跳转到标记 s(子程序 等待交易)
  64. 子程序结束
  65. 子程序 等待放入物品
  66.     注释： MessageBox("等待放入物品")
  67.     循环 i 从 1 到 16
  68.         注释： MessageBox("进入循环体")
  69.         调用 从左上到右下查找图片 "C:DNF图片\物品栏空.bmp"，把找到的坐标保存到 (intx, inty)，指定区域（左：60 上：160 右：110 下：210），相似度 0.6
  70.         注释： MessageBox("查看交易栏")
  71.         如果 intx > 0 则
  72.             注释： MessageBox("交易栏无物品")
  73.             延时 500 毫秒
  74.         否则
  75.             注释： MessageBox("交易栏有物品")
  76.             跳出循环
  77.         条件结束
  78.     循环结束
  79.     注释： MessageBox(i)
  80.     如果 i = 17 则
  81.         延时 1000 毫秒
  82.         （键盘）按 "esc" 键, 1次
  83.         延时 100 毫秒
  84.         跳转到标记 s(子程序 等待放入物品)
  85.     否则
  86.         调用 检查交易是否提前结束
  87.     条件结束
  88. 子程序结束
  89. 子程序 找图并传递图片(物品,单价,图片位置)
  90.     定义变量 intx, inty
  91.     调用 从左上到右下查找图片 图片位置，把找到的坐标保存到 (intx, inty)，指定区域（左：72 上：174 右：307 下：259），相似度 0.6
  92.     如果 intx > 0 则
  93.         注释： MessageBox("找到"&物品)
  94.         注释： MessageBox("单价"&单价)
  95.         调用 识别数字并计算(物品,单价,intx,inty)
  96.     否则
  97.         注释： MessageBox("未找到"&物品)
  98.     条件结束
  99. 子程序结束
  100. 子程序 识别数字并计算(物品,单价,x,y)