|
楼主 |
发表于 2012-8-14 18:50:50
|
显示全部楼层
功能 整型 找图传参(整型 x1,整型 y1,整型 x2,整型 y2,字符型 内容,字符型 颜色,字符型 方式,字符型 左右键,整型 延时,整型 &整型x,整型 &整型y,浮点型 相似度,整型 方向=0)
整型 i,返回值
dm.SetPath(辅助.获取资源路径("rc:"))//Dm.SetPath
选择 (方式)
条件 "字":
返回值=dm.FindStr(x1,y1,x2,y2,"内容","颜色",整型x,整型y,相似度)
条件 "色":
返回值=dm.FindColor(x1,y1,x2,y2,"颜色",整型x,整型y,相似度,方向)
条件 "图":
返回值=dm.FindPic(x1,y1,x2,y2,"内容","颜色",整型x,整型y,相似度,方向)
选择结束
如果(整型x>0)
选择 (左右键)
条件 "左":
辅助.等待(800)
dm.MoveTo(整型x,整型y)
辅助.等待(800)
dm.LeftClick()
辅助.等待(800)
返回 返回值
条件 "右":
辅助.等待(400)
dm.MoveTo(整型x,整型y)
辅助.等待(500)
dm.RightClick()
辅助.等待(600)
返回 返回值
默认:
返回 返回值
选择结束
否则
i=i+1
如果 (i==延时)
返回 返回值
否则
辅助.等待(1000)
如果结束
如果结束
返回 0
功能结束
功能 整型 按键()
辅助.等待(1000)
dm.KeyPress(72)
辅助.等待(2000)
整型 x,y
//dm.FindPic(x1,y1,x2,y2,"内容","颜色",整型x,整型y,相似度,方向)
功能测试.找图传参(0,0,800,600,"炼宝任务图.bmp","5884A2","图","左",3,x,y,1.0,0)
辅助.消息框("找到炼宝图")
辅助.等待(2000)
dm.SetDict(0,"炼宝.txt")
dm.FindStr(0,0,950,600,"冷少泉","7bac1b-000000",0,0,1.0)
辅助.消息框("找冷少泉")
辅助.等待(2000)
返回 0
功能结束
调用- =总是程序出错是为什么啊? 大漠注册了, 路径也写了,图片也添加了,窗口也绑定了··· |
|