1.         条件结束
  2.     循环结束
  3.     注释：MessageBox "金币输入完毕"
  4. 子程序结束
  5. (语句无法识别，可能有错误): Sub 输入金币 //xp
  6. (语句无法识别，可能有错误): dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY) //金币的坐标
  7. 如果 jbX > 0 并且 jbY > 0 则
  8.     （鼠标）移动到 (jbx, jby)
  9.     延时 150 毫秒
  10.     （鼠标）左键单击, 1次
  11.     延时 55 毫秒
  12.     （鼠标）移动到 (6, 5)
  13. 条件结束
  14. 标记 a1
  15. (语句无法识别，可能有错误): jbs = dm.Ocr(158, 264, 295, 303, "ffe3ab-000000", 1.0) //再次输入时确保金币框里边没有钱
  16. 如果 jbs > 0 则
  17.     注释：jbs确保再次输入时 金币框里数字为0
  18. 条件结束
  19. 调用 Window.Active(Hwnd)
  20. （键盘）按 "BackSpace" 键, 2次
  21. 延时 20 毫秒
  22. (语句无法识别，可能有错误): Goto a1 //对金币框进行初始 回到标记a1
  23. 条件结束
  24. 循环 6 次
  25.     （键盘）按 "BackSpace" 键, 1次
  26.     延时 50 毫秒
  27. 循环结束
  28. 令 i = 1
  29. 循环 len(zj) 次
  30.     令 anjian = Mid(zj,i,1)
  31.     （键盘）按下 asc(anjian) 键
  32.     延时 20 毫秒
  33.     （键盘）弹起 asc(anjian) 键
  34.     令 i = i + 1
  35.     延时 50 毫秒
  36.     (语句无法识别，可能有错误): Next //输入钱数
  37.     循环当 1 时
  38.         令 jbdqx = 0
  39.         令 jbqdy = 0
  40.         令 dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY)
  41.         如果 jbqdX > 0 并且 jbqdY > 0 则
  42.             （鼠标）移动到 (jbqdX, jbqdY)
  43.             注释：MessageBox "zhaodao"
  44.             延时 300 毫秒
  45.             （鼠标）左键单击, 1次
  46.             延时 200 毫秒
  47.             （鼠标）移动到 (5, 5)
  48.             延时 300 毫秒
  49.         条件结束
  50.         令 jbdqx = 0
  51.         令 jbqdy = 0
  52.         令 dm_ret = dm.FindPic(176,270,217,321,"c:\材料字库\金币确定.bmp","000000",0.9,0,jbX,jbY)
  53.         如果 jbdqx > 0 并且 jbqdy > 0 则
  54.         否则
  55.             跳出循环
  56.         条件结束
  57.     循环结束
  58. 子程序结束
  59. 子程序 喊话初始化
  60.     令 fj = 0
  61.     令 fj = dm.Ocr(38,389,125,426,"eeddaa-000000",1.0)
  62.     如果 fj = 99999 则
  63.         令 ifj = 0
  64.         调用 交易请求检查
  65.         调用 交易请求检查xp
  66.         （键盘）按 "Enter" 键, 1次
  67.         (语句无法识别，可能有错误): End If //发言 附近检测 每次喊话前的准备工作
  68.     子程序结束
  69.     子程序 交易喊话A
  70.         （键盘）按 "Enter" 键, 1次
  71.         延时 100 毫秒
  72.         （键盘）按 "A" 键, 1次
  73.         延时 50 毫秒
  74.         （键盘）按 "A" 键, 1次
  75.         延时 50 毫秒
  76.         （键盘）按 "Space" 键, 1次
  77.         延时 50 毫秒
  78.         （键盘）按 "Enter" 键, 1次
  79.     子程序结束
  80.     子程序 交易喊话B
  81.         （键盘）按 "Enter" 键, 1次
  82.         延时 100 毫秒
  83.         （键盘）按 "C" 键, 1次
  84.         延时 50 毫秒
  85.         （键盘）按 "C" 键, 1次
  86.         延时 50 毫秒
  87.         （键盘）按 "Space" 键, 1次
  88.         延时 50 毫秒
  89.         （键盘）按 "Enter" 键, 1次
  90.     子程序结束
  91.     子程序 确认交易
  92.         令 i1 = 1
  93.         循环当 1 时
  94.             调用 确认交易框存在
  95.             如果 jyzt1 = 0 并且 jyzt2 = 0 则
  96.             否则
  97.                 跳转到标记 开始(子程序 确认交易)
  98.             条件结束
  99.             循环 10 次
  100.                 令 jyX = 0