1.             （超级模拟键盘）按 "1" 键, 1次
  2.             延时 20 毫秒
  3.             （超级模拟键盘）按 "Enter" 键, 1次
  4.             令 flag1 = 1
  5.         条件结束
  6.     情况 1:
  7.         （超级模拟键盘）按 "Enter" 键, 1次
  8.         延时 50 毫秒
  9.         从左上到右下查找颜色 "AADDEE"，把找到的坐标保存到 (intX, intY)，指定区域（左：60 上：398 右：92 下：407）
  10.         如果 intX > 0 则
  11.             （超级模拟键盘）按 "Z" 键, 3次
  12.             延时 20 毫秒
  13.             （超级模拟键盘）按 "1" 键, 1次
  14.             延时 20 毫秒
  15.             （超级模拟键盘）按 "Enter" 键, 1次
  16.             令 flag1 = 2
  17.         条件结束
  18.     情况 2:
  19.         （超级模拟键盘）按 "Enter" 键, 1次
  20.         延时 50 毫秒
  21.         从左上到右下查找颜色 "AADDEE"，把找到的坐标保存到 (intX, intY)，指定区域（左：60 上：398 右：92 下：407）
  22.         如果 intX > 0 则
  23.             （超级模拟键盘）按 "Z" 键, 4次
  24.             延时 20 毫秒
  25.             （超级模拟键盘）按 "1" 键, 1次
  26.             延时 20 毫秒
  27.             （超级模拟键盘）按 "Enter" 键, 1次
  28.             令 flag1 = 0
  29.         条件结束
  30.     选择结束
  31.     调用 等待交易
  32. 子程序结束
  33. 子程序 检查对方是否点交易()
  34.     循环 10 次
  35.         (语句无法识别，可能有错误): Delay 50 '修改这里时间
  36.         如果点 (165,266) 的颜色约等于 "BBFFFF" 则
  37.             令 flag = 1
  38.             跳出循环
  39.         否则
  40.             令 flag = 0
  41.         条件结束
  42.     循环结束
  43.     如果 flag = 1 则
  44.         注释： MessageBox("对方已点交易")
  45.         令 s = GetSysInfo.GetDateTime()
  46.         a.writeline((""))
  47.         a.writeline(("------------------------------"))
  48.         a.writeline(("时间：" & s))
  49.         a.write(("物品："))
  50.         令 sum = 0
  51.         循环 m 从 0 到 45
  52.             调用 找图并传递图片(物品(m),单价(m),图片位置(m))
  53.         循环结束
  54.         如果 sum1 = sum 则
  55.             注释： MessageBox("sum1=sum")
  56.             延时 500 毫秒
  57.             （鼠标）移动到 (160, 424)
  58.             延时 1000 毫秒
  59.             （鼠标）左键单击, 4次
  60.             延时 2000 毫秒
  61.             （鼠标）左键单击, 2次
  62.             延时 2000 毫秒
  63.             a.writeline((""))
  64.             注释： FindPic 299,111,347,140,"C:DNF图片\成功交易公告.bmp",0.6,intX,intY
  65.             注释： If intX > 0
  66.             a.writeline(("花费：" & sum))
  67.             a.close()
  68.             （键盘）按 "Enter" 键, 1次
  69.             跳转到标记 s(子程序 检查对方是否点交易)
  70.         否则
  71.             a.writeline(("物品变化，重新检测"))
  72.             a.close()
  73.             跳转到标记 s(子程序 检查对方是否点交易)
  74.         条件结束
  75.     否则
  76.         跳转到标记 s(子程序 检查对方是否点交易)
  77.     条件结束
  78. 子程序结束
  79. 子程序 输入金币(数字串)
  80.     循环 h 从 1 到 40
  81.         从左上到右下查找颜色 "CEFFFF"，把找到的坐标保存到 (intX, intY)，指定区域（左：190 上：293 右：206 下：309）
  82.         如果 intX > 0 则
  83.             跳出循环
  84.         否则
  85.             延时 100 毫秒
  86.         条件结束
  87.     循环结束
  88.     （鼠标）移动到 (198, 300)
  89.     注释： Delay 1000
  90.     （鼠标）左键单击, 2次
  91.     延时 200 毫秒
  92.     （键盘）按 "BackSpace" 键, 15次
  93.     定义变量 数字码，位数, n
  94.     令 位数 = Len(数字串)
  95.     令 n = 位数
  96.     循环 位数 次
  97.         令 数字码 = Asc(数字串)
  98.         延时 50 毫秒
  99.         （键盘）按 数字码 键, 1次
  100.         令 n = n - 1