1.         令 cishu = len(qian)
  2.         循环 cishu 次
  3.             (语句无法识别，可能有错误): shu=left(qian,1) //取qian的左起第一个数字
  4.             (语句无法识别，可能有错误): qian=right(qian,cishu-x) //取qian的右起第I个数字
  5.             （键盘）按 shu 键, 1次
  6.             令 i = 0
  7.             延时 250 毫秒
  8.             令 x = x + 1
  9.         循环结束
  10.     否则
  11.         令 i = i + 1
  12.         如果 i < 30 则
  13.             注释：30秒内金钱为0则跳转喊话
  14.         条件结束
  15.         跳转到标记 jiaqian(子程序 输入金钱)
  16.         延时 1000 毫秒
  17.     否则
  18.         （键盘）按 "esc" 键, 1次
  19.         延时 100 毫秒
  20.         调用 站街自动喊话()
  21.     条件结束
  22. 条件结束
  23. 延时 100 毫秒
  24. （鼠标）左键单击, 1次
  25. 延时 200 毫秒
  26. 调用 检查并交易()
  27. 子程序结束
  28. 子程序 检查并交易
  29.     标记 jiancha(子程序 检查并交易)
  30.     调用 检查交易是否提前结束()
  31.     注释：检查己方输入的金钱
  32.     (语句无法识别，可能有错误): Dim no(9) //数字特征码
  33.     令 no(0) = "0111010001100011000110001100011000101110"
  34.     (语句无法识别，可能有错误): no(1)="0001000011000100001000010000100001000111" //自取特征码，DNF己方金钱框专用
  35.     令 no(2) = "0111010001100010100000100000100000111111"
  36.     令 no(3) = "0111010001100000110010000100001000101110"
  37.     令 no(4) = "0100001100010100101001001111100100011000"
  38.     令 no(5) = "1111100001000010111110000100001000101110"
  39.     令 no(6) = "0111001001000010111110001100011000101110"
  40.     令 no(7) = "1111101001010000010000100001000010000100"
  41.     令 no(8) = "0111010001100010111010001100011000101110"
  42.     令 no(9) = "0111010001100011000111110100001001001110"
  43.     (语句无法识别，可能有错误): Dim colo(3) //颜色十六进制值 10月7日版
  44.     令 colo(1) = "008CFF"
  45.     令 colo(0) = "0050FF"
  46.     令 colo(2) = "00F0FF"
  47.     （鼠标）移动到 (603, 439)
  48.     (语句无法识别，可能有错误): rightx=296 //初始x坐标
  49.     (语句无法识别，可能有错误): righty=299 //初始Y坐标
  50.     令 rx = rightx
  51.     令 ry = righty
  52.     令 jici = 0
  53.     令 jine = ""
  54.     令 y = 0
  55.     (语句无法识别，可能有错误): For 3 //千万位数字扫描
  56.     令 rightx = 296 - 21 * y
  57.     (语句无法识别，可能有错误): for 3 //百位数字扫描
  58.     令 i = 0
  59.     (语句无法识别，可能有错误): For 8 //单个数字扫描
  60.     (语句无法识别，可能有错误): rx=rightx-jici*6 //后退6个像素点
  61.     循环 5 次
  62.         如果点 (rx,ry) 的颜色等于 colo(y) 则
  63.             令 nob = "1"
  64.         否则
  65.             令 nob = "0"
  66.         条件结束
  67.         令 rx = rx - 1
  68.         令 number = number & nob
  69.     循环结束
  70.     令 ry = ry + 1
  71. 循环结束
  72. 循环 10 次
  73.     如果 number = no(i) 则
  74.         令 jine = i & jine
  75.         跳出循环
  76.     条件结束
  77.     令 i = i + 1
  78. 循环结束
  79. 令 jici = jici + 1
  80. 令 number = ""
  81. (语句无法识别，可能有错误): ry=righty //循环一次结束后初始化ry坐标
  82. (语句无法识别，可能有错误): Next //修改初始化值
  83. 令 jici = 0
  84. 令 y = y + 1
  85. 循环结束
  86. 注释：MsgBox jine
  87. 延时 100 毫秒
  88. 令 feyjy = feyjy + 1
  89. 如果 feyjy > 120 则
  90.     注释：若一段时间内没有成功交易则取消交易，慎重！！！
  91. 条件结束
  92. （键盘）按 "Esc" 键, 1次
  93. 延时 100 毫秒
  94. 调用 站街自动喊话()
  95. 条件结束
  96. 如果 int(jine) = jiage(1000) 则
  97.     注释：MsgBox "价格正确可以进行下一步交易"
  98.     (语句无法识别，可能有错误): ifcolor 167,269,"44EEFF",0 //检查对方是否先点击了交易
  99.     (语句无法识别，可能有错误): MoveTo 161,426 //交易逐步点击
  100.     延时 400 毫秒