1.         跳转到标记 开始交易
  2.     条件结束
  3. 条件结束
  4. 子程序结束
  5. 子程序 交易请求检查xp
  6.     从左上到右下查找图片 "Attachment:\是.bmp",把找到的坐标保存到 (jjqqX, jjqqY),指定区域(左:0 上:0 右:640 下:640),相似度 0.9
  7.     如果 jjqqX > 0 并且 jjqqY > 0 则
  8.         (鼠标)移动到 (jjqqx, jjqqy)
  9.         延时 50 毫秒
  10.         (鼠标)左键单击, 1次
  11.         延时 500 毫秒
  12.         (鼠标)移动到 (5, 5)
  13.         延时 3000 毫秒
  14.         调用 确认交易框存在
  15.         如果 jyzt1 = 0 并且 jyzt2 = 0 则
  16.             跳转到标记 开始交易(子程序 交易请求检查xp)
  17.         条件结束
  18.     条件结束
  19. 子程序结束
  20. (语句无法识别,可能有错误): Sub 交易请求检查2//找点确定
  21. 延时 100 毫秒
  22. 令 jycx1 = dm.CmpColor(537,285,"ffffff-000000",0.9)
  23. 令 jycx2 = dm.CmpColor(556,290,"ffffff-000000",0.9)
  24. 令 jycx3 = dm.CmpColor(518,404,"ddc58d-000000",0.9)
  25. 弹出窗口 jycx1
  26. 如果 jycx1 = 0 并且 jycx2 = 0 并且 jycx3 = 0 则
  27.     (鼠标)移动到 (518, 404)
  28.     延时 400 毫秒
  29.     (鼠标)左键单击, 2次
  30. 条件结束
  31. 延时 500 毫秒
  32. (鼠标)移动到 (5, 5)
  33. 延时 3000 毫秒
  34. 调用 确认交易框存在
  35. 如果 jyzt1 = 0 并且 jyzt2 = 0 则
  36.     跳转到标记 开始交易
  37. 条件结束
  38. 子程序结束
  39. 子程序 确认交易框存在
  40.     令 jyzt1 = dm.CmpColor(166,121,"ffffff-000000",0.9)
  41.     令 jyzt2 = dm.CmpColor(303,123,"ffed8d-000000",0.9)
  42. 子程序结束
  43. 子程序 确认交易框存在xp
  44.     从左上到右下查找图片 "Attachment:\交易框.bmp",把找到的坐标保存到 (intX, intY),指定区域(左:0 上:0 右:644 下:644),相似度 0.9
  45.     如果 intX > 0 并且 intY > 0 则
  46.         令 jyzt1 = 0
  47.         令 jyzt2 = 0
  48.     条件结束
  49. 子程序结束
  50. 子程序 输入金币7
  51.     (语句无法识别,可能有错误): FindPic 176,270,217,321,"Attachment:\金币.bmp",0.9,jbX,jbY //金币的坐标
  52.     如果 jbX > 0 并且 jbY > 0 则
  53.         (鼠标)移动到 (jbx, jby)
  54.         延时 150 毫秒
  55.         (鼠标)左键单击, 1次
  56.         延时 55 毫秒
  57.         (鼠标)移动到 (6, 5)
  58.     条件结束
  59.     标记 a1(子程序 输入金币7)
  60.     (语句无法识别,可能有错误): jbs = dm.Ocr(158, 264, 295, 303, "ffe3ab-000000", 1.0) //再次输入时确保金币框里边没有钱
  61.     如果 jbs > 0 则
  62.         注释:jbs确保再次输入时 金币框里数字为0
  63.     条件结束
  64.     调用 Window.Active(Hwnd)
  65.     (键盘)按 "BackSpace" 键, 2次
  66.     延时 20 毫秒
  67.     (语句无法识别,可能有错误): Goto a1 //对金币框进行初始 回到标记a1
  68. 条件结束
  69. 循环 6 次
  70.     (键盘)按 "BackSpace" 键, 1次
  71.     延时 50 毫秒
  72. 循环结束
  73. 令 i = 1
  74. 循环 len(zj) 次
  75.     令 anjian = Mid(zj,i,1)
  76.     (键盘)按下 asc(anjian) 键
  77.     延时 20 毫秒
  78.     (键盘)弹起 asc(anjian) 键
  79.     令 i = i + 1
  80.     延时 50 毫秒
  81.     (语句无法识别,可能有错误): Next //输入钱数
  82.     循环当 1 时
  83.         令 jbdqx = 0
  84.         令 jbqdy = 0
  85.         从左上到右下查找图片 "Attachment:\金币确定.bmp",把找到的坐标保存到 (jbqdX, jbqdY),指定区域(左:135 上:261 右:235 下:330),相似度 0.9
  86.         如果 jbqdX > 0 并且 jbqdY > 0 则
  87.             (鼠标)移动到 (jbqdX, jbqdY)
  88.             注释:MessageBox "zhaodao"
  89.             延时 300 毫秒
  90.             (鼠标)左键单击, 1次
  91.             延时 200 毫秒
  92.             (鼠标)移动到 (5, 5)
  93.             延时 300 毫秒
  94.         条件结束
  95.         令 jbdqx = 0
  96.         令 jbqdy = 0
  97.         从左上到右下查找图片 "Attachment:\金币确定.bmp",把找到的坐标保存到 (jbqdX, jbqdY),指定区域(左:135 上:261 右:235 下:330),相似度 0.9
  98.         如果 jbdqx > 0 并且 jbqdy > 0 则
  99.         否则
  100.             跳出循环