帮解决 十分感谢

a343098077

1.jpg(11.38 K)
2011-10-19 21:38:29

空间 我的程序
功能 逻辑型 开始_点击()  
//这里添加你要执行的代码,这里是你点击开始按钮执行的代码
整型 窗口句柄
窗口句柄=窗口.找到窗口("123）")
窗口.置顶(窗口句柄)
窗口.设置位置(窗口句柄,0,0)
辅助.等待(1000)
字符型 按键码
按键码=编辑框.获得文本("编辑框0")
整型 m
m=转换.字符型转整型(按键码)
循环(m=!0)
m=m-1
整型 x
整型 y
图像.区域找色(519,42,741,410,#394d9b,0,x,y)
鼠标.移动(x,y)
超级鼠标.左键双击(1)
鼠标.移动(507,474)
超级鼠标.左键单击(1)
如果结束
循环结束

                          这个程序 我想是想在购买的里面输入一个购买的数量 然后实现购买

我用了m循环 和编辑框 但是不知道怎么才能联系到一起

也不知道 最后怎么样 当购买完毕后自动跳出

高手求解

Soy_meng

从你的程序思路来看,是执行一次就购买一件物品.
(假设购买过程是正确的)购买物品的代码是这样：

1. 图像.区域找色(519,42,741,410,#394d9b,0,x,y)
2. 鼠标.移动(x,y)
3. 辅助.等待(500)//注意设置等待
4. 超级鼠标.左键双击(1)
5. 辅助.等待(500)
6. 鼠标.移动(507,474)
7. 辅助.等待(500)
8. 超级鼠标.左键单击(1)

复制代码

那么购买M件物品就是执行M次上述的操作,而购买完毕,就是循环结束的时候.那么修改后的代码应该是这样

2. 功能 逻辑型 开始_点击()  
3. 整型 窗口句柄
4. 整型 x,y
5. 整型 物品件数
6. 窗口句柄=窗口.找到窗口("123）")
7. 窗口.置顶(窗口句柄)
8. 窗口.设置位置(窗口句柄,0,0)
9. 辅助.等待(1000)
10. 物品件数=转换.字符型转整型(编辑框.获得文本("编辑框0"))
11. 循环(物品件数 > 0)
12. 图像.区域找色(519,42,741,410,#394d9b,0,x,y)
13. 鼠标.移动(x,y)
14. 辅助.等待(500)
15. 超级鼠标.左键双击(1)
16. 辅助.等待(500)
17. 鼠标.移动(507,474)
18. 辅助.等待(500)
19. 超级鼠标.左键单击(1)
20. 辅助.等待(500)
21. 物品件数 = 物品件数 - 1
22. 循环结束

复制代码

TC管理员

:~...  已经解决

a343098077

回复 3楼小东的帖子

哈哈  谢谢 东哥指导   

东哥已经帮解决

a343098077

回复 2楼Soy_meng的帖子

空间 我的程序

功能 逻辑型 开始_点击()  
//这里添加你要执行的代码,这里是你点击开始按钮执行的代码
整型 窗口句柄
窗口句柄=窗口.找到窗口("全")
窗口.置顶(窗口句柄)
窗口.设置位置(窗口句柄,0,0)

整型 x1
整型 y1


整型 x
整型 y
整型 丝绸
整型 高级蓝宝石
整型 绒线
整型 销售确定
循环(丝绸>0)
丝绸=图像.找图(0,0,1440,900,"I:\\丝绸.bmp",#be6267,1.0,0,x1,y1)
如果(丝绸==0)
鼠标.移动(x1+5,y1+5)
超级鼠标.左键按下()
鼠标.移动(630,240)
超级鼠标.左键弹起()
辅助.等待(500)
销售确定=图像.找图(0,0,1440,900,"I:\\销售确定.bmp",#5b4841,1.0,0,x,y)
  如果(销售确定==0)
  鼠标.移动(x+5,y+5)
  超级鼠标.左键单击(1)
  鼠标.移动(502,476)
  超级鼠标.左键单击(1)
  如果结束
  如果(销售确定==-1)
鼠标.移动(502,476)
  超级鼠标.左键单击(1)
如果结束
如果结束
丝绸=丝绸-1
循环结束
返回 真  
//函数返回语句   
功能结束  

功能 逻辑型 退出_点击()  
//这里是你退出的时候要执行的代码,这类是你点击退出按钮执行的代码

辅助.退出()
返回 真  
//函数返回语句   
功能结束  

空间结束     
//命名空间结束语句

      meng  这是我按照你说的 写得程序  

说下我的思路  1.先找到“丝绸”对其左键按下，移动到销售框中
              2. 当 “丝绸”是一个的时候直接卖出
              3.当“丝绸”是多个的时候会弹出 “销售确定”的字样  然后卖出
              4.找到背包中所有的 “丝绸”都卖出 循环结束
程序是没有错误，但是 不会执行。。。问题出在哪里

Soy_meng

1.确认找图是否正确
2.鼠标移动后一定要调用[辅助.等待(500)],然后再点击.因为鼠标操作是个异步的过程,可能在鼠标还没移动到目标位置的时候就已经点击了

Soy_meng

如果没问题,你尝试下把代码改成这样：

2. 功能 逻辑型 开始_点击()  
3. 整型 窗口句柄
4. 窗口句柄=窗口.找到窗口("全")
5. 窗口.置顶(窗口句柄)
6. 窗口.设置位置(窗口句柄,0,0)
7. 整型 x,y,x1,y1
8. 整型 丝绸
9. 整型 高级蓝宝石
10. 整型 绒线
11. 整型 销售确定
12. 丝绸=图像.找图(0,0,1440,900,"I:\\丝绸.bmp",#be6267,1.0,0,x1,y1)
13. 循环(丝绸 == 0)
14.         鼠标.移动(x1+5,y1+5)
15.         辅助.等待(500)
16.         超级鼠标.左键按下()
17.         辅助.等待(500)
18.         鼠标.移动(630,240)
19.         辅助.等待(500)
20.         超级鼠标.左键弹起()
21.         辅助.等待(500)
22.         销售确定=图像.找图(0,0,1440,900,"I:\\销售确定.bmp",#5b4841,1.0,0,x,y)
23.           如果(销售确定==0)
24.                   鼠标.移动(x+5,y+5)
25.                 辅助.等待(500)
26.                   超级鼠标.左键单击(1)
27.                 辅助.等待(500)
28.                   鼠标.移动(502,476)
29.                 辅助.等待(500)
30.                   超级鼠标.左键单击(1)
31.         否则
32.                 鼠标.移动(502,476)
33.                 辅助.等待(500)
34.                   超级鼠标.左键单击(1)
35.           如果结束
36.         丝绸=图像.找图(0,0,1440,900,"I:\\丝绸.bmp",#be6267,1.0,0,x1,y1)       
37. 循环结束
38. 返回 真   
39. 功能结束  

复制代码

yingyuecan

不懂

a343098077

回复 7楼Soy_meng的帖子

  循环结束 上面的 那句 上面意思呢

丝绸=图像.找图(0,0,1440,900,"I:\\丝绸.bmp",#be6267,1.0,0,x1,y1)

为什么要重复写出

不用写 这句话吗  丝绸=丝绸-1

Soy_meng

一、2楼的代码思路是,每执行一次卖出一件物品,而物品件数由界面得到,因此循环条件是（物品件数 > 0）,执行完循环体后(物品件数-1),当物品件数等于0的时候退出循环.

二、7楼的代码思路是物品栏中有多个物品,扫描物品栏,(执行找图语句),如果找到,得到第一张图的坐标(也就是物品栏中第一个物品),执行完操作后,在循环末尾再次调用找图语句是要再一次扫描物品栏,直到物品栏中不存在目标物品的时候退出循环,所以这里的循环条件是（丝绸 == 0）

所以说,写循环的时候要确定循环条件,就要清楚什么时候退出循环.