关于大漠和传参

zws5878

#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

回复 6楼zws5878的帖子

记得给个最佳回复啊

c724211922

#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

灰常灰常的感谢着东西纠结了我一上午了

c724211922

我也新人也看过三猫的视频 。你的代码主要是大漠命令里的大写字母小写了就识别不了了呵呵。下边是超自然师傅教我的写传参办法。我觉得很好跟你分享。
[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

回复 2楼c724211922的帖子

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

zws5878

回复 4楼c724211922的帖子

谢谢分享1！！

陌上青衣。

回复 2楼c724211922的帖子

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

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

zws5878

回复 7楼c724211922的帖子

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

c724211922

没懂