|
本帖最后由 wuhuan285021112 于 2015-3-16 14:59 编辑
首先有图有真相
]
特点:1.通用 2.扫描的间隔很均匀
增加量就相当于间隔,我特意选的17,不能被整除的数字,效果还可以吧。
没有全屏图画板,我猜屏幕边上会有一点漏扫的地方,希望有全屏画板的同学帮忙测试下,谢谢!~
下面是源代码和文件压缩包,防止伸手党,国际惯例,回复可见!代码:
空间 通用矩形渐开
变量 线程句柄
//------------------------------窗口初始化------------------------------
功能 初始化()
控件.有效("按钮_停止",假)
控件.有效("热键_停止",假)
功能结束
//------------------------------按钮_启动_点击------------------------------
功能 按钮_启动_点击()
线程句柄 = 线程.开启("通用矩形渐开.通用矩形渐开","")
控件.有效("按钮_启动",假)
控件.有效("按钮_停止",真)
控件.有效("热键_启动",假)
控件.有效("热键_停止",真)
功能结束
//------------------------------按钮_停止_点击------------------------------
功能 按钮_停止_点击()
线程.关闭(线程句柄)
控件.有效("按钮_停止",假)
控件.有效("按钮_启动",真)
控件.有效("热键_停止",假)
控件.有效("热键_启动",真)
功能结束
//------------------------------热键_启动_热键------------------------------
功能 热键_启动_热键()
通用矩形渐开.按钮_启动_点击()
功能结束
//------------------------------热键_停止_热键------------------------------
功能 热键_停止_热键()
通用矩形渐开.按钮_停止_点击()
功能结束
//------------------------------按钮_退出_点击------------------------------
功能 按钮_退出_点击()
辅助.退出()
功能结束
//------------------------------通用矩形渐开------------------------------
功能 通用矩形渐开()
//宽 和 高 可根据自己情况设定,递增量 就设置比所要采集物品的大小(指屏幕像素)小上3-6个像素,防止漏扫
变量 n = 0, 宽 = 1440, 高 = 900, 递增量 = 17, x = 高/2, y = 高/2, 鼠标特征码, 是否成功 = 假
变量 延时 = 辅助.随机数(10,15)
//这里先移动到起始点,不可少的步骤
鼠标.移动(x, y)
辅助.等待(延时)//这里加了很多延时,是为了在画图板上演示,自己可酌情修改
鼠标.左键按下()
辅助.等待(延时)
鼠标.左键弹起()
辅助.等待(延时)
鼠标特征码 = 鼠标.获取特征码()
如果(鼠标特征码 == "123456")
跳转 标记1
否则
//这里是除了起始点外,其他点的扫描
遍历(i = 0 ; i < 类型.取整(高/递增量/2) ; i++)
遍历(j = 0 ; j < 类型.取整((宽 - 高)/递增量 + n ) ; j++)
x = x + 递增量
鼠标.移动(x , y)
辅助.等待(延时)
鼠标.左键按下()
辅助.等待(延时)
鼠标.左键弹起()
辅助.等待(延时)
//这里获取鼠标特征码,如果找到就跳转到标记1,没有则继续遍历寻找
鼠标特征码 = 鼠标.获取特征码()
如果(鼠标特征码 == "123456")
是否成功 = 真
跳转 标记1
如果结束
遍历结束
遍历(j = 0 ; j < 1 + n ; j++)
y = y - 递增量
鼠标.移动(x , y)
辅助.等待(延时)
鼠标.左键按下()
辅助.等待(延时)
鼠标.左键弹起()
辅助.等待(延时)
//这里获取鼠标特征码,如果找到就跳转到标记1,没有则继续遍历寻找
鼠标特征码 = 鼠标.获取特征码()
如果(鼠标特征码 == "123456")
是否成功 = 真
跳转 标记1
如果结束
遍历结束
n++
遍历(j = 0 ; j < 类型.取整((宽 - 高)/递增量 + n ) ; j++)
x = x - 递增量
鼠标.移动(x , y)
辅助.等待(延时)
鼠标.左键按下()
辅助.等待(延时)
鼠标.左键弹起()
辅助.等待(延时)
//这里获取鼠标特征码,如果找到就跳转到标记1,没有则继续遍历寻找
鼠标特征码 = 鼠标.获取特征码()
如果(鼠标特征码 == "123456")
是否成功 = 真
跳转 标记1
如果结束
遍历结束
遍历(j = 0 ; j < 1 + n ; j++)
y = y + 递增量
鼠标.移动(x , y)
辅助.等待(延时)
鼠标.左键按下()
辅助.等待(延时)
鼠标.左键弹起()
辅助.等待(延时)
//这里获取鼠标特征码,如果找到就跳转到标记1,没有则继续遍历寻找
鼠标特征码 = 鼠标.获取特征码()
如果(鼠标特征码 == "123456")
是否成功 = 真
跳转 标记1
如果结束
遍历结束
n++
遍历结束
如果结束
标记1:
//找到鼠标特征码后,单击采集物品,返回 采集成功
如果(是否成功)
鼠标.左键单击(1)
调试输出("采集成功")
返回 "采集成功"
否则
调试输出("采集失败")
返回 "采集失败"
如果结束
功能结束
空间结束
文件下载:
链接: h ttp://pan.baidu.com/s/1hqH23TM密码:12c2←刮刮乐,请用刀片等锋利物品狠刮此处
新手上路,难免错误,请各位大神不吝赐教!
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|