TC官方合作论坛

标题: 关于大漠和传参 [打印本页]

作者: zws5878 时间: 2012-7-16 14:29
标题: 关于大漠和传参
#import "dm.dmsoft" Dm

空间找图传参
整型线程句柄
功能逻辑型创建()
如果 (!辅助.是否注册("dm.dmsoft"))
辅助.注册插件("rc:dm.dll",真)
如果结束
Dm.setpath(辅助.获取资源路径("rc:"))
返回真
功能结束

功能整型找图点击(整型左上角x,整型左上角y,整型右下角x,整型右下角y,字符型图片,整型偏移x,整型偏移y)
整型 x,y
整型返回信息
返回信息 = Dm.Findpic(左上角x,左上角y,右下角x,右下角y,图片,"000000",1.0,0,x,y)
如果(返回信息 != -1)
   辅助.等待(100)
   Dm.moveTo(x+偏移x,y+偏移y)
   辅助.等待(100)
   Dm.LeftClick()
   辅助.等待(100)
如果结束
  返回 0
  功能结束








功能整型吃太阳()
整型 x,y
整型返回信息
辅助.等待(50)
找图传参.找图点击(0,0,2000,2000,"商铺.bmp",0,0)
辅助.等待(50)
找图传参.找图点击(0,0,2000,2000,"太阳包.bmp",0,0)
辅助.等待(50)
找图传参.找图点击(0,0,2000,2000,"购买.bmp",0,0)
辅助.等待(50)
找图传参.找图点击(0,0,2000,2000,"确定.bmp",0,0)
辅助.等待(50)
找图传参.找图点击(0,0,2000,2000,"关闭.bmp",0,0)
返回 0
功能结束
空间结束
求大神指教！！！  哪里出错哪里需要改

作者: c724211922 时间: 2012-7-16 14:57
#import "dm.dmsoft" Dm
空间找图传参
整型线程句柄
功能逻辑型创建()
如果 (!辅助.是否注册("dm.dmsoft"))
辅助.注册插件("rc:dm.dll",真)
如果结束
Dm.setpath(辅助.获取资源路径("rc:"))//Dm.SetPath
返回真
功能结束
功能整型找图点击(整型左上角x,整型左上角y,整型右下角x,整型右下角y,字符型图片,整型偏移x,整型偏移y)
整型 x,y
整型返回信息
返回信息 = Dm.Findpic(左上角x,左上角y,右下角x,右下角y,图片,"000000",1.0,0,x,y)//Dm.FindPic
如果(返回信息 != -1)
   辅助.等待(100)
   Dm.moveTo(x+偏移x,y+偏移y)//Dm.MoveTo
   辅助.等待(100)
   Dm.LeftClick()
   辅助.等待(100)
如果结束
  返回 0
  功能结束

作者: zws5878 时间: 2012-7-16 15:02
灰常灰常的感谢着东西纠结了我一上午了

作者: c724211922 时间: 2012-7-16 15:06
我也新人也看过三猫的视频。你的代码主要是大漠命令里的大写字母小写了就识别不了了呵呵。下边是超自然师傅教我的写传参办法。我觉得很好跟你分享。
[code][功能整型查找(整型 x1,整型 y1,整型 x2,整型 y2,字符型内容,字符型颜色,字符型左右键,整型延时,字符型方式,整型 &整型x,整型 &整型y,浮点型相似度=1.0)
整型 i,返回值
字符型 aa
//aa=辅助.获取资源路径("rc:")
//ks.Capture(x1,y1,x2,y2,"bb.bmp")
循环 (真)
      选择 (方式)
         条件 "字":
         返回值=ks.FindStr(x1,y1,x2,y2,内容,颜色,相似度,整型x,整型y)
         条件 "色":
         返回值=ks.FindColor(x1,y1,x2,y2,颜色,相似度,0,整型x,整型y)
         条件 "图":
         返回值=ks.FindPic(x1,y1,x2,y2,内容,颜色,相似度,0,整型x,整型y)
      选择结束
   如果(整型x>0)
         选择 (左右键)
            条件 "左":
            程序功能.点击(整型x,整型y)
            返回返回值
            条件 "右":
            ks.MoveTo(整型x,整型y)
            辅助.等待(100)
            ks.RightClick()
            辅助.等待(200)
            ks.MoveTo(182,743)
            返回返回值
            默认:
            返回返回值
         选择结束
      否则
         i=i+1
         如果 (i==延时)
            返回返回值
         否则
            辅助.等待(1000)
         如果结束
      如果结束
功能结束
空间结束

/code]

作者: zws5878 时间: 2012-7-16 15:06
回复 2楼c724211922的帖子

第8行有错误setpath(辅助.获取资源路径("rc:"))是错误的实参数列表

作者: zws5878 时间: 2012-7-16 15:09
回复 4楼c724211922的帖子

谢谢分享1！！

作者: c724211922 时间: 2012-7-16 15:12
回复 6楼zws5878的帖子

记得给个最佳回复啊

作者: 陌上青衣。 时间: 2012-7-16 15:38

回复 2楼c724211922的帖子

第8行有错误setpath(辅助.获取资源路径("rc:"))是错误......
zws5878 发表于 2012-7-16 15:06:58

SetPath(辅助.获取资源路径("rc:"))P是大写

作者: zws5878 时间: 2012-7-16 18:02
回复 7楼c724211922的帖子

问下说打不开商铺BMP文件找不到指定的文件怎么回事啊！！！！

作者: c724211922 时间: 2012-7-17 15:59
没懂

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)